Dobře „refaktorizovaný“ program pro zpracování událostí

Import. 

needs ids
needs Resources
needs OnDo
needs Events

Připojení zdrojové databáze. 

(ID) MyF1 (ID) rsrc use-resources

Definice konstant. 

1000 constant MainForm
2001 constant AboutMenuItem
3000 constant AboutBox

Zpracování jednotlivých událostí. 

: penDown ( ekey → ekey )
    coords@ ." penDown: " . space . cr ;

: penUp ( ekey → ekey )
    coords@ ." penUp: " . space . cr ;

Dispatch/rozdělění/přidělení události. 

: dispatch-event ( ekey → ekey )
    on: penDownEvent    do: penDown
    on: penUpEvent      do: penUp ;

Cyklus *FIXME:příjmu/výběru událostí. 

: handle-events ( → )
    begin
        ekey dispatch-event drop
    again ;

Otevření formuláře. 

: go ( → )
    BlankFormID ShowForm
    handle-events ;