home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / debatech.sit / Home / background_6505.txt < prev    next >
Text File  |  1990-04-21  |  4KB  |  201 lines
  1. -- background: 6505 from stack: in
  2. -- bmap block id: 6956
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=117 top=36 right=61 bottom=394
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 20
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 24
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=45 top=114 right=131 bottom=152
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=259 top=114 right=131 bottom=363
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 01
  52. -- high flags: 0000
  53. -- rect: left=45 top=214 right=231 bottom=152
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 01
  66. -- high flags: 0002
  67. -- rect: left=45 top=132 right=150 bottom=227
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: searchStack
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 01
  80. -- high flags: 0002
  81. -- rect: left=259 top=132 right=150 bottom=441
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: searchField
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 0002
  95. -- rect: left=45 top=232 right=250 bottom=227
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: searchText
  104.  
  105.  
  106. -- part 8 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=202 top=109 right=132 bottom=227
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 26635 / 26635
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: showTypes
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   global gcaseList
  121.   put gcaseList into stackList
  122.   get number of lines in stackList
  123.   put "Briefs" into line it+1 of stackList
  124.   get XScrollBox(0,"Choose Stack to Search:",stackList)
  125.   if it is "Cancel" then exit to HyperCard
  126.   put item 2 of it into field searchStack
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 9 (button)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=416 top=109 right=132 bottom=441
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 26635 / 26635
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: showTypes
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   global gfieldNames
  146.   global gbriefFields
  147.   get field searchStack
  148.   if it is empty then
  149.     answer "Please select a search stack first."
  150.     exit to HyperCard
  151.   end if
  152.   if it is "Briefs" then
  153.     get XScrollBox(0,"Choose Field to Search",gbriefFields)
  154.     if it is "Cancel" then exit to HyperCard
  155.     put item 2 of it into field searchField
  156.   else
  157.     get XScrollBox(0,"Choose Field to Search",gfieldNames)
  158.     if it is "Cancel" then exit to HyperCard
  159.     put item 2 of it into field searchField
  160.   end if
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 10 (button)
  166. -- low flags: 00
  167. -- high flags: 0000
  168. -- rect: left=228 top=298 right=321 bottom=254
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 1014 / 1014
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Prev
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   go to prev card
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 11 (button)
  185. -- low flags: 00
  186. -- high flags: 0000
  187. -- rect: left=256 top=298 right=321 bottom=281
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 1013 / 1013
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Next
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   go to next card
  199. end mouseUp
  200.  
  201.