Path: utzoo!attcan!uunet!gistdev!andy
From: andy@gistdev.UUCP (Andy Warinner)
Newsgroups: comp.sys.mac.hypercard
Subject: Exposing overlapped fields (repost)
Message-ID: <478@gistdev.UUCP>
Date: 10 Aug 89 16:09:50 GMT
Organization: Global Information Systems Technology Inc., Savoy, IL
Lines: 32


(I am reposting this since we had some network trouble here)

I am developing a Hypercard stack that will have fields that possibly
overlap each other.  When the user clicks on the exposed portion
of a field that is overlapped, I would like to bring the field closer
so that all of it is visible.  I wrote the following script to do this
but it SLOW (about 4 - 5 seconds on an SE/30 with 4 megs of memory).  

Does anyone out there in netland know a faster way to do this?

-- itemLayer contains the field number
lock screen
choose field tool
click at the clickLoc

-- loop to bring the field up to a certain layer
repeat while itemLayer < field "fieldNum"
	doMenu "bring closer"
	add 1 to itemLayer
end repeat

choose browse tool
unlock screen


Thanks in advance

Andrew Warinner    | "Semper ubi sub ubi" - J. Caesar
GIST, Inc.         | ARPANET: andy%gistdev@uxc.cso.uiuc.edu
Standard           | UUCP   : {uunet,pur-ee,convex}!uiucuxc!gistdev!andy -or-
disclaimer...      |                            ...!uunet!gistdev!andy