Keystroke test

Hey Y'All: If I run a rebol script in a forever loop, I have to shut rebol down to terminate the script. Is there a rebol function to test for a keystroke, and if one found, redirect control? (sort of like kbhit() would do in "C"). Thanks -Tim

Hey Y'All: If I run a rebol script in a forever loop, I have to shut rebol down to terminate the script. Is there a rebol function to test for a keystroke, and if one found, redirect control? (sort of like kbhit() would do in "C"). Thanks -Tim

Hi Tim, Is it running as a view window or console? If it is running in the console you can use Escape key to halt If it is running in a view window you can add you own event handler and call 'do-events in the loop to give view a chance to get the event. (haven't tested this) There is an entry in the FAQ for adding an event-handler http://www.rebolforces.com/faq/view-faq.html You might might be able to avoid all that, by putting a label on the form with a shortcut key. layout [text #"q" "press q to halt" [halt]] Hope some of that helps.. Cheers, Allen K ----- Original Message ----- From: <[tim--johnsons-web--com]> To: <[ally--rebol--com]> Cc: <[ally--rebol--com]>

Hi Gabriele : Thanks so much! As always, you are concise, thorough and further educate me. :) Regards Tim At 09:22 PM 8/7/00 +0200, you wrote:

Thanks Allen: I was aware of that feature :) BTW: This is core: next question: Can the escape key sequence be intercepted so that rebol can then provide a prompt for additional input, rather than immediately terminating? P.S. I hope the enterprise is going well. Tim At 11:47 AM 8/7/00 +1000, you wrote:

> Is there a rebol function to test for a keystroke, and if one found,

[tim--johnsons-web--com] wrote:

> Thanks Allen: > I was aware of that feature :) > rebol can then provide a prompt for additional input, rather > than immediately terminating?

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

From rebol/core, I would like to run a program in a forever loop that will process (something) until any of a set of keystrokes are intercepted. here is the code I have written, but doesn't work. forever [ system/console/keys: "abcdef" either [system/console/keys = none][] [ print "input: " system/console/keys break ] ] ; In other words I'd like to break out of the loop if any of ; a set of keystrokes are intercepted, not just the ; escape key. Thanks Tim

Hello [tim--johnsons-web--com]! On 07-Ago-00, you wrote: t> From rebol/core, I would like to run a program in t> a forever loop that will process (something) until t> any of a set of keystrokes are intercepted.

>> con: open/binary console:/ >> forever [

The only way I know of to intercept the escape key is to set system/console/break to off/false, then use a console port (i.e. port: open [scheme: 'console]) to poll for input, the escape key generates two escape characters (to differentiate it from the arrow keys and such that produce a sequence beginning with escape). hope that helps, Cal