#
# example replay for xcalc
#

# put some stuff straight into the LCD are
 
sleep 5000
callActionProc *bevel.screen.LCD digit(1)
sleep 1000
callActionProc *bevel.screen.LCD digit(2)
sleep 1000
callActionProc *bevel.screen.LCD digit(3)
sleep 1000
callActionProc *bevel.screen.LCD add()
sleep 1000
callActionProc *bevel.screen.LCD digit(4)
sleep 1000
callActionProc *bevel.screen.LCD digit(5)
sleep 1000
callActionProc *bevel.screen.LCD digit(6)
sleep 1000
callActionProc *bevel.screen.LCD equal()
sleep 4000

#
# call some buttons
#
# for the defs of "nine" etc, see rules file
#

# click on "9"
callActionProc $nine set()
sleep 1000
callActionProc $nine digit(9)
callActionProc $nine unset()

# click on "8"
sleep 2000
callActionProc $eight set()
sleep 1000
callActionProc $eight digit(8)
callActionProc $eight unset()

# click on "8", "9", using a procedure from rules.txt
sleep 2000
click $eight 8
sleep 2000
click $nine 9
