home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / birdinfo.sit / Birds / background_2693.txt < prev    next >
Text File  |  1987-09-07  |  3KB  |  153 lines
  1. -- background: 2693 from stack: in
  2. -- bmap block id: 288125
  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=309 top=225 right=316 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 12
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Bird Name
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: 2003
  25. -- rect: left=451 top=37 right=77 bottom=497
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 20098 / 20098
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Home
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect iris close
  37.   doMenu Home
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 6 (field)
  43. -- low flags: 00
  44. -- high flags: 4000
  45. -- rect: left=24 top=82 right=316 bottom=270
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 3
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Field Notes
  54.  
  55.  
  56. -- part 8 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=322 top=122 right=149 bottom=353
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 19381 / 19381
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Prev
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   go to prev card
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 9 (button)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=356 top=122 right=149 bottom=387
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 22308 / 22308
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Next
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   go to next card
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 10 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=401 top=136 right=162 bottom=431
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 14953 / 14953
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Return
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   visual effect iris close
  109.   pop card
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 13 (button)
  115. -- low flags: 00
  116. -- high flags: 0003
  117. -- rect: left=452 top=87 right=135 bottom=498
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 1004 / 1004
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Make List
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   -- export text
  129.   answer "Really Make Text File?" with Yes or No
  130.   if it is "No" then exit mouseUp
  131.   answer "Full List or Life List?" with Full or Life
  132.   if it is "Life" then put true into doLife
  133.   else put false into doLife
  134.   if doLife is true then put "Life List" into fileName
  135.   else put "Bird List" into fileName
  136.   ask "Put list into what file?" with fileName
  137.   if it is empty then exit mouseUp
  138.   put it into fileName
  139.   open file fileName
  140.   go to second card
  141.   put the number of cards into numCards
  142.   put numCards - 1 into numCards
  143.   repeat with i = 1 to numCards
  144.     if doLife is false or hilite of button "Life List?" is true then
  145.       write field "Bird Name" to file fileName
  146.       write return to file fileName
  147.     end if
  148.     go to next card
  149.   end repeat
  150.   close file fileName
  151. end mouseUp
  152.  
  153.