🚀 go-pugleaf

From article <16995@phoenix.Princeton.EDU>, by bskendig@phoenix.Princeton.EDU (Brian Kendig):
> In article <1990Jun5.091419.14219@portia.Stanford.EDU> canuck@portia.Stanford.EDU (William Stocker) writes:
>>I'm writing a Mac program in THINK Pascal 3.0, and need to force the
>>mouse to a particular screen location.  I'm sure it's against Apple's
>>guidelines (there's no SetMouse command I can find in Inside Mac I-V),
>>but there's a good purpose for it -- trust me!
> 
>     DON'T DO IT.  It's *very* bad technique, and your application
>     won't run, besides.

I know you shouldn't do it, but there are times when it is justified.
Here is a Pascal implementation of SetMouse (watch out - here come
the Thought Police!)...

unit UMouseStuff; { mouse utilities }

interface

	procedure SetMouse (pt: Point); { move the current cursor position to the given point }

implementation

	const { low memory globals }
		jCrsrTask = $08EE; { ProcPtr }
		MTemp = $0828; { Point - Low Level interupt mouse location }
		RawMouse = $082C; { Point - unprocessed mouse location }
		Mouse = $830; { Point - processed mouse location }
		CrsrNew = $08CE; { char - set != 0 if mouse has moved }
		CrsrCouple = $08CF; { char - set = 0 if cursor not allowed to move }

	type
		PointPtr = ^Point; { a pointer to a point }

{--- private functions for accessing low memory globals ---}

	function Get_MTemp: Point;

	begin
		Get_MTemp := PointPtr(MTemp)^;
	end; { Get_MTemp }

	procedure Set_MTemp (pt: Point);

		var
			ptp: PointPtr;

	begin
		ptp := PointPtr(MTemp);
		ptp^ := pt;
	end; { Set_MTemp }

	function Get_RawMouse: Point;

	begin
		Get_RawMouse := PointPtr(RawMouse)^;
	end; { Get_RawMouse }

	procedure Set_RawMouse (pt: Point);

		var
			ptp: PointPtr;

	begin
		ptp := PointPtr(RawMouse);
		ptp^ := pt;
	end; { Set_RawMouse }

	function Get_Mouse: Point;

	begin
		Get_Mouse := PointPtr(Mouse)^;
	end; { Get_Mouse }

	procedure Set_Mouse (pt: Point);

		var
			ptp: PointPtr;

	begin
		ptp := PointPtr(Mouse);
		ptp^ := pt;
	end; { Set_Mouse }

	procedure Set_CrsrNew;

		var
			p: Ptr;

	begin
		p := Ptr(CrsrNew);
		p^ := 1;
	end;

	procedure SetMouse (pt: Point);

	begin
		Set_MTemp(pt); { set both of these low memory mouse positions to the new point }
		Set_RawMouse(pt); { (this prevents scaling) }
		Set_CrsrNew; { flag that the mouse has moved }
	end; { SetMouse }

end.

-- 
           Paul Russell, Department of Experimental Psychology
         University of Sussex, Falmer, Brighton BN1 9QG, England
     Janet: paulr@uk.ac.sussex.syma  Nsfnet: paulr@syma.sussex.ac.uk
    Bitnet: paulr%sussex.syma@ukacrl.bitnet  Usenet: ...ukc!syma!paulr