25 lines
497 B
Plaintext
25 lines
497 B
Plaintext
_window = 1
|
|
|
|
void local fn BuildWindow
|
|
subclass window _window, @"Keyboard input/Keypress check"
|
|
text,24
|
|
print %(180,190)@"Press any key"
|
|
end fn
|
|
|
|
void local fn DoDialog( ev as long, tag as long )
|
|
select ( ev )
|
|
case _windowKeyDown
|
|
select ( tag )
|
|
case _window
|
|
cls : printf %(180,190)@"\"%@\" key pressed",fn EventCharacters
|
|
DialogEventSetBool( YES )// we handled
|
|
end select
|
|
end select
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
on dialog fn DoDialog
|
|
|
|
HandleEvents
|