stone@hydra.unm.edu.unm.edu (Andrew Stone CS.DEPT) (12/20/88)
Many thanks to Sioux Lacey for the great "Groupies 3.2" tools
in Windoid #8. Elegant and understandable code. One futher tool which
is useful if the objects are different sizes [maybe you are retrofitting a
stack and you did not use cloning to produce objects] is the following
handler, which changes the height and width of each item in the global
objectlist to that of the first item. Allows some redefinition of which
object is the first. Just add it in with the rest: AlterSizes:
--------------------------------------------------------------------
AlterSizes: changes size of each object in objectlist to width and height of
first item. Allows some choosing of which item is the first
"-|" is option return.
--------------------------------------------------------------------
on AlterSizes
global objectlist
if objectlist is empty then exit AlterSizes
answer "Set objects to size of which?" with -|
"Top/leftmost" or "As grouped" or "Cancel"
if it is "Top/leftmost" then
answer "Set other objects to size of :" -|
with "Top item" or "LeftMost" or "Cancel"
if it is "Top Item" then sortGroup Vertically
else if it is "LeftMost" then sortGroup horizontal
end if
if it is "Cancel" then exit Altersizes
put height of item 1 of objectlist into deltaV
put width of item 1 of objectlist into deltaH
repeat with i = 2 to number of items in objectlist
put item i of objectlist into myObj
set the rect of myObj to left of myObj,top of myObj, -|
left of myObj + deltaH, top of myObj + deltaV
end repeat
end AlterSizes
andrew
ps: How many other toolcrazy hyperhackers out there have already broken the
32 k maximum script size, and wish there was another node in the hierarchy to
store globally accessible scripts?
||<<++>>||<<-->>||<<==>>||<<++>>||<<??>>||<<++>>||<<-->>||<<==>>||<<++>>||
|| ||
|| Andrew Stone stone@hydra.unm.edu (505) 345-4800 ||
|| ||
||<<++>>||<<-->>||<<==>>||<<++>>||<<??>>||<<++>>||<<-->>||<<==>>||<<++>>||