A Positioning Mystery

[Richard Gaskin]

Frank Leahy wrote:

> If you have geometry on for any of the items in the group, I highly
> recommend you turn them off and do the resizing yourself.  It won't
> take much code to write it yourself, and you won't have any funny
> side-effects. 

A handy handler for assisting resizing, allowing you one line per object:

on ObjRect pObj
  local r,i
  put the rect of pObj into r
  repeat with i = 2 to 5
    get param(i)
    if it is not empty then put it into item (i-1) of r
  end repeat
  set the rect of pObj to r
end ObjRect


on resizeStack x,y
  ObjRect the long id of fld 1, "","",x-200,y-20
  ObjRect the long id of fld 2, the left of fld 1,"",x-20,y-20
  pass resizeStack
end resizeStack


-- 
 Richard Gaskin 
 Fourth World Media Corporation
 ___________________________________________________________
 Ambassador at FourthWorld.com       http://www.FourthWorld.com