home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / xcmd_set.sit / SetDirectory / card_3004.txt < prev    next >
Text File  |  1988-10-31  |  2KB  |  100 lines
  1. -- card: 3004 from stack: in
  2. -- bmap block id: 3791
  3. -- flags: 0000
  4. -- background id: 2686
  5. -- name: 
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=45 top=138 right=180 bottom=106
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1020 / 1020
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   show card field 1
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 3 (button)
  28. -- low flags: 00
  29. -- high flags: 8003
  30. -- rect: left=198 top=199 right=226 bottom=309
  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: Open Stack
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   SetDirectory ":Stacks"
  42.   if the Result is empty then
  43.     go to "the stack that you want"
  44.   else
  45.     put the Result
  46.   end if
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 4 (button)
  52. -- low flags: 00
  53. -- high flags: 8004
  54. -- rect: left=204 top=251 right=285 bottom=307
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Edit Script
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   Edit script of card button "Open Stack"
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 5 (field)
  71. -- low flags: 81
  72. -- high flags: 0004
  73. -- rect: left=25 top=104 right=313 bottom=186
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 3
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 12
  81. -- part name: 
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   hide the target
  85. end mouseUp
  86.  
  87.  
  88. -- part contents for background part 6
  89. ----- text -----
  90. SetDirectory XCMD
  91.  
  92. -- part contents for card part 5
  93. ----- text -----
  94. This XCMD will set the Standard File dialog box to a folder whose pathname that you provide.  It is intended so that you can use a script similar to the one here and SFGetFile will open up into the directory containing all of your miscellaneous stacks.
  95.  
  96. This will not set SFGetFile to another disk, so it is best used on a hard disk.
  97.  
  98. Jon Pugh
  99. pugh@nmfecc.arpa
  100. (415) 423-4239