home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / mac / hypercar / 4889 < prev    next >
Encoding:
Internet Message Format  |  1993-01-21  |  1.0 KB
  1. Path: sparky!uunet!news.gtech.com!noc.near.net!hri.com!spool.mu.edu!olivea!charnel!OAVAX.CSUCHICO.EDU!PANDERSON
  2. From: PANDERSON@OAVAX.CSUCHICO.EDU (Peter Anderson)
  3. Newsgroups: comp.sys.mac.hypercard
  4. Subject: Re: help deprotecting a stack!
  5. Message-ID: <1jmktlINN8gd@charnel.ecst.csuchico.edu>
  6. Date: 21 Jan 93 17:01:41 GMT
  7. References: <1993Jan15.141441.1@hamp.hampshire.edu>
  8. Organization: Cal State Univ Chico
  9. Lines: 18
  10. NNTP-Posting-Host: mlib13-mac2.csuchico.edu
  11.  
  12. Try this. Create a stack containing a button and the following script:
  13. on mouseUp
  14.   put filename("STAK") into fname
  15.   if fname is empty then exit mouseUp
  16.   deprotect fname
  17.   if the result is empty
  18.   then answer "Deprotect Successful" with "OK"
  19.   else if the result is -49
  20.   then answer "Sorry, that file is busy."
  21.   else if the result is -44
  22.   then answer "Sorry, the disk is locked."
  23.   else answer "Failed: unexpected file system error: " & the result with 
  24. "OK"
  25. end mouseUp
  26.  This is a script I found someplace, and I've usually been successful with it. 
  27.  
  28.  
  29. panderson@oavax.csuchico.edu(PeterAnderson)
  30.