#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
ê
libCursor žon mouseMove
if the tool is "browse tool" then
put "set the cursor to arrow" into tCursor
set the lockCursor to true
if word 1 of the target is "button" or word 1 of the target is "player" then put "set the cursor to hand" into tCursor
if word 1 of the target is "field" then
if the mouseChunk <> "" then
if "link" is among the items of the textstyle of the mouseChunk then
put "set the cursor to hand" into tCursor
end if
end if
end if
do tCursor
else
set the lockCursor to false
end if
pass mouseMove
end mouseMove
on mouseLeave
set the lockCursor to false
pass mouseLeave
end mouseLeave
€ ? cContributingAuthors VMonte Goulding, mailto:monte@sweattechnologies.com, http://www.sweattechnologies.com;
cVersion 0.1cLibraryPurpose ‡Cursor management library to use the standard system pointer for everything with the exception of buttons or links which use the hand. ÿÿÿÿ
cDescription
mouseMove ‚If you handle the mouseMove message just make sure it is passed unless you want to override the cursor management for that object. mouseLeave ÍThis is mainly for unlocking the cursor when it leaves the stack/card.
If you handle the mouseLeave message just make sure it is passed unless you want to override the cursor management for that object.
cREVGeneral scriptChecksum YBÛOmHh£?ðê+ükGL
bookmarks handlerList mouseMove
mouseLeavescriptSelection char 670 to 669 prevHandler tempScript script on mouseMove
if the tool is "browse tool" then
put "set the cursor to arrow" into tCursor
set the lockCursor to true
if word 1 of the target is "button" or word 1 of the target is "player" then put "set the cursor to hand" into tCursor
if word 1 of the target is "field" then
if the mouseChunk <> "" then
if "link" is among the items of the textstyle of the mouseChunk then
put "set the cursor to hand" into tCursor
end if
end if
end if
do tCursor
else
set the lockCursor to false
end if
pass mouseMove
end mouseMove
on mouseLeave
set the lockCursor to false
pass mouseLeave
end mouseLeave
ê @