\ VP-sounds
\ Sound definitions
\ 
\ $Id: VP-sounds.txt,v 1.1 2000/10/25 01:02:57 kris_johnson Exp $

\ Copyright 2000
\ Kristopher D. Johnson
\ 
\ See LICENSE-JacksOrBetter for the
\ conditions under which you may
\ use, redistribute, or modify this 
\ code, or create derived works.

needs toolkit

.( VP-sounds... )

\ PalmOS system sound codes
1 constant sndInfo
2 constant sndWarning
3 constant sndError
4 constant sndStartUp
5 constant sndAlarm
6 constant sndConfirmation
7 constant sndClick

: syssound ( SndSysBeepType -- )
  >byte SndPlaySystemSound ;

: info-sound ( -- )
  sndInfo syssound ;

: error-sound ( -- )
  sndError syssound ;

