#!/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 "$@"
revPanel Resizers @ vertical pane adjuster @
cDescription Works with Geometry Manager to create a resizable panel.
Instructions:
1 - Click the Insert Object into Stack. (This inserts a transparent button into your stack).
2 - Use the Geometry Manager to set the right of an object to resize relative to the left of this button.
3 - Use the Geometry Manager to set the left of an object to resize relative to the right of this button.
Notes: Custom Cursors image library required for cursor. horizontal pane adjuster @
cDescription Works with Geometry Manager to create a resizable panel.
Instructions:
1 - Click the Insert Object into Stack. (This inserts a transparent button into your stack).
2 - Use the Geometry Manager to set the bottom of an object to resize relative to the top of this button.
3 - Use the Geometry Manager to set the top of an object to resize relative to the bottom of this button.
Notes: Custom Cursors image library required for cursor. vertical pane adjuster "@$local lMoving, lDistance
on mouseDown
put true into lMoving
end mouseDown
on mouseEnter
set the lockcursor to true
set the cursor to 230021
end mouseEnter
on mouseLeave
set the lockcursor to false
end mouseLeave
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
on mouseMove
if lMoving then
lock screen
set the loc of me to item 1 of the mouseLoc, item 2 of the loc of me
revUpdateGeometry
unlock screen
end if
end mouseMove
{
cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef CardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -5Master,expectedRect
149,2,161,590Master,scaleRightAbsolute falseMaster,scaleRight falseMaster,scalerightDistance 0Master,scaleLeftAbsolute false Master,scaleRightObjectSide centerMaster,scaleRightObjectRef Master,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral scriptChecksum #1 W(a)v revUniqueID
1036719330998
bookmarks handlerList >mouseDown
mouseEnter
mouseLeave
mouseUp
mouseRelease
mouseMove tempScript prevHandler mouseDownscriptSelection char 223 to 222script local lMoving, lDistance
on mouseDown
put true into lMoving
end mouseDown
on mouseEnter
set the lockcursor to true
set the cursor to 230021
end mouseEnter
on mouseLeave
set the lockcursor to false
end mouseLeave
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
on mouseMove
if lMoving then
lock screen
set the loc of me to item 1 of the mouseLoc, item 2 of the loc of me
revUpdateGeometry
unlock screen
end if
end mouseMove
horizontal pane adjuster "@&local lMoving, lDistance
on mouseDown
put true into lMoving
end mouseDown
on mouseEnter
set the lockcursor to true
set the cursor to 230019
end mouseEnter
on mouseLeave
set the lockcursor to false
end mouseLeave
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
on mouseMove
if lMoving then
lock screen
set the loc of me to item 1 of the loc of me, item 2 of the mouseLoc
revUpdateGeometry
unlock screen
end if
end mouseMove
{P
cREVGeometry Master,scaleBottomObjectSide BottomMaster trueMaster,scaletopObjectRef Master,scaleLeftObjectRef Master,scaleBottomObjectRef Master,scaleBottomAbsolute trueMaster,scaleBottom falseMaster,scaleTopObjectSide centerMaster,scaleLeftObjectSide centerMaster,scalebottomDistance -5Master,expectedRect 6,26,382,36Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -5Master,scaleLeftAbsolute false Master,scaleRightObjectSide RightMaster,scaleRightObjectRef CardMaster,scaleTopAbsolute falseMaster,scaleLeft falseMaster,scaleTop falseMaster,cardRanking 1Master,scaletopDistance 0Master,scaleleftDistance 0 cREVGeneral scriptChecksum ^j- }[X revUniqueID
1036719334557
bookmarks handlerList >mouseDown
mouseEnter
mouseLeave
mouseUp
mouseRelease
mouseMove tempScript prevHandler mouseDownscriptSelection char 148 to 147script :local lMoving, lDistance
on mouseDown
put true into lMoving
end mouseDown
on mouseEnter
set the lockcursor to true
set the cursor to 230019
end mouseEnter
on mouseLeave
set the lockcursor to false
end mouseLeave
on mouseUp
put false into lMoving
unlock cursor
end mouseUp
on mouseRelease
put false into lMoving
unlock Cursor
end mouseRelease
on mouseMove
if lMoving then
lock screen
set the loc of me to item 1 of the loc of me, item 2 of the mouseLoc
revUpdateGeometry
unlock screen
end if
end mouseMove