home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / x_tools1.sit / X-Tools1.1 / background_2699.txt < prev    next >
Text File  |  1988-01-27  |  2KB  |  84 lines
  1. -- background: 2699 from stack: in.1
  2. -- bmap block id: 3106
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=158 top=66 right=309 bottom=383
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: main
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global xcpyflag,xtyp,xres
  23.   put item 1 of the rect of field main + 5  into x
  24.   put item 3 of the rect of field main - 25  into z
  25.   put item 2 of the clickloc into y
  26.   set the locktext of field main to false
  27.   click at  x ,y
  28.   click at  z,y with shiftkey
  29.   put the selection into xres
  30.   if xcpyflag is true then set the lockscreen to true
  31.   set the locktext of field main to true
  32.   visual iris open to black
  33.   if xres is empty then
  34.     if xcpyflag is true then
  35.       put "Click on resource in the main field above" into msg
  36.       show the msg
  37.     end if
  38.     exit mouseUp
  39.   else
  40.     find xres in field 2
  41.     click at the loc of field 2
  42.   end if
  43.   if xcpyflag is true then
  44.     put field xtype into xtyp
  45.     go card index
  46.     set the lockscreen to false
  47.     xcopy2
  48.   end if
  49.   put false into xcpyflag
  50. end mouseUp
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58. -- part 1 (field)
  59. -- low flags: 01
  60. -- high flags: 0004
  61. -- rect: left=102 top=27 right=55 bottom=442
  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: 18
  67. -- style flags: 256
  68. -- line height: 24
  69. -- part name: 
  70.  
  71.  
  72. -- part 4 (field)
  73. -- low flags: 01
  74. -- high flags: 0000
  75. -- rect: left=110 top=316 right=337 bottom=428
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 2304
  82. -- line height: 16
  83. -- part name: sorttype
  84.