home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / cipher.cpt / Cipher / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-10-31  |  3.3 KB  |  28 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>6</cardCount>
  7.     <cardID>6552</cardID>
  8.     <listID>5851</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on xy -- puts the mouse location in the message box until a mouse click
  17. repeat until the mouse is down
  18. put the mouseLoc
  19. end repeat
  20. end xy
  21.  
  22. on c
  23. choose browse tool
  24. doMenu "Card Info..."
  25. end c
  26.  
  27. on b
  28. choose browse tool
  29. doMenu "Bkgnd Info..."
  30. end b
  31.  
  32. on s
  33. choose browse tool
  34. doMenu "Stack Info..."
  35. end s
  36.  
  37. on startUp
  38. getHomeInfo
  39. pass startUp -- to a startUp XCMD, if present
  40. end startUp
  41.  
  42. on resume
  43. getHomeInfo
  44. pass resume -- to a resume XCMD, if present
  45. end resume
  46.  
  47. on getHomeInfo
  48. global stacks,applications,documents,userName
  49. set lockScreen to true
  50. set lockMessages to true
  51. push this card
  52. go to card "User Preferences" of stack "Home"
  53. put card field "User Name" into userName
  54. set userLevel to card field "User Level"
  55. set powerKeys to the hilite of button "Power Keys"
  56. set textArrows to the hilite of button "Text Arrows"
  57. set blindTyping to the hilite of button "Blind Typing"
  58. put field "paths" of card "stacks" into stacks
  59. put field "paths" of card "applications" into applications
  60. put field "paths" of card "documents" into documents
  61. pop card
  62. set lockScreen to false
  63. set lockMessages to false
  64. end getHomeInfo
  65.  
  66. on searchScript pattern,stackName -- search all scripts of a stack
  67. set lockMessages to true
  68. if stackName is not empty then go to stack stackName
  69.  
  70. if the script of this stack contains pattern
  71. then edit script of this stack
  72.  
  73. repeat with i = 1 to the number of bkgnds
  74. go to card 1 of bkgnd i
  75. if the script of this bkgnd contains pattern
  76. then edit script of bkgnd
  77.  
  78. repeat with j = 1 to the number of bkgnd buttons
  79. if the script of bkgnd button j contains pattern
  80. then edit script of bkgnd button j
  81. end repeat
  82.  
  83. repeat with j = 1 to the number of bkgnd fields
  84. if the script of bkgnd field j contains pattern
  85. then edit script of bkgnd field j
  86. end repeat
  87.  
  88. end repeat
  89.  
  90. repeat with i = 1 to the number of cards
  91. go card i
  92. if the script of this card contains pattern
  93. then edit script of this card
  94.  
  95. repeat with j = 1 to the number of card buttons
  96. if the script of card button j contains pattern
  97. then edit script of card button j
  98. end repeat
  99.  
  100. repeat with j = 1 to the number of card fields
  101. if the script of card field j contains pattern
  102. then edit script of card field j
  103. end repeat
  104.  
  105. end repeat
  106. set lockMessages to false
  107. end searchScript
  108.  
  109. </script>
  110.     <background id="2663" file="background_2663.xml" name="Simple Substitution" />
  111.     <background id="3860" file="background_3860.xml" name="Vigenere" />
  112.     <background id="6165" file="background_6165.xml" name="" />
  113.     <background id="7539" file="background_7539.xml" name="" />
  114.     <card id="6552" file="card_6552.xml" marked="false" name="" owner="6165" />
  115.     <card id="2906" file="card_2906.xml" marked="false" name="" owner="2663" />
  116.     <card id="5494" file="card_5494.xml" marked="false" name="" owner="2663" />
  117.     <card id="4943" file="card_4943.xml" marked="false" name="" owner="3860" />
  118.     <card id="3620" file="card_3620.xml" marked="false" name="" owner="3860" />
  119.     <card id="7846" file="card_7846.xml" marked="false" name="" owner="7539" />
  120. </stack>
  121.