#!../wafe --f
# Sample script to demonstrate installAccelerators.
# if the user presses "q" somewhere in the Form widged, the
# exec() action of the Command widget is executed an the
# script exists

Form f topLevel
Command quit f \
  accelerators "<KeyPress>q: exec(puts exiting..%w...;quit)" \
  callback quit
Command other f \
  callback {puts "i am the %w widget"} \
  fromHoriz quit
realize
installAccelerators f quit

