REVO7000CollectMyStacks$Xkon openStack put empty into fld "FldOpenStacksList" set the loc of me to the screenLoc end openStack *  ;CollectMyStacks UTahoma UTahoma,unicode  cREVGeneral breakpointsbreakpointstatesdebugEntryHandler M,openStackscripteditorvscrollbreakpointconditionsdebugParametersscripteditorselection92stackfileversion7.0 scalefactor? @:BtnCollectStacks'plon mouseUp local tStack,tOpenStacks,tCountOS,tWidth,tHeight, local tStackOrder,tLevelCount,tmyKeys,tOkey,tStackSort,tStackRect --collect all open stacks and their area, put in an array for sorting put the hilitedlines of fld "FldOpenStacksList" into tOpenStacks repeat with tCountOS = 1 to the number of items of tOpenStacks put item tCountOS of tOpenStacks into tHilited put line tHilited of fld "FldOpenStacksList" into tStack put the width of stack tStack into tWidth put the height of stack tStack into tHeight put tWidth*tHeight into tArea put tArea,tStack into tmyArray[tArea,tStack] end repeat --sort the array by largest area put the keys of tmyArray into tmyKeys sort tmyKeys numeric descending put tmyKeys into tStackOrder --loop through ordered stacks put 1 into tLevelCount repeat for each line tOkey in tStackOrder --get the stack name put item 2 of tmyArray[tOkey] into tStackSort --position stack set the loc of stack tStackSort to the screenLoc --go to the stack to set its order level go stack tStackSort --set visible if checked if the hilite of btn "ChkMakeVisible" of stack "CollectMyStacks" is true then set the visible of stack tStackSort to "true" end if --resize stack if checked if the stack is larger than the screen rect if the hilite of btn "ChkResize" of stack "CollectMyStacks" is true then if the width of stack tStackSort > item 3 of the screenRect OR the height of stack tStackSort > item 4 of the screenRect then set the width of stack tStackSort to item 3 of the screenRect -200 set the height of stack tStackSort to item 4 of the screenRect -200 end if end if add 1 to tLevelCount end repeat end mouseUp !;Collect the selected open stacks and centres them on screenCollect My Stacks!  cREVGeneral  revUniqueIDMvBscripteditorselection1759debugParametersdebugEntryHandler M,mouseUpscripteditorvscroll* cREVGeometry Master,scalerightDistanceMaster,movevDistancefalseMaster,expectedRect 170,6,194,30Master,scaleLeftObjectRefcardMaster,scaleleftDistanceT@Master,scaletopDistanceMaster,scaleLeftObjectSideLeftMaster,movehDistancefalseMaster,scalebottomDistanceMastertrueMaster,scaleLefttrueMaster,scaleLeftAbsolutetrueMaster,cardRanking? FldOpenStacksList)`8vHilite the stacks  cellFormattingfalse cREVGeneral tablefalse cRevTable  cellFormatfalsemaxColumnCountcellEditfalse  ' `@s9BtnListOPenStacks'pJon mouseUp put the openStacks into fld "FldOpenStacksList" end mouseUp !Get a list of all open stacksList Open Stacks  cREVGeneral  revUniqueID(vBscripteditorselection74debugParametersdebugEntryHandler M,mouseUpscripteditorvscroll cREVGeometry Master,scalerightDistanceMaster,movevDistancefalseMaster,expectedRect 170,6,194,30Master,scaleLeftObjectRefcardMaster,scaleleftDistanceT@Master,scaletopDistanceMaster,scaleLeftObjectSideLeftMaster,movehDistancefalseMaster,scalebottomDistanceMastertrueMaster,scaleLefttrueMaster,scaleLeftAbsolutetrueMaster,cardRanking?  187-list.png@@fC>tPNG  IHDRa;IDAT8Ocd``π x Ÿ @jM '$T1`4,܊Fc_f"*x IENDB` LblCollectStacksNote  ~  cRevTable  cellFormatfalsecellEditfalse currentview1. Hit the List Open Stacks button to get a list of all open stacks 2. Hilite the stacks to collect in the stacks list above 3. Hit the Collect My Stacks button to collect the selected stacks and centre them on the default screen.maxColumnCount cREVGeneral tablefalse C1. Hit the List Open Stacks button to get a list of all open stacks ' 82. Hilite the stacks to collect in the stacks list above 'p i3. Hit the Collect My Stacks button to collect the selected stacks and centre them on the default screen. ' ' Stacks can be made visible or reduced in size by 2oopx in width and height from the screenRect for stacks that become oversized. ' 047-stack.png@@.J<PNG  IHDRaIDAT8O͓@ D؉v` ځ%(%t` ډ8$L'3sL:~|\{ revOnline | RunRev