[ALLY] [REBOL]Keystroke test Re:(2)

From: agem:crosswinds at: 7-Aug-2000 14:11

some lines i use:
[
if not value? 'cons [cons: open/binary [scheme: 'console]]

;if you want to wait for a key:

 system/console/break: false wait cons system/console/break: true

{next: do-key is my handler function, rest ist "gimme a
key". i think without a key 'none ? ever 'wait 'ed
:) }

 do-key to char! pick cons 1 ; get and handle the key
]

Volker

1 · 2 · 3 · 4 · 5 · 6 · 7 · [8] · 9 · 10 · 11 · See whole thread