simple-handler.txt


\ simple-handler
\ 99.3.4 7:53 pm NAB

3000 constant AboutBox
3001 constant HelpString

2001 constant AboutMenuItem
2002 constant HelpMenuItem

\ Event handler:
needs Events

: simple-handler
( &event. -- &event. )
  callback
  2over @a menuEvent = if
    2over itemid
    dup AboutMenuItem = if
      AboutBox FrmAlert drop
      true handled
    else
      dup HelpMenuItem = if
        HelpString FrmHelp  true handled
      then
    then  drop
  else  false handled  then
  end-callback ;


  HTMLized by Forth2HTML