samples.basicStuff.keyboardWatcher samples.basicStuff.keyboardWatcher
«Shows how Frontier's keyboard verbs work
«it can be useful to have debugging code do stuff...
«only if one of these routines returns true
«ie if one of the modifier keys is down
«to cancel this script, press cmd-period
local (ct = 0)
loop
local (s = "")
on add (name)
if string.length (s) > 0
s = s + " "
s = s + name
if kb.cmdKey ()
add ("Cmd")
if kb.optionKey ()
add ("Option")
if kb.controlKey ()
add ("Control")
if kb.shiftKey ()
add ("Shift")
msg (s)
window.msg (ct++)
|
This page was last built on Sat, Aug 16, 1997 at 6:37:27 PM. You can download the current set of sample scripts from our FTP site. Dave |