-----------------------------------

Wolf_Destiny

Fri Aug 11, 2006 10:34 am


More Advanced Mouse Procedures

-----------------------------------

With Turing 4.0.5 out, I haven't got it myself, but I was wondering if you can finally use their Mouse.SetPosition code with an actual working result. I've got 4.0.3 and it exports the procedure, but it doesn't work, and I can't do anything about that since it's an external procedure.

Either that, or if someone knows how to get the same result with Turing code, or even Java since I use that too, I'd appreciate it. Actually moving the mouse though not just:
var x,y,btn : int
mousewhere (x,y,btn)
x := 100
y := 100
btn := 1

So, yes or no does it work, and is there equivelant code in Java or Turing?

Thanks for the help beforehand.


-----------------------------------

Cervantes

Fri Aug 11, 2006 11:00 am



-----------------------------------

You've got a Mouse.SetPosition in the predefs/Mouse.tu?

I'm on 4.0.5 and there's no such thing. Moving the mouse is not possible, in Turing, because that requires access to the Windows API. If we had that, students in classrooms could do things like, say, hide the mouse, to screw up the kid using the computer next period.


-----------------------------------

Wolf_Destiny

Fri Aug 11, 2006 11:15 am


Mouse.tu

-----------------------------------

What I would really love to do actually, if figure out a way to mess with the signals that Windows is getting from the mouse, and make it think it's getting the ones I want. Ideally it'd be like a mouse macro, but controllable through code in a given language. It looked like HoltSoft was starting to do that, but by what you said they didn't. I'd love to see:
Mouse.SetState (x,y,btn:int)

Can you imagine the programs that could make? Of course, like you said it would allow for rather bothersome programs...

loop
Mouse.SetState (1,1,0)
end loop

Without any output sent to the main run window, you'd never see it.

Anyways, here's the file, mouse.tu from Turing 4.0.3 note the export list, and the external procedure at the bottom.
/*
** Mouse module - the simplified mouse interface
**
** NB:  DO NOT IMPORT OR INCLUDE THIS FILE INTO YOUR PROGRAM.
**      IT WILL BE IMPLICITLY IMPORTED.
*/

unit
module Mouse
    export Where, Hide, Show, ButtonMoved, ButtonWait, ButtonChoose,
           SetPosition

    external "mouse_where"
        procedure Where (var x, y, buttonUpDown: int)

    external "mouse_hide" procedure Hide

    external "mouse_show" procedure Show

    external "mouse_buttonmoved"
        function ButtonMoved (motionStr: string): boolean

    external "mouse_buttonwait"
        procedure ButtonWait (motionStr: string, var x, y: int,
                              var btnNumber, buttonUpDown: int)

    external "mouse_buttonchoose"
        procedure ButtonChoose (chooseStr: string)


    /* Experimental */

    external "mouse_setposition" procedure SetPosition (x, y: int)

end Mouse


-----------------------------------

[Gandalf]

Fri Aug 11, 2006 3:14 pm



-----------------------------------

Likely it's one of those things that they planned on doing in much earlier versions and then completely scrapped.  It doesn't exist in Turing 4.1 either, and I wouldn't expect it from future versions.  Like Cervantes said, that would require access to the Windows API, and it doesn't seem like that's on HoltSoft's priority list (if they even have one).


-----------------------------------

TokenHerbz

Sat Aug 12, 2006 7:09 am



-----------------------------------

How do you access the Windows API??


-----------------------------------

Cervantes

Sat Aug 12, 2006 8:17 am



-----------------------------------

Please TokenHerbz, read the thread. The point is that, in Turing, you can't.