The idea behind this stack is to be able to resize it (and, ultimately,
and objects on the card that might need resizing and/or repositioning)
via grabbing and dragging the brown graphic circle in the bottom, right hand corner.
The 'only' problem is that there is a considerable lag between a grab-N-drag
and the mouseStillDown script firing to perform a resize.
Code: Select all
on mouseDown
grab me
end mouseDown
on mouseStillDown
put the bottom of grc "DRAGGER" into BUM
put the right of grc "DRAGGER" into RITE
if RITE < 400 then
set the width of stack "RESIZER" to 400
else
set the width of stack "RESIZER" to RITE
end if
if BUM < 400 then
set the height of stack "RESIZER" to 400
else
set the height of stack "RESIZER" to BUM
end if
set the top of stack "RESIZER" to 150
end mouseStillDown
on mouseUp
put the bottom of grc "DRAGGER" into BUM
put the right of grc "DRAGGER" into RITE
if RITE < 400 then
set the width of stack "RESIZER" to 400
set the right of grc "DRAGGER" to 400
else
set the width of stack "RESIZER" to RITE
end if
if BUM < 400 then
set the height of stack "RESIZER" to 400
set the bottom of grc "DRAGGER" to 400
else
set the height of stack "RESIZER" to BUM
end if
set the top of stack "RESIZER" to 150
end mouseUp