-- 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
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA