( hello1 DAY 04.04.2001 )

"events"
"os_events"
"forms"

1000 constant MainForm
1001 constant AboutItem
1100 constant AboutForm

:noname ( eventtype& -- f )
\ Standart handler for all forms by default
   >rel w@ frmOpenEvent =
   if
      frmgetactiveform 
      frmdrawform true 
   else false
   then
; callback: defhandler

: go
  MainForm FrmGotoForm
  defhandler eventHandler ! 
  \ set up defHandler as handler 
  \ of MainForm
  begin
    ekey menuEvent =
    if event itemId AboutItem =
       if AboutForm ShowDialog drop 
       then
    then
  again
;

'rsrc' 'hwzz' use-resource

go