home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / storybok.sit / Storybook / card_6372.txt < prev    next >
Text File  |  1990-07-24  |  2KB  |  84 lines
  1. -- card: 6372 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 6013
  5. -- name: main
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global cardLine
  9.   put 1 into cardLine
  10. end openCard
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 01
  15. -- high flags: 0007
  16. -- rect: left=156 top=84 right=246 bottom=341
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 4
  21. -- text size: 9
  22. -- style flags: 0
  23. -- line height: 12
  24. -- part name: Cards
  25. ----- HyperTalk script -----
  26. on mouseDown
  27.   global done
  28.   global cardLine
  29.   set lockText of card field "Cards" to false
  30.   click at the clickLoc
  31.   click at the clickLoc
  32.   set lockText of card field "Cards" to true
  33.   click at the topLeft of card button "Click on page name:"
  34.   put word 2 of the selectedLine into cardLine
  35.   get the selection
  36.   if it is "" then
  37.     select empty
  38.     put 0 into cardLine
  39.   else
  40.     put true into done
  41.   end if
  42. end mouseDown
  43.  
  44.  
  45.  
  46.  
  47. -- part 2 (button)
  48. -- low flags: 00
  49. -- high flags: 8002
  50. -- rect: left=156 top=62 right=84 bottom=341
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Click on page name:
  59.  
  60.  
  61. -- part 3 (button)
  62. -- low flags: 00
  63. -- high flags: A003
  64. -- rect: left=209 top=280 right=302 bottom=286
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Cancel
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   global cancel
  76.   put true into cancel
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part contents for card part 1
  82. ----- text -----
  83. beginning
  84. end