-- stack: in.1
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2699
-- card count: 32
-- first card id: 2884
-- list block id: 13602
-- print block id: 12242
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 78112 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global locks,menu3
  show menubar
  put "Unlock Card Fields" into locks
  put NewMenu("Extras","Resort All","Resort by XFCN","Resort by XCMD", "(-",locks,"(-","Copy Resource...","(-","Deprotect Stack...") into menu3
  hide the msg
end openStack

on closeStack
  global menu3
  go card index
  domenu "Lock Card Fields"
  get DeleteMenu(menu3)
end closeStack

on idle
  global menu3, lastTick
  if (the ticks-lastTick)>120 then
    put the ticks into lastTick
    ShowMenu menu3
  end if
  pass idle
end idle

on doMenu which
  global menu3,locks
  if which is "Resort All" then
    rsort "X"
    put "All listed" into field sorttype
  else if which is "Resort by XFCN" then
    rsort "XFCN"
    put "XFCNs listed" into field sorttype
  else if which is "Resort by XCMD" then
    rsort "XCMD"
    put "XCMDs listed" into field sorttype
  else if which is "Lock Card Fields" then
    changemenu menu3,5,"Unlock Card Fields"
    put "Unlock Card Fields" into locks
    push card
    set the lockscreen to true
    go bkgnd id 3468
    repeat with i = 1 to 5
      set the locktext of field i to true
    end repeat
    pop card
    set the lockscreen to false
    choose browse tool
  else if which is "Unlock Card Fields" then
    changemenu menu3,5,"Lock Card Fields"
    put "Lock Card Fields" into locks
    push card
    set the lockscreen to true
    go bkgnd id 3468
    repeat with i = 1 to 5
      set the locktext of field i to false
    end repeat
    pop card
    set the lockscreen to false
  else if which is "Copy Resource..." then
    xcopy
  else if which is "Deprotect Stack..." then
    put "Select stack to deprotect" into msg
    put filename("STAK") into fname
    if fname is empty then
      hide msg
      exit domenu
    end if
    deprotect fname
    if the result is empty
    then answer "Deprotect Successful" with "OK"
  else if the result is -49
  then answer "Sorry, that file is busy."
else if the result is -44
then answer "Sorry, the disk is locked."
else answer "Failed: unexpected file system error: " & the result with "OK"
hide msg
else
  pass doMenu
end if
choose browse tool
end doMenu


on rsort xtyp
  set the scroll of field main to 0
  put empty into field main
  set lockscreen to true
  go next
  sort by field XNAME
  go bkgnd id 3468
  put the number of this card into r
  put 1 into x
  repeat with z = r to number of cards
    if (field xname is not empty) and (field xtype contains xtyp) then
      put field xname into line x of field main of card index
      put x + 1 into x
    end if
    go next
  end repeat
end rsort

on xcopy
  go card index
  global xcpyflag,fromstack,tostack
  put "Select destination file from dialog box to copy X-resource" into msg
  get FileName("STAK")
  if it is empty then
    hide msg
    exit xcopy
  end if
  put it into tostack
  put the value of word 2 of long name of this stack into fromStack
  put true into xcpyflag
  Put "Click on X-resource to copy" into msg
end xcopy

on xcopy2
  global xcpyflag,xtyp,xres,fromstack,tostack
  answer "Copy " & quote & xres & quote &" to " & quote & toStack & quote & " ?" with "CANCEL" or "OK"
  if (xtyp <> "XCMD") and (xtyp <> "XFCN") then
    put "Unknown resource type, check card field of same name" into the msg
  else if it is "OK" then
    set cursor to 4
    ResCopy fromStack,toStack,xtyp,xres
    put the result into xerror
    set cursor to 1
    answer "Copy finished!" with "OK"
    put xerror & " --see ResCopy for error traps "into the msg
  else
    put "No copy made, try again" into the msg
  end if
  show the msg
  put false into xcpyflag
end xcopy2