#!/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 "$@"
DragPaneDivisionB & BDragPaneDivision U Tahoma cREVGeneral scriptChecksum ُ B~
debugObjects
bookmarks handlerList tempScript prevHandler preOpenStackscriptSelection char 1 to 0script cRevStandaloneSettings :scriptLibraries Internet
Geometry
PrintingMacOSX false OSX,name DragPaneDivisionMacOS,documentType UNIX,fileSelector trueWindows trueWindows,LegalCopyright ,2006 Freelance All rights reserved worldwideMacOS,longVersion DragPaneDivision 1.0.0.0UNIX,pageSetup trueOSX,documentType Linux falseOdt false inclusions selectWindows,documenticonFile =D:/Program Files/Revolution 2.6.1/Sample Icons/genericdoc.ico
answerDialog trueSPARC false SolIntel falseOSX,documentExtension Windows,FileDescription $DragPaneDivision 1.0.0.0 for WindowsOSX,longVersion DragPaneDivision 1.0.0.0 MacOSfat falseOSX,copyright ,2006 Freelance All rights reserved worldwideUNIX,printerChooser trueMacOS,MinimumSize 15000MacOS,versionnumber1 1MacOS,versionnumber2 0MacOS,Release FinalOSX,identifier com.freelance.dragpanedivisionname DragPaneDivisionMacOS,versionnumber3 0Hp9k700 falsers6000 false
MacOS,Region 1OSX,shortVersion 1.0.0.0Windows,fileversion1 1Windows,productversion1 1Windows,fileversion2 0Windows,productversion2 0Windows,fileversion3 0Bsd falsecursors trueWindows,productversion3 0Windows,fileversion4 0Windows,productversion4 0 OSX,info DragPaneDivision Version 1.0.0.0 MacOS68k falseMacOS,dynamicMemory trueIris false
askDialog trueOSX,signature ????Windows,iconFile =D:/Program Files/Revolution 2.6.1/Sample Icons/genericapp.icoMacOS,PreferredSize 15000Windows,ProductName DragPaneDivisionUNIX,colorChooser true MacOSPPC falseWindows,companyname Freelance SolSparc falseMacOS,creator ???? cREVGeometryCache stackID 1017 @ cREVGeometryCacheIDs 1137869737839 10131137858749245 10101137858703536 10091137948905651 10151137807260619 10041137808869558 10081137807268650 1006 cREVGeometrycache total 7order
List1 )` .
cREVTable currentview Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line cREVGeneral scriptChecksum ُ B~ breakPoints handlerList scriptSelection char 1 to 0
bookmarks revUniqueID
1137807260619 prevHandler mouseDown tempScript script Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line ` @ /
List2 )p
on mouseEnter
Global List1LeftPos
Global List2RightPos
put the left of field "List1" into List1LeftPos
put the right of field "List2" into List2RightPos
end mouseEnter
on mouseLeave
set the lockCursor to false
set the cursor to arrow
end mouseLeave
on mouseMove
Global List2MouseHPos
put (the mouseH - the left of field "List2") into List2MouseHPos
if List2MouseHPos <= 2 then
Global lockTextStatusList1
put the lockText of field "List1" into lockTextStatusList1
set the lockText of field "List2" to true --NECESSARY TO ALLOW MOUSEDOWN
Global lockTextStatusList2
put the lockText of field "List2" into lockTextStatusList2
set the lockText of field "List2" to true --NECESSARY TO ALLOW MOUSEDOWN
set the lockCursor to true
set the cursor to 1009
else
Global DraggingPane
if DraggingPane = 0 then
set the lockCursor to true
set the cursor to arrow
set the backcolor of field "Indicator" to blue
else
set the backcolor of field "Indicator" to red
set the lockCursor to true
set the cursor to 1009
end if
end if
----------------------------------------------------------------------------
Global DraggingPane
if DraggingPane = 1 then
put the mouseH into field "MouseLocLabel"
put the mouseH - 4 into ProposedWidthOfList1
put (the width of this stack - the mouseH - 30 + 4) into ProposedWidthOfList2
if ProposedWidthOfList1 < 15 or ProposedWidthOfList2 < 15 then
pass mouseMove
end if
set the width of field "List1" to ProposedWidthOfList1
set the width of field "List2" to ProposedWidthOfList2
set the left of field "List1" to 15
set the right of field "List2" to the width of this stack - 15
else
put empty into field "MouseLocLabel"
end if
end mouseMove
on mouseDown
beep
Global List2MouseHPos
Global lockTextStatusList1
Global lockTextStatusList2
if List2MouseHPos <= 15 then
Global lockTextStatusList1
put the lockText of field "List1" into lockTextStatusList1
Global lockTextStatusList2
put the lockText of field "List2" into lockTextStatusList2
set the lockCursor to true
set the cursor to 1009
set the backcolor of field "Indicator" to red
Global DraggingPane
put 1 into DraggingPane
end if
end mouseDown
on mouseUp
Global lockTextStatusList1
set the lockText of field "List1" to lockTextStatusList1
Global lockTextStatusList2
set the lockText of field "List2" to lockTextStatusList2
set the backcolor of field "Indicator" to blue
Global DraggingPane
put 0 into DraggingPane
end mouseUp
on mouseRelease theButton --SENT FROM LIST1 WHEN THE MOUSE IS RELEASED ON IT
if theButton is 1 then
Global lockTextStatusList1
set the lockText of field "List1" to lockTextStatusList1
Global lockTextStatusList2
set the lockText of field "List2" to lockTextStatusList2
set the backcolor of field "Indicator" to blue
Global DraggingPane
put 0 into DraggingPane
else pass mouseRelease
end mouseRelease
.
cREVTable currentview Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line
Line cREVGeneral scriptChecksum U IRMI
bookmarks revUniqueID
1137807268650 handlerList >mouseEnter
mouseLeave
mouseMove
mouseDown
mouseUp
mouseReleasescriptSelection char 3090 to 3089 prevHandler mouseDown tempScript script +v
on mouseEnter
Global List1LeftPos
Global List2RightPos
put the left of field "List1" into List1LeftPos
put the right of field "List2" into List2RightPos
end mouseEnter
on mouseLeave
set the lockCursor to false
set the cursor to arrow
end mouseLeave
on mouseMove
Global List2MouseHPos
put (the mouseH - the left of field "List2") into List2MouseHPos
if List2MouseHPos <= 2 then
Global lockTextStatusList1
put the lockText of field "List1" into lockTextStatusList1
set the lockText of field "List2" to true --NECESSARY TO ALLOW MOUSEDOWN
Global lockTextStatusList2
put the lockText of field "List2" into lockTextStatusList2
set the lockText of field "List2" to true --NECESSARY TO ALLOW MOUSEDOWN
set the lockCursor to true
set the cursor to 1009
else
Global DraggingPane
if DraggingPane = 0 then
set the lockCursor to true
set the cursor to arrow
set the backcolor of field "Indicator" to blue
else
set the backcolor of field "Indicator" to red
set the lockCursor to true
set the cursor to 1009
end if
end if
----------------------------------------------------------------------------
Global DraggingPane
if DraggingPane = 1 then
put the mouseH into field "MouseLocLabel"
put the mouseH - 4 into ProposedWidthOfList1
put (the width of this stack - the mouseH - 30 + 4) into ProposedWidthOfList2
if ProposedWidthOfList1 < 15 or ProposedWidthOfList2 < 15 then
pass mouseMove
end if
set the width of field "List1" to ProposedWidthOfList1
set the width of field "List2" to ProposedWidthOfList2
set the left of field "List1" to 15
set the right of field "List2" to the width of this stack - 15
else
put empty into field "MouseLocLabel"
end if
end mouseMove
on mouseDown
beep
Global List2MouseHPos
Global lockTextStatusList1
Global lockTextStatusList2
if List2MouseHPos <= 15 then
Global lockTextStatusList1
put the lockText of field "List1" into lockTextStatusList1
Global lockTextStatusList2
put the lockText of field "List2" into lockTextStatusList2
set the lockCursor to true
set the cursor to 1009
set the backcolor of field "Indicator" to red
Global DraggingPane
put 1 into DraggingPane
end if
end mouseDown
on mouseUp
Global lockTextStatusList1
set the lockText of field "List1" to lockTextStatusList1
Global lockTextStatusList2
set the lockText of field "List2" to lockTextStatusList2
set the backcolor of field "Indicator" to blue
Global DraggingPane
put 0 into DraggingPane
end mouseUp
on mouseRelease theButton --SENT FROM LIST1 WHEN THE MOUSE IS RELEASED ON IT
if theButton is 1 then
Global lockTextStatusList1
set the lockText of field "List1" to lockTextStatusList1
Global lockTextStatusList2
set the lockText of field "List2" to lockTextStatusList2
set the backcolor of field "Indicator" to blue
Global DraggingPane
put 0 into DraggingPane
else pass mouseRelease
end mouseRelease
Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line ` @ t /
MouseLocLabel
@
@ L
cREVTable currentview cREVGeneral revUniqueID
1137808869558 Pic1 d "Q PNG
IHDR D gAMA a PLTE ~O tRNS
A LIDAT81
CbE fs2%{ |TA,*v*r". p~kCSA@f IENDB` cREVGeneral revUniqueID
1137858703536
Label Field xn
cREVTable currentview Hput url "binfile:EW_08.gif" into image "Pic1"
cREVGeneral revUniqueID
1137858749245 .put url "binfile:EW_08.gif" into image "Pic1"
Indicator
@ blue X@ (
cREVTable currentview cREVGeneral revUniqueID
1137869737839
Label Field
P@ ,
cREVTable currentview #mouseH:
Measured from left of stack cREVGeneral revUniqueID
1137948905651 mouseH: Measured from left of stack