\ Kalkulačka
needs ids       
needs Resources 
needs OnDo      
needs Events    
needs ezUI      
needs tester

decimal

	Potřebujeme slovo (ID)
	Budeme pracovat se zdroji
	Používáme konstrukci on: ... do: ... z modulu OnDo.
	Potřebujeme symbolická jména událostí pro srozumitelnost kodu.
	Pro práci s polem zobrazovače display použijeme pro jednoduchost modul ezUI.

A nadefinujeme si symbolické konstanty pro formulář a jednotlivá tlačítka.

1000 constant MainFormID
1010 dblField display
1116 constant btnClrID
1117 constant btnDropID
1118 constant btnOffID

Vytvoření proměnných.

create stack 20 cells allot  
variable stackp  stack stackp !

Vyhrazení 20 buňek paměnti pro zásobník naší kalkulačky. Takto veliký zásobník vystačí na 10 čísel.

Slovo go je spouštěcím slovem programu.

: go ( → )
        MainFormID ShowForm  
        handle-events ;      

	Otevření hlavního a jediného formuláře aplikace.
	Spuštění hlavní smyčky zpracování událostí.

Smyčka zpracování událostí. Kód je jednoduchý. V nekonečné smyčce begin ... again si v každém průchodu vyzvedneme slovem ekey událost z fronty, a tu pak procedurou dispatch-event zpracujeme. Nakonec je třeba událost ze zásobníku zahodit (drop) aby se nám na něm nehromadily.

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

Přidělování „dispatch“ události dalším častem je v našem případě velmi jednoduché. Zajímají nás jen událost stisku tlačítka, tedy ctlSelectEvent.

: dispatch-event ( ekey → ekey )
        on: ctlSelectEvent      do: cltSelect
        ;

Rozhodování které tlčítko bylo zmáčknuto.

: ctlSelect ( ekey → ekey )
        event >abs ItemID
        on: btnOffID    ddo: (bye)
        on: btnClrID    ddo: btnClr
        on: btnDropID   ddo: btnDrop
        ;

Zmáčknutí tlačítka CLR vymaže zobrazovač.

: btnClr ( → )
        0. SET display ;