Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!littlei!ogcvax!afoster
From: afoster@ogcvax.UUCP (Allan Foster)
Newsgroups: comp.sys.mac
Subject: Re: Hypercard
Message-ID: <1462@ogcvax.UUCP>
Date: Mon, 19-Oct-87 15:28:53 EDT
Article-I.D.: ogcvax.1462
Posted: Mon Oct 19 15:28:53 1987
Date-Received: Fri, 23-Oct-87 00:56:17 EDT
References: <30594@sun.uucp> <253@nikhefk.UUCP> <255@nikhefk.UUCP> <apple.6478>
Reply-To: afoster@ogcvax.UUCP (Allan Foster)
Organization: Oregon Graduate Center, Beaverton, OR
Lines: 56

In article <apple.6478> kateley@apple.UUCP (Jim Kateley) writes:
>In article <255@nikhefk.UUCP> paulm@nikhefk.UUCP (Paul Molenaar) writes:
>>...
>>Anyone any idea to prevent HyperCard from changing the cursor?
>>...
>>
>>        Paul Molenaar
>>
>>	"Just checking the walls"
>>		- Basil Fawlty -
>
>Yes!  Don't figure out coordinates, let HC do the work for you.
>
>In the button script, try:
>
>on mouseWithin
>	set the cursor to XXX
>end mouseWithin
>
>or, this might work (don't have HC in front of me to try it with :-()
>
>on mouseEnter
>	set the cursor to XXX
>end mouseEnter
>
>See page 6-1 of the HC Script language guide for the complete def. of
>these system messages.
>
Very nice except for one problem,  it does not WORK!!!!  Hypercard
resets the cursor to the current cursor that it thinks it should
have whenever it regains control.  The effect of this script
would be to flash to cursor XX and then back to the pointer,

Sorry,  but you have to write a script like this to follow the cursor

on mouseenter
	put the rect of me into myrect
	set the cursor to XX
	repeat until notin(the mouseloc,myrect)
        end repeat
end mouseenter

function inrect p,r
	if first item of p < first item of r 
	  or first item of p > third item of r
	  or second item of p < second item of r
	  or second item of p > fourth item of r
	  then return true
	  else return false
end inrect

I know it is a gross way to do it but it is is the only way!

Allan Foster

afoster!ogcvax