home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / x_tools1.sit / X-Tools1.1 / card_7489.txt < prev    next >
Text File  |  1988-01-27  |  2KB  |  80 lines
  1. -- card: 7489 from stack: in.1
  2. -- bmap block id: 9525
  3. -- flags: 0000
  4. -- background id: 3468
  5. -- name: filename
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=350 top=108 right=132 bottom=386
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1015 / 1015
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual iris open slow to inverse
  23.   go card filecard
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part contents for background part 2
  29. ----- text -----
  30. FileName
  31.  
  32. -- part contents for background part 4
  33. ----- text -----
  34. FileName([<restype>])
  35.  
  36. -- part contents for background part 1
  37. ----- text -----
  38. The XFCN execution returns a dialog box which contains a list of only those files which match the filetype. The value returned by the function is the full name of the file including location (e.g., "HD-20:Hyper Stacks:Home")
  39.  
  40. Restypes:
  41.     "TEXT" - ASCII text files
  42.     "STAK" - HyperCard stack files
  43.     "APPL" - Applications
  44.  
  45. ------------------------------
  46. examples
  47.  
  48. A.
  49. on mouseUp
  50.   get FileName("TEXT")
  51.   if it is not empty then put it into newfile
  52.   open newfile
  53.   read from file newfile until return
  54.   put it into field maintext
  55.   close newfile
  56. end mouseUp
  57.  
  58. B.
  59. on mouseUp
  60.   put filename("STAK") into fname
  61.   if fname is empty then exit mouseUp
  62.   deprotect fname
  63.   if the result is empty
  64.   then answer "Deprotect Successful" with "OK"
  65.   else if the result is -49
  66.   then answer "Sorry, that file is busy."
  67.   else if the result is -44
  68.   then answer "Sorry, the disk is locked."
  69.   else answer "Failed: unexpected file system error: " & the result with "OK"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part contents for background part 9
  75. ----- text -----
  76. XFCN
  77.  
  78. -- part contents for background part 8
  79. ----- text -----
  80. Steve Maller