home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / drgryrct.bin / draggrayrect.bin / card_2725.txt < prev    next >
Text File  |  1989-05-16  |  4KB  |  171 lines
  1. -- card: 2725 from stack: in.bin
  2. -- bmap block id: 3907
  3. -- flags: 0000
  4. -- background id: 3044
  5. -- name: DragGrayRect
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=282 top=244 right=266 bottom=395
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: xbar
  20.  
  21.  
  22. -- part 7 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=277 top=111 right=224 bottom=294
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: bar
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: 8002
  39. -- rect: left=337 top=180 right=212 bottom=425
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Drag me
  48. ----- HyperTalk script -----
  49. on mouseDown
  50.   set cursor to arrow
  51.   put DragGrayRect(rect of me,n,rect of bg btn "demoarea") into r
  52.   set rect of me to r
  53. end mouseDown
  54.  
  55.  
  56.  
  57.  
  58. -- part 5 (button)
  59. -- low flags: 00
  60. -- high flags: 8002
  61. -- rect: left=243 top=191 right=223 bottom=331
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Drag me (y)
  70. ----- HyperTalk script -----
  71. on mouseDown
  72.   set cursor to arrow
  73.   put DragGrayRect(rect of me,Y,rect of btn "bar") into r
  74.   set rect of me to r
  75. end mouseDown
  76.  
  77.  
  78.  
  79.  
  80. -- part 6 (button)
  81. -- low flags: 00
  82. -- high flags: 8002
  83. -- rect: left=305 top=245 right=264 bottom=394
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Drag me (x)
  92. ----- HyperTalk script -----
  93. on mouseDown
  94.   set cursor to arrow
  95.   put DragGrayRect(rect of me,x,rect of btn "xbar") into r
  96.   set rect of me to r
  97. end mouseDown
  98.  
  99.  
  100.  
  101.  
  102. -- part 12 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=277 top=76 right=91 bottom=386
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: x2bar
  114.  
  115.  
  116. -- part 11 (button)
  117. -- low flags: 00
  118. -- high flags: 0002
  119. -- rect: left=341 top=76 right=91 bottom=361
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Drag me (x)
  128. ----- HyperTalk script -----
  129. on mouseDown
  130.   set cursor to arrow
  131.   put DragGrayRect(rect of me,x,rect of btn "x2bar") into r
  132.   set rect of me to r
  133. end mouseDown
  134.  
  135.  
  136.  
  137.  
  138. -- part contents for background part 4
  139. ----- text -----
  140. DESCRIPTION: 
  141.    Drags a Gray rect.  
  142.  
  143. Written by: 
  144.   wing eng ygxj@vax5.cornell.edu.  
  145. It's free!!
  146.                            ----------
  147. SYNTAX:
  148.    DragObjects <r1>[,<constrain>, <r2>]
  149.  
  150. <r1> - Gray rectangle.
  151. <constrain> - x or y, to constrain gray rect movement.
  152. <r2> - Constrains rect inside another.
  153.                            ----------
  154. RETURN: 
  155.    Final rect coords
  156.  
  157.  
  158. -- part contents for background part 25
  159. ----- text -----
  160. DragObjects
  161. Group
  162.  
  163.  
  164. -- part contents for background part 32
  165. ----- text -----
  166.      Wing Eng
  167.      Cornell University
  168.      Ithaca,NY 14853
  169.      ygxj@cornella.bitnet
  170.      ygxj@vax5.cit.cornell.edu
  171.      3/21/89