home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / barbutto.sit / BarButton / card_3236.txt < prev    next >
Text File  |  1987-11-23  |  3KB  |  124 lines
  1. -- card: 3236 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2619
  5. -- name: Card 2
  6. ----- HyperTalk script -----
  7. on opencard
  8.   get rect of card button id 4
  9.   BarButton -3,10,0,10
  10.   get rect of card button id 3
  11.   BarButton -1,10,0,7
  12.   get rect of card button id 1
  13.   BarButton -4,10,0,4
  14.   get rect of card button id 2
  15.   BarButton -2,10,0,1
  16. end opencard
  17.  
  18.  
  19. -- part 1 (button)
  20. -- low flags: 00
  21. -- high flags: 0002
  22. -- rect: left=388 top=209 right=292 bottom=409
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 24
  28. -- style flags: 0
  29. -- line height: 32
  30. -- part name: 
  31. ----- HyperTalk script -----
  32. on mousedown
  33.   if the optionkey is down then put script of me into bkgnd field lowerpane
  34.   set cursor to 2
  35.   get the rect of me
  36.   BarButton 4
  37.   put the result into bkgnd field results
  38. end mousedown
  39.  
  40.  
  41.  
  42. -- part 2 (button)
  43. -- low flags: 00
  44. -- high flags: 0002
  45. -- rect: left=314 top=189 right=210 bottom=409
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 24
  51. -- style flags: 0
  52. -- line height: 32
  53. -- part name: 
  54. ----- HyperTalk script -----
  55. on mousedown
  56.   if the optionkey is down then put script of me into bkgnd field lowerpane
  57.   set cursor to 2
  58.   get the rect of me
  59.   BarButton 2
  60.   put the result into bkgnd field results
  61. end mousedown
  62.  
  63.  
  64.  
  65. -- part 3 (button)
  66. -- low flags: 00
  67. -- high flags: 0002
  68. -- rect: left=408 top=209 right=229 bottom=498
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 24
  74. -- style flags: 0
  75. -- line height: 32
  76. -- part name: 
  77. ----- HyperTalk script -----
  78. on mousedown
  79.   if the optionkey is down then put script of me into bkgnd field lowerpane
  80.   set cursor to 2
  81.   get the rect of me
  82.   BarButton 1
  83.   put the result into bkgnd field results
  84. end mousedown
  85.  
  86.  
  87.  
  88. -- part 4 (button)
  89. -- low flags: 00
  90. -- high flags: 0002
  91. -- rect: left=408 top=126 right=210 bottom=429
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 24
  97. -- style flags: 0
  98. -- line height: 32
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mousedown
  102.   if the optionkey is down then put script of me into bkgnd field lowerpane
  103.   set cursor to 2
  104.   get the rect of me
  105.   BarButton 3
  106.   put the result into bkgnd field results
  107. end mousedown
  108.  
  109.  
  110.  
  111. -- part contents for background part 10
  112. ----- text -----
  113.     As you probably noticed by reading the scripts, the XCMD is called when you include the "BarButton" command in one of your scripts.  You may optionally include up to four parameters after the BarButton command.  The first parameter tells the XCMD to operate the bar in a particular direction:
  114.     1:  left to right
  115.     2:  right to left
  116.     3:  bottom to top
  117.     4:  top to bottom
  118. So you can arrange some interesting graphic effects if you wish.
  119.     Of course you also have all of the regular Hypercard choices for the style of the button.  The four Bar buttons on this card are Rectangle style.  Their rectangles overlap one pixel where they touch.
  120.  
  121.  
  122. -- part contents for background part 4
  123. ----- text -----
  124. 65