Simulate input/Mouse: Difference between revisions

Line 219:

=={{header|Phix}}==

Note that CUSRORPOS, SCREENPOSITION, and MOUSEBUTTON are known to be a little flaky and/or system-dependent, ymmv.

--

<lang Phix>include pGUI.e

-- demo\rosetta\Simulate_mouse_input.exw

include timedate.e

--

-- Note that CURSORPOS, SCREENPOSITION, and MOUSEBUTTON are known to be a little flaky and/or system-dependent, ymmv.

--

without js -- you'd better hope this sort of thing ain't possible in a browser!

requires("1.0.1") -- (IupGetGlobalIntInt)

include pGUI.e

include timedate.e

integer delay = 16 -- (4s @ 250ms)

Ihandle dlg, btn

function action_cb(Ihandle /*btn*/)

integer delay = 16 -- (4s @ 250ms)

string t = format_timedate(date(),"hh:mm:sspm")

Ihandle button1

IupSetStrAttribute(btn,"TITLE","Clicked at %s",{t})

return IUP_DEFAULT

function action_cb(Ihandle /*button1*/)

end function

string t = format_timedate(date(),"hh:mm:sspm")

IupSetStrAttribute(button1,"TITLE","Clicked at %s",{t})

return IUP_IGNORE

end function

integer cx, cy

function timer_cb(Ihandle timer)

if delay then

IupSetStrAttribute(button1,"TITLE","%3.2f",{delay/4})

delay -= 1

{cx,cy} = IupGetGlobal("CURSORPOS")

else

integer {btnx,btny} = IupGetIntInt(button1,"SCREENPOSITION"),

{sx,sy} = IupGetIntInt(button1,"SIZE"),

{dx,dy} = {btnx+sx/2,btny+sy/2}

if {dx,dy}!={cx,cy} then

if IupGetAttribute(timer,"TIME")="250" then

IupSetAttribute(timer,"TIME","40")

IupSetAttribute(timer,"RUN","NO")

IupSetAttribute(timer,"RUN","YES")

end if

for i=1 to 15 do

if cx<dx then cx += 1 end if

if cx>dx then cx -= 1 end if

if cy<dy then cy += 1 end if

if cy>dy then cy -= 1 end if

end for

string cxcy = sprintf("%dx%d ",{cx,cy})

IupSetGlobal("CURSORPOS",cxcy)

else

string s = sprintf("%dx%d 1 2",{btnx+sx/2,btny+sy/2})

IupSetStrGlobal("MOUSEBUTTON", s)

IupSetAttribute(timer,"RUN","NO")

end if

return IUP_CONTINUE

end function

integer cx, cy

IupOpen()

button1 = IupButton("button1",Icallback("action_cb"),"SIZE=100x12")

function timer_cb(Ihandle timer)

Ihandle dlg = IupDialog(button1,`TITLE="Simulate mouse input", CHILDOFFSET=10x40, SIZE=200x80`)

if delay then

IupShow(dlg)

IupSetStrAttribute(btn,"TITLE","%3.2f",{delay/4})

Ihandle timer = IupTimer(Icallback("timer_cb"), 250)

delay -= 1

IupMainLoop()

{cx,cy} = IupGetGlobalIntInt("CURSORPOS")

IupClose()</lang>

else

integer {xb,yb} = IupGetIntInt(btn,"SCREENPOSITION"),

{wb,hb} = IupGetIntInt(btn,"RASTERSIZE"),

{dx,dy} = {xb+floor(wb/2),yb+floor(hb/2)}

if {dx,dy}!={cx,cy} then

if IupGetInt(timer,"TIME")=250 then

IupSetInt(timer,"TIME",40)

IupSetInt(timer,"RUN",false)

IupSetInt(timer,"RUN",true)

end if

for i=1 to 15 do

if cx<dx then cx += 1 end if

if cx>dx then cx -= 1 end if

if cy<dy then cy += 1 end if

if cy>dy then cy -= 1 end if

end for

string cxcy = sprintf("%dx%d ",{cx,cy})

IupSetGlobal("CURSORPOS",cxcy)

else

string s = sprintf("%dx%d 1 2",{dx,dy})

IupSetStrGlobal("MOUSEBUTTON", s)

IupSetAttribute(timer,"RUN","NO")

end if

return IUP_CONTINUE

end function

IupOpen()

btn = IupButton("button",Icallback("action_cb"),"SIZE=100x12")

dlg = IupDialog(btn,`TITLE="Simulate mouse input", CHILDOFFSET=10x40, SIZE=200x80`)

IupShow(dlg)

Ihandle timer = IupTimer(Icallback("timer_cb"), 250)

if platform()!=JS then -- (just for consistency)

IupMainLoop()

IupClose()

end if

=={{header|PicoLisp}}==