home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 5 / Eagles_Nest_Mac_Collection_Disc_5.TOAST / 7th-College / LearnItal#1 / Vocab•Install / card_2460.txt < prev    next >
Text File  |  1989-08-16  |  3KB  |  148 lines
  1. -- card: 2460 from stack: in
  2. -- bmap block id: 4270
  3. -- flags: 0000
  4. -- background id: 13313
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=10 top=219 right=271 bottom=92
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 6935 / 6935
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: English/Italian I
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go stack "English/Italian I 1.05"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 6 (button)
  28. -- low flags: 00
  29. -- high flags: 8004
  30. -- rect: left=408 top=44 right=74 bottom=466
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: CANCEL
  39.  
  40.  
  41. -- part 7 (button)
  42. -- low flags: 00
  43. -- high flags: A004
  44. -- rect: left=240 top=44 right=74 bottom=406
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Install VocabuLearn/ce
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   answer "Install VocabuLearn/ce to your Home Stack?"  with "Cancel" or "OK"
  56.   if it is "Cancel" then exit mouseUp
  57.  
  58.   set userlevel to 5
  59.   put word 2 of long name of this stack into thePath
  60.   put empty into first char of thePath
  61.   repeat until last char of thePath is ":"
  62.     put empty into last char of thePath
  63.   end repeat
  64.   put return & thePath & "English/Italian I 1.05" after thePath
  65.  
  66.   --lock screen to true
  67.   select card button "English/Italian I"
  68.   type "c" with commandKey
  69.  
  70.   set cursor to 4
  71.   push card
  72.   go to "Home"
  73.  
  74.   go to card "Stacks"
  75.   put return & thePath after field "paths"
  76.   go to first card
  77.  
  78.   doMenu "New Field"
  79.   set rect of last cd fld to 130,57,380,90
  80.   set textFont of last cd fld to geneva
  81.   set textStyle of last cd fld to bold
  82.   set textAlign of last cd fld to center
  83.   set style of last cd fld to shadow
  84.  
  85.   type "v" with commandKey
  86.   choose browse tool
  87.  
  88.   repeat
  89.     set the loc of last card button to the mouseLoc
  90.     put the mouseLoc into oldLoc
  91.  
  92.     put "Move the mouse to position the button...then click." into last cd field
  93.     unlock screen
  94.  
  95.     repeat until the mouseClick
  96.       set the loc of last card button to the mouseLoc
  97.     end repeat
  98.  
  99.  
  100.     answer "Is button at the desired location?" with "No" or "Yes"
  101.     if it is "Yes" then
  102.       set cursor to 4
  103.       lock screen
  104.       select last cd fld
  105.       doMenu "Clear Field"
  106.       choose browse tool
  107.       exit repeat
  108.     end if
  109.   end repeat
  110.   getHomeInfo
  111.   pop card
  112. end mouseUp
  113.  
  114.  
  115.  
  116.  
  117. -- part 9 (button)
  118. -- low flags: 00
  119. -- high flags: 0004
  120. -- rect: left=468 top=44 right=74 bottom=501
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 20098 / 20098
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Home
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   go home
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 11 (button)
  137. -- low flags: 00
  138. -- high flags: 0000
  139. -- rect: left=7 top=216 right=275 bottom=95
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Blank
  148.