25 lines
497 B
Text
25 lines
497 B
Text
|
_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
|