Simulate input/Keyboard: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}) |
|||
Line 518: | Line 518: | ||
<lang perl>SendKeys("Hello, how are you?\n");</lang> |
<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}}== |
=={{header|PicoLisp}}== |