Simulate input/Keyboard: Difference between revisions
→{{header|Phix}}
m (→{{header|Tcl}}) |
|||
Line 518:
<lang perl>SendKeys("Hello, how are you?\n");</lang>
=={{header|Phix}}==
{{libheader|Phix/pGUI}}
<lang Phix>include pGUI.e
string hw = "Look ma no hands! "
function timer_cb(Ihandle ih)
if length(hw) then
IupSetGlobalInt("KEY",hw[1])
hw = hw[2..$]
else
IupSetAttribute(ih,"RUN","NO")
end if
return IUP_CONTINUE
end function
IupOpen()
Ihandle txt = IupText("SIZE=170x10")
Ihandle dlg = IupDialog(txt,`TITLE="Simulate input", CHILDOFFSET=10x40, SIZE=200x80`)
IupShow(dlg)
Ihandle hTimer = IupTimer(Icallback("timer_cb"), 250)
IupMainLoop()
IupClose()</lang>
=={{header|PicoLisp}}==
| |||