37 lines
696 B
Plaintext
37 lines
696 B
Plaintext
_window = 1
|
|
|
|
begin enum 1
|
|
_label
|
|
_clickMeBtn
|
|
end enum
|
|
|
|
void local fn BuildWindow
|
|
window _window, @"Simple Windowed Application", (0,0,366,59)
|
|
|
|
textlabel _label, @"There have been no clicks yet", (18,23,250,16)
|
|
|
|
button _clickMeBtn,,, @"Click Me", (267,13,86,32)
|
|
end fn
|
|
|
|
void local fn ButtonClicked
|
|
static long clickCount = 0
|
|
|
|
clickCount++
|
|
textlabel _label, fn StringWithFormat( @"The button has been clicked %ld times", clickCount )
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long, tag as long )
|
|
select ( ev )
|
|
case _btnClick
|
|
select ( tag )
|
|
case _clickMeBtn : fn ButtonClicked
|
|
end select
|
|
end select
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|