|
|
|
Generic behavior to emulate a Keystroke
Added on 3/24/2002
|
Behavior allows to emulate a keystroke.
Download PC Source
-- Generic behavior to emulate a keystroke
-- KeyboardControl Xtra 1.1 or later required
property Keystroke
on getPropertyDescriptionList
set description = [:]
addProp description, #Keystroke, [#default: "", #format:#string, #comment:"Keystroke to emulate:"]
return description
end
on getBehaviorDescription
return "Emulates Keystroke"
end
on mouseDown
pressKeys
end
on pressKeys
set Ok = KeyboardControlSendKeys(Keystroke)
if getAt(Ok,1) <> 0 then
-- An error has occured, show error code
alert("Error: " & getAt(Ok,1) & " - base error code")
end if
end
|
|