REVO2700     ) altGroupMgr 3 €X   4E--> all handlers

on stripAndShip
    put "" into fld "GroupList"
    put "" into fld "CurrentCard"
    put "" into fld "CurrentStack"
end stripAndShip

on doIt
  #answer "put your plugin script  in the doIt handler of the stack script!"
end doIt


--> ALTLAYOUT SCRIPTS
--> DO NOT TOUCH UNLESS YOU KNOW WHAT YOU ARE DOING

local lAltChecking,lAltOldWH,lPlatform
local lHasDividerBeenUsed


on preOpenStack --> AUTO-GENERATED BY altLayout Manager
  initAltLayoutLib
end preOpenStack

on preOpenCard
  --> COMMENT THIS SCRIPT OUT FOR SINGLE CARD STACKS
  
  --> THIS SCRIPT WILL AUTO LAYOUT FOR EACH CARD BEFORE OPENING
  --> THIS WAY ONLY THE CONTROLS ON A GIVEN CARD ARE MANANAGED AT ONE TIME
  --> RESULTING IN MUCH FASTER PERFORMANCE
  --> IF YOU HAVE A preOpenCard SCRIPT IN YOUR CARD, THEN BE SURE AND PASS IT
  --> EDIT THIS SCRIPT HOW YOU LIKE
  
  put the width of this stack into pW
  put the height of this stack into pH
  send "resizeStack pW,pH,pW,pH" to this card in 50 millisecs
  
end preOpenCard


on resizeStack pNewW,pNewH,pOldW,pOldH  --> AUTO-GENERATED BY altLayout Manager
  --> CAPTURE FIRST pOldW,pOldH
  if lAltOldWH is empty then put pOldW,pOldH into lAltOldWH
  get the priv_ResizeControlList of this stack
  repeat for each line L in it  
    if exists(L) then
      put the altLayoutManager["altCard"] of L into tCard 
      if word 1 of tCard is not "card" then
        --> IT IS A CONTROL WHICH IS PART OF A BACKGROUND  
        --> IS THE BACKGROUND ON THIS CD?
        if tCard is among the lines of the groupIDs of this card then
          altSetRect L,(the altLayoutManager["altCmd"] of L)
        end if
      else
        if tCard = the name of this card then
          altSetRect L,(the altLayoutManager["altCmd"] of L)
        end if
      end if
    end if
  end repeat
  
  if lAltChecking <> true then
    CheckMouseState
  end if
  pass resizeStack
end resizeStack --> END AUTO-GENERATED BY altLayout Manager

function checkHasDividerBeenUsed
  return lHasDividerBeenUsed
end checkHasDividerBeenUsed()

on setHasDividerBeenUsed pFlag
  put pFlag into lHasDividerBeenUsed
end setHasDividerBeenUsed

on initAltLayoutLib
  switch the platform
  case "MacOS"
    put "MacOSX" into lPlatform
    altSetLayoutMode "MacOSX"
    break
  case "Win32"
    put "WinXP" into lPlatform
    altSetLayoutMode "WinXP"
    break
  default
    put "Other" into lPlatform
    altSetLayoutMode "Other"
    break
  end switch
  put false into lHasDividerBeenUsed
end initAltLayoutLib

on altSetLayoutMode pMode
  put the short name of this stack into tTheStackName
   
  if tTheStackName is "LayoutManager" then
    answer "Can't edit the Layout Manager stack!"
    exit to top
  end if
   
  replace space with "" in pMode
  altInitStack pMode
  altInitControls pMode
end altSetLayoutMode

on altInitStack pMode
  put the short name of this stack into tTheStackName
  if pMode is "WinXP" then
    if there is a btn "altDrag" then 
      show btn "altDrag"
    end if
  else
    if there is a btn "altDrag" then
      hide btn "altDrag"
    end if
  end if
   
  --> RESIZE STACK
  put the rect of this stack into tRect
   
  --> MINWIDTH
  put pMode & "altMinWidth" into tProp
  if "altMinWidth" is among the lines of the customKeys of this stack then
    if tProp is among the lines of the customKeys of this stack then
      put "put the " & tProp & " of this stack into tPropValue" into tDo
      do tDo
      if isNumber(tPropValue) and tPropValue > 32 then 
        set the altMinWidth of this stack to tPropValue
      end if
    end if
    set the minWidth of this stack to the altMinWidth of this stack
  end if
   
  --> MINHEIGHT
  put pMode & "altMinHeight" into tProp
  if "altMinHeight" is among the lines of the customKeys of this stack then
    if tProp is among the lines of the customKeys of this stack then
      put "put the " & tProp & " of stack " & quote & tTheStackName & quote & " into tPropValue" into tDo
      do tDo
      if isNumber(tPropValue) and tPropValue > 32 then 
        set the altMinHeight of this stack to tPropValue
      end if
    end if
    set the minHeight of this stack to the altMinHeight of this stack
    #set the height of this stack to the altMinHeight of this stack
  end if
   
  --> MAXWIDTH
  put pMode & "altMaxWidth" into tProp
  if "altMaxWidth" is among the lines of the customKeys of this stack then
    if tProp is among the lines of the customKeys of this stack then
      put "put the " & tProp & " of stack " & quote & tTheStackName & quote & " into tPropValue" into tDo
      do tDo
      if isNumber(tPropValue) and tPropValue > 32 then 
        set the altMaxWidth of this stack to tPropValue
      end if
    end if
    set the maxWidth of this stack to the altMaxWidth of this stack
    #set the width of this stack to the altMaxWidth of this stack
  end if
   
  --> MAXHEIGHT
  put pMode & "altMaxHeight" into tProp
  if "altMaxHeight" is among the lines of the customKeys of this stack then
    if tProp is among the lines of the customKeys of this stack then
      put "put the " & tProp & " of stack " & quote & tTheStackName & quote & " into tPropValue" into tDo
      do tDo
      if isNumber(tPropValue) and tPropValue > 32 then 
        set the altMaxHeight of this stack to tPropValue
      end if
    end if
    set the maxHeight of this stack to the altMaxHeight of this stack
    #set the height of this stack to the altMaxHeight of this stack
  end if
   
  --> SET THE STACK RECT USING MIN NUMBERS
  set the rect of this stack to \
      item 1 of tRect, \
      item 2 of tRect, \
      item 1 of tRect + the minWidth of this stack, \
      item 2 of tRect + the minHeight of this stack

end altInitStack

on altInitControls pMode
  --> SET CONTROL RECTS AND BEHAVIOR
  put the short name of this stack into tTheStackName
  put the environment into tEnvironment
  --> NEVER WALK THRU CONTROLS...JUST USE CONTROL LIST
  if tEnvironment is "development" then
    --> WALK THRU CONTROLS IS SLOWER BUT MORE ACCURATE
    makeControlsList
  end if
  
  --> WALK THRU CONTROL LIST AND SET LOC
  put the altResizeControlList of this stack into tControlList
   
  --> CORRECT STACK NAMES
  put the effective fileName of this stack into tStackName
  replace "<stackname>" with tStackName in tControlList
  set the priv_ResizeControlList of stack tStackName to tControlList
   
  repeat for each line L in tControlList
     
    if exists(L) then
      put the altLayoutManager["altCard"] of L into tCard 
      if word 1 of tCard is not "card" then
        --> IT IS A CONTROL WHICH IS PART OF A BACKGROUND  
        --> IS THE BACKGROUND ON THIS CD?
        if tCard is among the lines of the groupIDs of this card then 
          altInitRect L,pMode
        end if
      else
        if tCard = the name of this card then
          altInitRect L,pMode
        end if
      end if
    end if
  end repeat
  
end altInitControls

on makeControlsList
  put the short name of me into tTopStack
  
  set the wholeMatches to true
  
  put the long ID of the current card of stack tTopStack into tCurrCdID
  lock messages
  repeat with x = 1 to the number of cds in stack tTopStack
    go cd x
    put "" into tDupeNamesList
    repeat with y = 1 to the number of controls in the current card of stack tTopStack
      
      put the long id of control y of cd x of stack tTopStack into tObjID
      if "altLayoutManager" is among the lines of the customPropertySets of tObjID then
        
        --> WE NEED TO CHECK FOR DUPLICATE NAMES AND NOTIFY USER IF THERE ARE SOME
        put the name of control y into tTestForDupe
        
        if lineOffset(tTestForDupe,tDupeNamesList) is not 0 then --> A CONTROL WITH THIS NAME EXISTS
          answer warning "You have two controls on cd: " &y& " with the same name:" & cr &\
          tTestForDupe &cr&cr& "Please rename one!"
          go tCurrCdID
          unlock messages
          exit to top
        end if
        put the name of control y of cd x of stack tTopStack & cr after tDupeNamesList
         
        --> CHECK TO SEE IF THIS CONTROL IS IN A BG GRP
        #put the long id of control y of cd x of stack tTopStack into tObjID 
        if tObjID contains "group" then
           
          --> CHECK TO SEE IF IT IS BG GRP
          put the backgroundIDs of stack tTopStack into tGrpID # of cd x of stack tTopSTack into tGrpID
          repeat for each line U in tGrpID
            put "group id " & U into tID
            if tID is in tObjID then 
               
              --> IT IS A BACKGROUND GRP CONTROL SO DELETE THE CARD/STACK REF
              put offset(" of card",tObjID) into tStart
              delete char tStart to the length of tObjID of tObjID
              if tObjID is among the lines of tControlList then
                put "" into tObjID
              end if
              exit repeat
            end if
          end repeat
           
        end if
         
        --> TRACK EACH CONTROL SO THAT WE CAN LATER SET A PROPERTY FOR THE CONTROLLIST
        if tObjID is not "" then put tObjID & cr after tControlList 
      end if
    end repeat
     
  end repeat
  delete last char of tControlList
   
  go tCurrCdID
  unlock messages
   
  --> SAVE THE CONTROL LIST FOR PARSING ON STARTUP
  --> THIS WAY YOU DON'T HAVE TO DO THRU EACH OBJECT ON EACH CD, JUST CHECK THIS LIST
  --> ALSO NEED TO REPLACE THE ABSOLUTE STACK NAME BECAUSE IT MAY CHANGE IN THE STANDALONE
  --> CHANGED TO MAKE PERFORMANCE FASTER FOR MULTIPLE CARD STACKS
   
  set itemDel to quote
  put empty into tList
  repeat for each line L in tControlList
    put L into tStr
    if tStr contains " stack" then
      put item -1 of L into tReplaceStr
      replace tReplaceStr with "<stackname>" in tStr
    end if
    put tStr & cr after tList
  end repeat
  if tList <> "" then delete last char of tList
  set the altResizeControlList of stack tTopStack to tList
  set the priv_ResizeControlList of stack tTopStack to tControlList
end makeControlsList


on altInitRect pObj,pPlatform
  put the altLayoutManager["WinXPaltRect"] of pObj into tRect
  if tRect is "" then put the altLayoutManager["MacOSXaltRect"] of pObj into tRect
  if tRect is "" then put the altLayoutManager["OtheraltRect"] of pObj into tRect
  
  switch pPlatform
  case "MacOSX"
    get the altLayoutManager["MacOSXaltRect"] of pObj
    if it is not empty then put it into tRect
    break
  case "Other"
    get the altLayoutManager["OtheraltRect"] of pObj
    if it is not empty then put it into tRect
    break
  end switch
  
  set the rect of pObj to tRect
end altInitRect

on altSetRect pObj,pCommands
  
  put long id of this card into pRelativeTo
   
  -- ANOTHER OBJECT PASSED AS LONG ID
  put the left of pRelativeTo into tLeft
  put the top of pRelativeTo into tTop
  put the right of pRelativeTo into tRight
  put the bottom of pRelativeTo into tBot
   
  put the rect of pObj into tRect
  put the rect of pObj into tRectNew
   
  replace comma with cr in pCommands
  replace ":" with comma in pCommands
  repeat for each line tCmd in pCommands
    switch (item 1 of tCmd)
    case "SX" -->SCALES RIGHT
      put (tRight + (item 2 of tCmd)) into item 3 of tRectNew
      break
    case "SY" -->SCALES DOWN
      put (tBot + (item 2 of tCmd)) into item 4 of tRectNew
      break
    case "MX" --> MOVES RIGHT
      put (tRight + (item 2 of tCmd)) into tRightNew
      put tRightNew - (item 3 of tRect - item 1 of tRect) into item 1 of tRectNew
      put tRightNew into item 3 of tRectNew
      break
    case "MY" --> MOVES DOWN
      put (tBot + (item 2 of tCmd)) into tBotNew --item 4 of tRectNew
      put tBotNew - (item 4 of tRect - item 2 of tRect) into item 2 of tRectNew
      put tBotNew into item 4 of tRectNew
      break
    case "CX" --> CENTERS ALONG THE X AXIS (NO SCALE)
      put (item 3 of tRect - item 1 of tRect) into tWidth
      put round((tRight/2) - (tWidth/2)) + item 2 of tCmd into tLeftNew
      put tLeftNew + tWidth into item 3 of tRectNew
      put tLeftNew into item 1 of tRectNew
      break
    case "CY" --> CENTERS ALONG THE Y AXIS (NO SCALE)
      put (item 4 of tRect - item 2 of tRect) into tHeight
      put round((tBot/2) - (tHeight/2)) + item 2 of tCmd into tTopNew
      put tTopNew + tHeight into item 4 of tRectNew
      put tTopNew into item 2 of tRectNew
      break
    end switch
  end repeat
   
  set the rect of pObj to tRectNew
end altSetRect

on doneResizing
  put false into lAltChecking
  put item 1 of lAltOldWH into tOldWidth
  put item 2 of lAltOldWH into tOldHeight
  
  put the rect of this stack into tRect
  put the width of this stack into tWidth
  put the height of this stack into tHeight
  
  if tOldHeight > tHeight or tOldWidth > tWidth then
    if checkHasDividerBeenUsed() is true then
      altInitControls lPlatform
      setHasDividerBeenUsed false
      put the width of this stack into pW
      put the height of this stack into pH
      send "resizeStack pW,pH,pW,pH" to this cd in 50 millisecs
    end if
  end if
  put "" into lAltOldWH
end doneResizing

on CheckMouseState
  put true into lAltChecking
  if the mouse is up then
    doneResizing
  else
    if "CheckMouseState" is not among the items of the pendingMessages then
      send CheckMouseState to me in 10 milliseconds
    end if
  end if
end CheckMouseState

--> END ALTLAYOUT SCRIPTS
     Ђ  љ?d Ы   MacOSXaltMinWidth  356altResizeControlList ёgraphic id 1044 of card id 1002 of stack "<stackname>"
button id 1004 of card id 1002 of stack "<stackname>"
field id 1006 of card id 1002 of stack "<stackname>"
field id 1020 of card id 1002 of stack "<stackname>"
button id 1022 of card id 1002 of stack "<stackname>"
button id 1023 of card id 1002 of stack "<stackname>"
field id 1029 of card id 1002 of stack "<stackname>"
image id 1043 of card id 1002 of stack "<stackname>"
image id 1045 of card id 1002 of stack "<stackname>"
image id 1046 of card id 1002 of stack "<stackname>"
button id 1041 of card id 1002 of stack "<stackname>"
button id 1042 of card id 1002 of stack "<stackname>"
button id 1059 of card id 1002 of stack "<stackname>"MacOSXaltMinHeight  219altMinWidth  356altMinHeight  219priv_ResizeControlList їgraphic id 1044 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1004 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
field id 1006 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
field id 1020 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1022 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1023 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
field id 1029 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
image id 1043 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
image id 1045 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
image id 1046 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1041 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1042 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"
button id 1059 of card id 1002 of stack "C:/Documents and Settings/Chipp Walters/My Documents/My Revolution Enterprise/Plugins/altPlugs/altGroupMgr.rev"Т         altGroupMgr d Ыяяяя     U Tahoma   U tahoma   U tahoma  
 U Tahoma  	 U tahoma  
 U tahoma  
cConsLast    HandlerScroll  0HandlerName  stripAndShip	 	command cREVGeometryCache    stackID  1065 cREVGeneral    scripteditorvscroll  0breakpointconditions   debugObjects   breakpoints   scripteditorselection  0breakpointstates     к    	Pp--> all handlers

on openStack
  refreshGroupList  
end openStack

on moveStack
   refreshGroupList
end moveStack

on resumeStack
   refreshGroupList
end resumeStack

on refreshCurrentCardStatus pGrpID
   put the topStack into tStack    
   put fld "GroupList" into tList
   set itemDel to tab
   repeat with x = 1 to the number of lines in tList
      put item 3 of line x of tList into tGrpID
      if exists(group ID tGrpID of the current card of tStack) then
         put "YES" into item 2 of line x of tList
      else
         put "NO" into item 2 of line x of tList
      end if
   end repeat
   sort lines of tList descending by item 2 of each 
   put tList into fld "GroupList"
   
   if pGrpID is not "" then 
      #set the wholematches to true
      put lineOffset(tab&pGrpID&tab,tList) into t
      if t is not empty then
         set the hilitedline of fld "GroupList" to t
         updateVscroll
      end if
   end if
   
end refreshCurrentCardStatus

function selectedGrp pShowErrors
    put the topStack into tStack 
    if word 2 of tStack contains "altGroupMgr" then 
        if pShowErrors <> "false" then
            answer warning "Please don't edit THIS stack!"
        end if
        exit to top
    end if
    put the hilitedlines of fld "GroupList" into tNum
    if tNum is empty then
        if pShowErrors <> "false" then
            answer information "Please select a Group from the list!"
        end if
        exit to top
    end if
    return tNum
end selectedGrp

on refreshGroupList pGrpID
   
   put the vscroll of fld "GroupList" into tVscroll
   
   put the topStack into tStack 
   set the wholematches to true
   put the number of the current card into tCurrCard
   put the short name of the topStack into fld "CurrentStack"
   put the short name of the current card of the topStack into fld "CurrentCard"
   put "" into tTotIDs
   repeat with x = 1 to the number of cards in tStack
      repeat with y = 1 to the number of groups of card x of tStack
         if " group" is in the long name of grp y of cd x of tStack then next repeat
         put the id of grp y of cd x of tStack into tID
         if tID is not among the lines of tTotIDs then
            put tID & cr after tTotIDs
            put x &tab&tab& tID &tab& the short name of grp y of cd x of tStack & cr after tGroupList
         end if
      end repeat    
   end repeat
   delete last char of tGroupList
   put tGroupList into fld "GroupList"
   refreshCurrentCardStatus pGrpID
   refreshButtons
end refreshGroupList

on refreshButtons
    disable btn "Place Selected Grp on Cd"
    disable btn "Remove Selected Grp from Cd"
    put selectedGrp(false) into tNum
    put line tNum of fld "GroupList" into tGrpInfo
    set itemDel to tab
    put item 2 of tGrpInfo into tVis
    if tVis is "YES" then
        enable btn "Remove Selected Grp from Cd"
    else
        enable btn "Place Selected Grp on Cd"
    end if
 end refreshButtons
 
on updateVscroll
   put the hilitedline of fld "GroupList" into tLineNum
   if tLineNum is empty then exit updateVscroll
   put the vScroll of fld "GroupList" into tVscroll
   put the effective textHeight of fld "GroupList" * tLineNum -14 into tCurrScroll
   put the height of fld "GroupList" into tFldHeight
   if tCurrScroll < tVscroll or tCurrScroll > tVscroll + tFldHeight then 
      set the vScroll of fld "GroupList" to tCurrScroll - round(.5 * tFldHeight)
   end if
end updateVscroll
   ``````  Ђ     d Ы    ђ cREVGeometryCacheIDs    1137015094284  10061087511934638  10111087511934639  10121137020675467  10301222132098685  10591137016363471  10221137015672020  10131137015984786  10161137015672024  10141137016391341  10231137015620928  10091137020929337  10411137020675484  10331137015065326  10041137016011040  10201138200081963  10421137015110521  10081222131517245  10431137019365485  10281222131517246  10441137019365486  10291222131517247  10451087466175495  10101222131517248  1046 cREVGeometrycache    order  
total  24 cREVGeneral    scripteditorvscroll  987scripteditorselection  3120breakPoints    
cConsLast    HandlerScroll  0HandlerName  initMe	 	command    м  о  р  с  ш  ь  ю  я      	              #  м Refresh Group List иE‹w B--> all handlers

on mouseUp 
    refreshGroupList
end mouseUp


  7 щщњњ  HHHHHH  000000  ‘‘    000000  А  \  s     :          altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  MX:-149WinXPaltRect  92,20,207,37altCmd  MX:-149altRect  92,20,207,37 
cConsLast    HandlerScroll  0HandlerName  mouseUp	 	message cREVGeneral    revUniqueID  1137015065326scripteditorvscroll  0scripteditorselection  50	     
  о 
GroupList ·(q™on mouseUp
    put selectedGrp() into tLineNum
    put line tLineNum of fld "GroupList" into tGrpInfo
    set itemDel to tab
    refreshButtons
    if item 2 of tGrpInfo is "NO" then exit mouseUp
    put item 3 of tGrpInfo into tGrpID
    repeat 4 times
        set the vis of grp ID tGrpID of the topStack to not the vis of grp ID tGrpID of the topStack
        wait 50 millisecs
    end repeat
end mouseUp
  
 АААААА  HHHHHH  Ђ   \I Z    »        8 Ќ И6 altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SY:-37WinXPaltRect  13,92,342,182altCmd  SY:-37altRect  13,92,342,182 
cConsLast    HandlerScroll  0HandlerName  mouseUp	 	message cREVGeneral    revUniqueID  1137015094284scripteditorvscroll  0breakPoints   scripteditorselection  0        п    `    @ E ]  X µ  р togglePaletteMode  A* ш--> all handlers

on mouseUp
  if the mode of this stack is 1 then
    modeless this stack
    initMe
  else
    toplevel this stack
    remove script of btn "AutoRefresh" from front
    unhilite btn "Auto Refresh Group List"
  end if
end mouseUp
     Ђ@          У          
cConsLast    HandlerScroll  0HandlerName  mouseUp	 	message cREVGeneral    revUniqueID  1137015110521breakPoints   	       с altFldHeader и  Aл 
# ------------------------------------------------------------------------------------------------------------
# Control: altFldHeader
# by Chipp Walters, Altuit, inc.
# ------------------------------------------------------------------------------------------------------------

local l_altMoveNow,l_altMoveCol,l_altTracMode

on mouseDown
  if the owner of the target is not me then pass mouseDown
  if there is an image "moveColumn" and the cursor is (the id of img "moveColumn") then
    lock cursor 
    put "" into l_altMoveNow
    put the priv_altOrderNum of the target into x
    
    if mouseH() < item 1 of the loc of the target then #other button on left
      
      put line x-1 of the priv_altBtnIDList of me into line 1 of temp
      put line x of the priv_altBtnIDList of me into line 2 of temp
      
    else #other button on right
       
      put line x of the priv_altBtnIDList of me into line 1 of temp
      put line x + 1 of the priv_altBtnIDList of me into line 2 of temp
       
    end if
    

    put temp into l_altMoveNow
    put true into l_altMoveCol
    
  else
     
    if the target contains "button" then
      if the altEnableBtn of the target then set the hilite of the target to true
    end if
    
  end if
  pass mouseDown
end mouseDown

on mouseUp
  if the owner of the target is not me then pass mouseUp
  put false into l_altMoveCol
  put false into l_altTracMode
  unlock cursor 
  if the target contains "button" then
    hilite the target
    unhilite the target
  end if
  if the environment is "development" then
    if the shiftKey is down then
      checkForCursor
      buildColumnButtons
      InitAltFldHeader
    end if
    if the optionKey is down then
      checkForTargetField
      put the altDontResize of the target into tCanResize
      answer question "Lock the resize of this btn" with "Yes" or "No"
      if it is "Yes" then 
        set the altDontResize of the target to true
      else
        set the altDontResize of the target to false
      end if
      answer question "Enable this button for hiliting on mouseClick?" with "Yes" or "No"
      if it is "Yes" then
        set the altEnableBtn of the target to true
      else
        set the altEnableBtn of the target to false
      end if
      answer question "Set Minimum Width for this button?" with "This Width" or "Very Small Width" or "No Change"
      if it is "This Width" then set the altMinWidth of the target to the width of the target
      if it is "Very Small Width" then set the altMinWidth of the target to 10
      ask "New Name for this column button" with the short name of the target
      if it is not empty then set the name of the target to it
      InitAltFldHeader
    end if
    if the ctrlKey is down then
      checkForTargetField
      put the tabStops of fld the altTargetField of me into tTabStops
      put the number of items of tTabStops into tNumCols
      ask "Change the number of columns:" with tNumCols
      if it is "" then exit to top
      put it into tNewNumCols
      if tNewNumCols < tNumCols and tNewNumCols > 1 then
        repeat with x =1 to tNewNumCols
          put item x of tTabStops &"," after tNewTabStops
        end repeat
        delete last char of tNewTabStops
        set the tabStops of fld the altTargetField of me to tNewTabStops
        buildColumnButtons
        InitAltFldHeader
      end if
      
      if tNewNumCols > tNumCols then
        repeat until tNewNumCols = tNumCols
          put "," & the last item of tTabStops + 40 after tTabStops
          add 1 to tNumCols
        end repeat
        set the tabStops of fld the altTargetField of me to tTabStops
        buildColumnButtons
        InitAltFldHeader
      end if
    end if
  end if
  altFinishTracking
  pass mouseUp
end mouseUp

on mouseEnter x,y
  if the owner of the target is not me then pass mouseEnter
  if the target contains "button" and there is a fld the altTargetField of me then
    lock cursor
    put true into l_altTracMode
  else
    put false into l_altTracMode
  end if
  pass mouseEnter
end mouseEnter

on mouseLeave
  if the owner of the target is not me then pass mouseLeave
  unlock cursor
  put false into l_altTracMode
  pass mouseLeave
end mouseLeave

on mouseRelease
  unlock cursor
  put false into l_altMoveCol
  put false into l_altTracMode
  if the target contains "button" then set the hilite of the target to false
  altFinishTracking
  pass mouseRelease
end mouseRelease


on mouseMove x,y
  if the owner of the target is not me then pass mouseMove
  if l_altTracMode then
    
    if the target contains "button" and the altDontResize of the target is False then
      
      switch 
      case x < (the left of the target + 5) and the priv_altOrderNum of the target > 1 #other button on left
        
        # gets the btn id of the 'adjacent' button
        put (item 1 of line (max((the priv_altOrderNum of the target - 1),1)) of the priv_altBtnIDList of me) into tBtnID
        if the altDontResize of btn ID tBtnID  then 
          set the cursor to arrow
        else
          set the cursor to (the id of img "moveColumn")
        end if
        break
        
      case x > (the right of the target - 5) and the priv_altOrderNum of the target < the number of lines in the priv_altBtnIDList of me #other button on right
        
        # gets the btn id of the 'adjacent' button
        put (item 1 of line (min((the priv_altOrderNum of the target + 1),the number of lines in the priv_altBtnIDList of me)) of the priv_altBtnIDList of me) into tBtnID
        if the altDontResize of btn ID tBtnID  then 
          set cursor to arrow
        else
          set the cursor to (the id of img "moveColumn")
        end if
        break
        
      default
        set cursor to arrow
      end switch
      
    else
      set the cursor to arrow
      
    end if
  end if
  
  if  l_altMoveCol then
    put l_altMoveNow into tList
    set the width of btn id item 1 of tList to \
        min(max(x - the left of btn id item 1 of tList,item 3 of tList),(the right of btn id item 1 of line 2 of tList - the left of btn id item 1 of tList - item 3 of line 2 of tList))
    put the right of btn id item 1 of line 2 of tList into tRight
    get the rect of btn id item 1 of line 2 of tList
    set the rect of btn id item 1 of line 2 of tList to \
        the right of btn id item 1 of tList, \
        item 2 of it, \
        item 3 of it, \
        item 4 of it
    if the altRealTimeTrack of me then altFinishTracking
  end if
  pass mouseMove
end mouseMove


on buildColumnButtons
  
  --> CHECK FOR A TARGET FIELD
  if there is not a fld the altTargetField of me then
    ask "Please enter the name of the field you wish to associate me with:"
    if it is "" then exit to top
    if there is not a fld it then 
      beep
      answer "No field on this card by that name!"
      exit to top
    else
      set the altTargetField of me to it
    end if
  end if
  
  ask "Please enter the vertical space between the columnHeader and the field (in Pixels)"&cr&"Default is 0" with the altVertPad of me
  if not isNumber(it) then exit to top
  set the altVertPad of me to it
  
  answer question "Enable realtime column tracking? (default is Yes)" with "No" or "Yes"
  if it is "No" then
    set the altRealTimeTrack of me to false
  else
    set the altRealTimeTrack of me to true
  end if
  
  put the altTargetField of me into tFld
  put the tabStops of fld tFld into tTabs
  
  --> CHECK TARGET FIELD FOR TABSTOPS
  if the number of items in tTabs < 2 then
    answer question "There needs to be at least 2 columns in this field. Should I automatically add them?" with "No" or "Yes"
    if it is "No" then exit to top
    put "30,30" into tTabs
    set the tabStops of fld tFld to tTabs
  end if
  set the vGrid of fld tFld to true
  
  put the number of items in tTabs into tNumCols
  
  --> CHECK TO SEE IF WE SHOULD USE ALL COLUMNS
  set the priv_XtraTabs of me to ""
  if tNumCols > 3 then
    answer question "Do you wish to display all " &tNumCols& " columns?" with "No" or "Yes"
    if it is "No" then
      ask "How many of the " &tNumCols& " do you wish to display?" with tNumCols
      if it is not empty and isNumber(it) then
        if it > tNumCols then
          answer "Too many columns!"
          exit to top
        end if
        if it < 3 then
          answer "Too few columns"
          exit to top
        end if
        if it < tNumCols then
          put it into tCount
          repeat with y = tCount+1 to tNumCols
            put item y of tTabs - item (y-1) of tTabs & "," after tEndTabs
          end repeat
          delete last char of tEndTabs
          set the priv_XtraTabs of me to tEndTabs
          put tCount into tNumCols
        end if
      end if
    end if
  end if
  
  set the altNumCols of me to tNumCols
   
  --> CHECK FOR NUMBER OF BTNS IN ME
  put 0 into tNumMyBtns
   
  repeat with x = the number of btns on this cd down to 1
    put the id of me into tID
    if the long ID of btn x contains ("group ID " & tID) then
      add 1 to tNumMyBtns
      if tNumMyBtns > tNumCols then 
        delete btn x
      else
        put x into tGoodBtnToClone
      end if
    end if
  end repeat
   
  --> IF THE NUMBER OF BTNS IN ME IS LESS THAN THE COLUMNS IN THE FIELD
  if tNumMyBtns < tNumCols then
    repeat until tNumMyBtns = tNumCols
      clone btn tGoodBtnToClone
      add 1 to tNumMyBtns
    end repeat
  end if
end buildColumnButtons

on checkForTargetField
  if there is not a field the altTargetField of me then
    answer warning "Please first target a field for this control. Shift-Click on this control to do so."
    exit to top
  end if
end checkForTargetField


on checkForCursor
  if there is not an img "moveColumn" then
    answer warning "Please add the img 'moveColumn' to this card!"
    exit to top
  end if
end checkForCursor

on resizeStack pNewWidth
  
  put pNewWidth into tRight
  put the left of me into tL
  
  put the priv_altBtnIDList of me into tBtnIDs
  
  set the width of me to max(the priv_altMinWidth of me,tRight-the priv_altRight of me-tL)
  
  put the width of me into tWidth 
  
  --> priv_altBtnIDList FOR THIS GROUP
  --> ITEM 1 IS THE BTN ID
  --> ITEM 2 IS THE % WIDTH OF GROUP (.10 = 10%)
  --> ITEM 3 IS THE MINWIDTH
  
  repeat for each line L in tBtnIDs
    set the left of btn id (item 1 of L) to tL
    if the altDontResize of btn id (item 1 of L) is False then
      set the width of btn id (item 1 of L) to max(round(tWidth * item 2 of L),the altMinWidth of btn id (item 1 of L))
    end if
    put the right of btn id (item 1 of L) into tL
  end repeat
  set the width of btn id item 1 of last line of the priv_altBtnIDList of me to \
      the right of me \
      - the left of btn id item 1 of last line of the priv_altBtnIDList of me 
   
  put 0 into tW
  set the lockLoc of fld the altTargetField of me to true
  if the vscrollbar of fld the altTargetField of me then
    put the scrollbarwidth of fld the altTargetField of me into tW
  end if
  set the width of fld the altTargetField of me to \
      the width of me + tW
  
  altFinishTracking
  pass resizeStack
  
end resizeStack

on altFinishTracking
  
  if there is not a fld the altTargetField of me then exit to top
  
  --> SET THE TABS FOR THE ASSOCIATED FIELD

  --> WE HAVE HIDDEN COLUMNS, SO LET'S CAPTURE
  put the priv_altBtnIDList of me into t
  put the left of btn id item 1 of the priv_altBtnIDList of me +3 into tLeft
  repeat for each line L in the priv_altBtnIDList of me
    put the right of btn id item 1 of L - tLeft & "," after tTabs
  end repeat
  delete last char of tTabs
  --> ADD ANY HIDDEN TABS
  put the priv_XtraTabs of me into tXtabs
  repeat for each item I in tXtabs
    put "," & the last item of tTabs + I after tTabs
  end repeat 
  
  set the tabStops of fld the altTargetField of me to tTabs
  
  #set the new button percentages
  put the priv_altBtnIDList of me into tList
  
  put the width of me into tWidth
  
  put 0 into tLength
  
  repeat with x = 1 to the number of lines in tList
    put round(100*the width of btn id item 1 of line x of tList/tWidth)/100 into \
        item 2 of line x of tList
    if x is not the number of lines in tList then
      put item 2 of line x of tList + tLength into tLength
    else
      put 1 - tLength into item 2 of line x of tList
    end if
    
  end repeat  
  set the priv_altBtnIDList of me to tList 
end altFinishTracking

on InitAltFldHeader
  # should call this when 'setting up' the original group for the first time
  # not necessary to call this ever again
  # builds a sorted left to right list of all the IDs of the buttons in this group and sets the priv_altBtnIDList property to it 
  
  if not exists(fld the altTargetField of me) then
    answer warning "No designated fld found. Please set the altTargetField property!"
    exit InitAltFldHeader
  end if
  
  set the lockLoc of me to true
   
  --> GET THE TAB WIDTHS
  put the tabStops of fld the altTargetField of me into tTabStops
  put the altNumCols of me into tNumCols
  put the left of fld the altTargetField of me into tL
  set the left of me to tL
  
  --> CALCULATE IF THERE IS ROOM FOR ALL OF THE TABSTOPS IN THIS FIELD
  put item tNumCols of tTabStops into tFldWidth
  put the width of fld the altTargetField of me into tWidth
  if the vscrollbar of fld the altTargetField of me then
    subtract the scrollbarwidth of fld the altTargetField of me from tWidth
  end if
  
  if tFldWidth > tWidth then
    
    --> THE FIELD IS NOT WIDE ENOUGH TO HANDLE ALL THE BUTTONS
    --> NEED TO RESET THE TABSTOPS
    repeat with x =1 to the number of items in tTabStops
      put item x of tTabStops into tempW
      put round(tempW/tFldWidth * tWidth) into tempW
      put tempW & "," after tNewTabStops
    end repeat
    delete last char of tNewTabStops
    put tNewTabStops into tTabStops
    
  end if
  
  --> SET THE BUTTON WIDTHS
  put 1 into tColCounter
  put 0 into tOldWidth
  put 0 into tMaxHeight
  put 0 into tBtnCounter
   
  
  put 1 into tOrder
  
  repeat with x = 1 to the number of btns on this cd
    put the id of me into tID
    if the long ID of btn x contains ("group ID " & tID) then
      put item tColCounter of tTabStops - tOldWidth into tColumnWidth
      
      if tBtnCounter = 0 then 
        put 3 into tIncrement
      else
        put 0 into tIncrement
      end if
      
      if tBtnCounter + 1 = tNumCols then
        --> ON LAST BTN
        put tWidth - tOldWidth into tColumnWidth
        put item tColCounter of tTabStops - tOldWidth into tLastColWidth
        put -3 into tIncrement
      end if
       
      set the width of btn x to tColumnWidth + tIncrement
      if tBtnCounter = 0 then
        if there is an image "moveColumn" of me then
          set the loc of image "moveColumn" to the loc of btn x
          hide image "moveColumn"
        end if
      end if
      set the lockloc of btn x to true
      set the priv_altOrderNum of btn x to tOrder
      add 1 to tOrder
      set the left of btn x to tL
      put the right of btn x into tL
      put max(the height of btn x, tMaxHeight) into tMaxHeight
      add 1 to tBtnCounter
      put item tColCounter of tTabStops into tOldWidth
      add 1 to tColCounter
    end if
  end repeat
   
  --> SET THE BUTTON HEIGHTS
  repeat with x = 1 to the number of btns on this cd
    put the id of me into tID
    if the long ID of btn x contains ("group ID " & tID) then
      set the height of btn x to tMaxHeight
      set the top of btn x to the top of me
    end if
  end repeat
   
  --> CALCULATE RELATIVE COLUMN WIDTHS
  --> priv_altBtnIDList FOR THIS GROUP
  --> ITEM 1 IS THE BTN ID
  --> ITEM 2 IS THE % WIDTH OF GROUP (.10 = 10%)
  --> ITEM 3 IS THE MINWIDTH
  
  put 0 into tMinWidth
  
  repeat with x = 1 to the number of btns on this cd
    put the id of me into tID
    if the long ID of btn x contains ("group ID " & tID) then
      put the id of btn x & "," after tBtnIdList
      
      --> CALCULATE % WIDTH
      put round(100*the width of btn x/tWidth)/100 into tPercentWidth
      put tPercentWidth & "," after tBtnIdList
      put the altMinWidth of btn x & "," & cr after tBtnIdList
      add the altMinWidth of btn x to tMinWidth
    end if
  end repeat
  
  delete last char of tBtnIdList
  set the priv_altBtnIDList of me to tBtnIdList
  
  
  --> STORE THE MINIMUM WIDTH
  set the priv_altMinWidth of me to tMinWidth
  
  set the height of me to the formattedHeight of me
  set the top of me to the top of fld the altTargetField of me - tMaxHeight - the altVertPad of me
  set the width of me to the formattedWidth of me
  set the left of me to the left of fld the altTargetField of me
  set the priv_altRight of me to the width of this cd - the right of me
  
  altFinishTracking
   
end InitAltFldHeader
  7 АААААА  HHHHHH  000000  ‘‘    000000  А   J9    priv_XtraTabs   altRealTimeTrack  truealtNumCols  4altTargetField  	GroupListpriv_altMinWidth  80priv_altBtnIDList  71011,0.19,20,
1012,0.27,20,
1013,0.19,20,
1014,0.35,20,altVertPad  0priv_altRight  30Ы         cREVGeneral    revUniqueID  1137015620928breakPoints     т moveColumn D    Ђ   K      –   ¦‰PNG

   IHDR         (-S   gAMA  еИ=“-f   	PLTEяяя   яяя~пЏO   tRNSяя ЧКA   9IDATxњc` ЂІ ##I@н`°1 Y H„Н '@$2`ААР‚i(¦µд8Еы «AќчM    IEND®B`‚       cREVGeneral    revUniqueID  1087466175495  у 
Origin Cd иEw 'on mouseUp
  pass mouseUp
end mouseUp
     А@  J ;    altDontResize  falsealtEnableBtn  falsealtMinWidth  20priv_altOrderNum  1<         cREVGeneral    revUniqueID  1087511934638	       ф On Current Cd? hDw 'on mouseUp
  pass mouseUp
end mouseUp
     А@ H J U    altDontResize  falsealtEnableBtn  falsealtMinWidth  20priv_altOrderNum  2є         cREVGeneral    revUniqueID  1087511934639	  к   х 	Group ID иEw 'on mouseUp
  pass mouseUp
end mouseUp
     А@ ќ J ;    altDontResize  falsealtEnableBtn  falsepriv_altOrderNum  3altMinWidth  20:         cREVGeneral    revUniqueID  1137015672020	       ц Group Name иEw 'on mouseUp
  pass mouseUp
end mouseUp
     А@ Ш J n    altDontResize  falsealtEnableBtn  falsepriv_altOrderNum  4altMinWidth  208         cREVGeneral    revUniqueID  1137015672024	     
  ш Label Field 	    АААААА  Ђ   2 S     Ф       
cREVTable    currentview  Current Card: cREVGeneral    revUniqueID  1137015984786     Current Card: 
  ь CurrentCard 	    АААААА  Ђ  i 2 б     Р       altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:-26WinXPaltRect  105,50,330,71altCmd  SX:-26altRect  105,50,330,71 cREVGeneral    revUniqueID  1137016011040        ю Place Selected Grp on Cd аE»  --> all handlers

on mouseUp
    put selectedGrp() into tLineNum
    set itemDel to tab
    put line tLineNum of fld "GroupList" into tGrpLine
    if item 2 of tGrpLine is "YES" then
        answer information "That group is already on the Current Card!"
        exit to top
    end if
    put item 3 of tGrpLine into tGrpID
    put item 1 of tGrpLine into tGrpOriginCd
    place grp ID tGrpID of card tGrpOriginCd of the topStack onto the current card of the topStack
    refreshGroupList tGrpID
    refreshButtons
end mouseUp
  7 щщњњ  HHHHHH  000000  ‘‘    000000  Ђ   » љ                altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  CX:-86,MY:-9WinXPaltRect  15,187,169,210altCmd  CX:-86,MY:-9altRect  15,187,169,210 
cConsLast    HandlerScroll  0HandlerName  mouseUp	 	message cREVGeneral    revUniqueID  1137016363471scripteditorvscroll  0scripteditorselection  346	       я Remove Selected Grp from Cd аE»  е--> all handlers

on mouseUp
    put selectedGrp() into tLineNum
    set itemDel to tab
    put line tLineNum of fld "GroupList" into tGrpLine
    if item 2 of tGrpLine is "NO" then
        answer information "That group is NOT on the Current Card!"
        exit to top
    end if
    put item 3 of tGrpLine into tGrpID
    put item 1 of tGrpLine into tGrpOriginCd
    remove grp ID tGrpID of the topStack from the current card of the topStack
    refreshGroupList tGrpID
end mouseUp
  7 щщњњ  HHHHHH  000000  ‘‘    000000  Ђ  Ї » ¦                altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  CX:80,MY:-9WinXPaltRect  175,187,341,210altCmd  CX:80,MY:-9altRect  175,187,341,210 
cConsLast    HandlerScroll  0HandlerName  mouseUp	 	message cREVGeneral    revUniqueID  1137016391341scripteditorvscroll  0breakPoints   scripteditorselection  472	     
   Label Field 	    АААААА  Ђ   " S     ±       
cREVTable    currentview  Current Stack: cREVGeneral    revUniqueID  1137019365485     Current Stack: 
   CurrentStack 	    АААААА  Ђ  i " б     ±       altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:-26WinXPaltRect  105,34,330,55altCmd  SX:-26altRect  105,34,330,55 
cConsLast    HandlerScroll  0HandlerName    
cREVTable    currentview  card id 1002 cREVGeneral    revUniqueID  1137019365486        	 altPlug.png  ‰D    ђ яЩ 
       altOpenVisible  truealtVers  v0.9.6altPlugFileName  altGroupMgr.revaltOnClickMe  doItaltUpdateURL  7http://www.gadgetplugins.com/altplugins/altGroupMgr.txt altGroupMgr х  v‰PNG

   IHDR           szzф   gAMA  ±Џьa  -IDATX……—kЊUХЗлњ{gpТV±8ўМ;Д:i5Ъ`E#ВTЁ&%JL«ќМmз“iЪ~°Џ”рЃЪjЊMH)Ќ$TDЁаP-%•J6-8#„ЙђР№зЬsОЮ»ц>Џ{п\X'ыоЧ:ля_kнЅп>R.ї`ѕял§IE0ЂПХ(<mзDЩ¶Ћ 	`z¦*LЩ:`j
‚ .]‚J‚¦/a…п?N	4я:ц!¤Аxѕ%Ј= ЖггQF¤ЊЁhTыD!U!
!ЊaE1qS	ЄT«Q‚ЄU °Цќ,…ZlHЊ в!й#F<D|DJ€SD4‚ADЈtxhећ+B.^Ѓ@Ѕи”vЊ3bЃь¬ђЃѓ€з0B	!±щГsNKЎРЊ@]p &ЌЂп€X2vЮ­ТhщШ/ШсЁЏ„Ч4)pљ¤ЂbkЇ–fF"—Ьы&PНS0cDRSo$гѓФjЩћп\рrҐ«­q
+‡ngиЛ3p™yv“ж”XДMЫб.7х‹рziaП…№,а"дc6ЧPЁ“оµyуећ™БжµсіЎ’ЫµІtuБqOґ9рЬЕўФD {нЩТЧкz—xбЙ	ю`<Hчї)іbиу<MќLА№ёg	°«и›ЗПџlЃсЂQfСЫY$Qї;;ШРЧfЫќaНаY~;qЊЭГЩ=|oјrїћЗчодЋV¦/ЏеNЏІoX4КЧ/Ћжгw—Xѕ ЖњарUаГL%#Р·жn<ПS?щ'{†{8ъЦгхѕfІwgwЮ1“м<8фТяМ‰lxСџ(нЉ]­ё|ЋЕ.ззЋя›чµLaскmМнX’Ґ@(уЯ‰?qxпЄC#;2>0@зІvоь%3†‡—yрiАл‡Fш&O џ-јa ЯE іНzьзѓЌ™КГѓ3·гћЦЧw,em„ЎаШИNЋњє oб(жNиЅ>y;ъАҐ|VідўГч XюИ;Рy/эаZ:ЉJ“1П>§kcАЦнУ|kcKWnб±…Ѕ,@ук®O€г±`+КE`<дњкєнA®їi	іЫзcL“ДУђЧЦэs8tцoеGчпF>ТЬЩ"ьG?r6ІюЪ/дгшоаЯ<Л3ы“}fkЯН»GЮЋ©VЮ¤\оє8р—‹®ХЛЏч<JwЌљбээЯжпgПЪn°ЌїѕЦКфФщѓ#GУЦџЩчт‰«ЎҐqYС…sаи'<І}Т¶o~ђ-ЇЬОпkJј©Э0wЮDсУ‰‡ hi]™9R/5‹рМцЭ¬
VІo Ђ»ыoгЌюtцќF°ъ5вєнџYЕ…уцДџuНSW$\у_pЭЌ_adрD„ЈН^	^?ИH“Yc`N{~ъ·ґ­ё"Ѓ†mxяєЅјіc5›п6·~iЂћE›Ашe‚ЛИР/уьєyњ8~Ь‚мtчTВђj‘ЦчьѓБй)Нжf·ПgщєэЪaOГS'‡9urё‰·¦ШЋkЪ†=ѓFюЦЊЧ”ЩнуyhаoЬ»ъµЃоZь+ж\У…)7йOФФ•tМЭёКе­¦п;K
¦}{ѓСйMЖSB(#¦„HП”A—U&‰<ЄЃPЌ=‚Љ&ЉaЁ€ў€0ЁR­V©Tў($®`тk№пяжJwВљHејЈЭLЮОu]ХDгккф1КцTvwyWv.[6‰ЄO9ЈќrZ7мo=гёЦ)4Ґ, R¶Ї•К"Т…ВI‚S ЙљЖдаИн€Щ9­Ќ!TРъ©3ќ+|йВ—ЄЂОуЄµFрІTЈ1ЖsЊ*‰1h’Дк'Ъ‘1EBЦ^ЙNcђФY­1x€q{[Њ¶DґЖБPЉ,м*Q”K…F%
ќ(·VRпУвўУ'·e¤рЩцГФnЕ|[Љц0FгЈb!IqqJi’ДђДЉ$QД±"‰P‰KKZ жяqЯ~—ЙaЦ    IEND®B`‚       cREVGeneral    revUniqueID  1137020675484   header GE-TopLG.png 		     Ђ    d 	    ї  t‰PNG

   IHDR         °є¬K   gAMA  ЇИ7Љй   tEXtSoftware Adobe ImageReadyqЙe<  IDATxЪјV[Г K¤ЭяcЗнZycZ'
ОЪ-RХЄ<LcP wЃДЎЙ~‡ёЅћ‡1P?o4 -юю+ Kbu3«ЏЩ3шYX Ё(КSЂРС~Џ…ЌfТхo@Фўg k‰1!ЈЗкъЂ5HЩгЯROEґ`=ЎЉ®*ф!ыїm4ЧO|Єk«‹c&aLІЖJ‡)ZќЙ"«N,ОdЈ’н6jШ«ИрmfzF¦ИXHI•e¦‘/Х2хО`IмzЋм5А„j,аC{[ѓИ‚іRUF‘ХЙ»®„gH+УіЌ0m37¶¬щ1«ё2АT¤Ћ5DШХк)А нlЋyы—rг    IEND®B`‚       altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:0WinXPaltRect  
0,1,356,10altCmd  SX:0altRect  
0,1,356,10 cREVGeneral    revUniqueID  1222131517245   header LN-DarkLine.jpg 		@    Ђ    d     ы  /яШяа JFIF   d d  ям Ducky     d  яо Adobe dА   яЫ „ яА    яД J                                                                яЪ   ? ?ряЩ       altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:0WinXPaltRect  0,18,356,19altCmd  SX:0altRect  0,18,356,19 cREVGeneral    revUniqueID  1222131517247   Swap Icons LN-MedLine.jpg 		@    Ђ    d     щ  .яШяа JFIF   d d  ям Ducky     d  яо Adobe dА   яЫ „ яА    яД J                                                                яЪ   ? яЩ       altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:0WinXPaltRect  0,19,356,20altCmd  SX:0altRect  0,19,356,20 cREVGeneral    revUniqueID  1222131517248   header  K@    Ђ     d     я     altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  SX:0WinXPaltRect  
0,0,356,18altCmd  SX:0altRect  
0,0,356,18 cREVGeneral    revUniqueID  1222131517246   ? иE‹   >on mouseUp
  answer information the altMsg of me
end mouseUp
  7 щщњњ  HHHHHH  000000  ‘‘    000000  А L      altMsg <<p><font size="18">altGroupMgr</font></p>
<p><font size="10">by Chipp Walters, Aluit, Inc.</font></p>
<p></p>
<p><b>altGroupMgr</b> is a plugin to help manage groups in multiple card stacks. When launched from the altPluginToolbar, it works as a palette targeting the topStack. If you are using it as a regular plugin, be sure and open it in palette mode. You can use the <b>palette toggle</b> button to do this. The <b>Group List</b> is automatically regenerated as soon as you click on the <b>altGroupMgr</b> stack. The columns for the <b>Group List</b> are:</p>
<p></p>
<p><b>Origin Cd</b> - This is the first instance of the group found in the stack. While multiple cards may share a group, it is only necessary to list the first instance of it. If you remove a group from it's origin card, it will NOT remove it from other cards.</p>
<p></p>
<p><b>On Current Cd?</b> - YES if this group is placed on the current card of the topStack. No if it is not.</p>
<p></p>
<p><b>GroupID</b> - The ID of the Group</p>
<p></p>
<p><b>Group Name</b> - The short name of the Group</p>
<p></p>
<p>Clicking on a group selects it. If the group is already on the current card it will blink it a couple of times on the card so you can see it. You can then choose to remove it from the card by clicking the <b>Remove Selected Grp from Cd button</b>. <font color="#FF0000">Remember, there is no UNDO!</font> If the group is not on the current card, you can choose to PLACE it there by clicking the <b>Place Selected Grp on Cd button</b>.</p>
<p></p>
<p>There are no frontscripts or backscripts in this plugin.</p>_          altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  MX:-4WinXPaltRect  332,20,352,37altCmd  MX:-4altRect  332,20,352,37 cREVGeneral    revUniqueID  1137020929337	     
   vers 	   Жon mouseUp
  if the shiftKey is down then
    ask "New Version:" with me
    if it is empty then exit mouseUp
    put it into me
    set the altVers of img "altPlug.png" to it
  end if
end mouseUp
     Ђ яэ  2     і       cREVGeneral    revUniqueID  1137020675467     v0.9.6    Update иE‹  	Ј--> all handlers

on mouseUp
  answer question "This will check the server for updates to this stack." &cr& \
      "Any changes you have made to this stack will be lost! Continue?" with "Cancel" or "OK"
  if it is "Cancel" then exit to top
  checkForPluginUpdate
end mouseUp

on checkForPluginUpdate
  get altCheckInternetConnect()
  put the altVers of image "altPlug.png" into tVers
  put the altUpdateURL of img "altPlug.png" into tURL
  put URL tURL into tData
  put getTagData(tData,"Version") into tVers2
  if tVers2 <> tVers then
    answer information "There is an update to this stack. Do you wish to retrieve it?" with "Cancel" or "OK"
    if it is "Cancel" then 
      exit checkForPluginUpdate
    end if
     
    --> DOWNLOAD NEW STACK 
    put the filename of this stack into tPluginPath
    put getTagData(tData,"UpdateURL") into tURL
    put "Downloading file, please wait..."
    put URL tURL into tBinData
    put the result into tResult
    if tResult is not "" then
      answer information "Problem downloading stack." &cr&cr& tResult 
      altStatus ""
      exit to top 
    end if
    topLevel this stack
    if char -3 to -1 of tURL is ".gz" then
      --> NEED TO UNCOMPRESS
      put "Decompressing Stack..."
      put decompress(tBinData) into tBinData
    end if
    put tBinData into URL ("binfile:" & tPluginPath)
    revert 
    put "Stack updated!" into msg
  else
    answer information "You are currently using the latest version of this stack"
  end if
end checkForPluginUpdate

function altCheckInternetConnect
    --> CHECK FOR INTERNET CONNECTION TO EXTERNALS SERVER  
    put "Checking for internet connection..."
    get URL "http://www.gadgetplugins.com/RevAccessTest.txt"
    put the result into tResult
    put ""
    if line 1 of it is not "GOOD" or tResult is not empty then
        answer warning "Cannot connect with the Altuit Externals Server: Error" &cr& tResult
        exit to top
    else
        return true
    end if
end altCheckInternetConnect

function getTagData theTagData,theTagName 
  filter theTagData with "<" & theTagName & ">*" 
  replace "<" & theTagName & ">" with "" in theTagData 
  replace "</" & theTagName & "> " with "" in theTagData 
  replace "</" & theTagName & ">" with "" in theTagData 
  replace "|" with tab in theTagData 
  replace "\" with return in theTagData 
  replace "/***---***/" with "" in theTagData
  replace "" with "" in theTagData
  return theTagData
end getTagData 
  7 щщњњ  HHHHHH  000000  ‘‘    000000  А   5     ]          altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  MX:-24WinXPaltRect  279,20,332,37altCmd  MX:-24altRect  279,20,332,37 
cConsLast    HandlerScroll  260HandlerName  checkForPluginUpdate	 	command cREVGeneral    breakPoints   revUniqueID  1138200081963	       # togglePaletteMode иe+   on mouseUp
 
  if the mode of this stack is 1 then
    palette this stack
  else
    toplevel this stack
  end if
end mouseUp
  5 ‘‘    щщњњ  ‘‘    000000  А@ П  H     } palette toggle           altLayoutManager    WinXPaltVis  truealtCard  card id 1002WinXPaltCmd  MX:-77WinXPaltRect  207,20,279,37altCmd  MX:-77altRect  207,20,279,37 cREVGeneral    revUniqueID  1222132098685	      