home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / x_tools1.sit / X-Tools1.1 / card_6707.txt < prev    next >
Text File  |  1988-01-27  |  2KB  |  85 lines
  1. -- card: 6707 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3468
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=180 top=108 right=137 bottom=314
  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: Deprotect Stack
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put filename("STAK") into fname
  23.   if fname is empty then exit mouseUp
  24.   deprotect fname
  25.   if the result is empty
  26.   then answer "Deprotect Successful" with "OK"
  27. else if the result is -49
  28. then answer "Sorry, that file is busy."
  29. else if the result is -44
  30. then answer "Sorry, the disk is locked."
  31. else answer "Failed: unexpected file system error: " & the result with "OK"
  32. end mouseUp
  33.  
  34.  
  35.  
  36.  
  37. -- part contents for background part 1
  38. ----- text -----
  39. This XCMD removes the password from a Hypercard Stack (filetype "Stak"), and sets it
  40. to empty. Use it in conjuntion with XFCN "FileName" so that only a filetype of "Stak" can only be chosen. An error trapping numerical result is returned after attempt. BE CAREFUL! 
  41.  
  42. result = empty --successful deprotection
  43. result =   -44  -- unsuccessful, disk was locked
  44. result =   -49  -- unsuccessful, file was busy
  45.  
  46. The button above will prompt for a stack, then (if possible) remove any password for that stack and set the maximum access level back to Scripting.
  47.  
  48. This button is provided in the interests of those who somehow forget the password assigned to a stack.  Please use it responsibly.
  49. -----------------------
  50. example:
  51.  
  52. on mouseUp
  53.   put filename("STAK") into fname
  54.   if fname is empty then exit mouseUp
  55.   deprotect fname
  56.   if the result is empty
  57.   then answer "Deprotect Successful" with "OK"
  58.   else if the result is -49
  59.   then answer "Sorry, that file is busy."
  60.   else if the result is -44
  61.   then answer "Sorry, the disk is locked."
  62.   else answer "Failed: unexpected file system error: " & the result with "OK"
  63. end mouseUp
  64.  
  65.         
  66.  
  67. -- part contents for background part 8
  68. ----- text -----
  69. Ned Horvath, Allan Foster
  70.  
  71. Ned Horvath, Allan Foster
  72.  
  73.  
  74. -- part contents for background part 2
  75. ----- text -----
  76. Deprotect
  77.  
  78. -- part contents for background part 4
  79. ----- text -----
  80. Deprotect <filename>
  81.  
  82.  
  83. -- part contents for background part 9
  84. ----- text -----
  85. XCMD