home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Misc / toggleReadOnlyFileStatus.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  443 b   |  27 lines
  1. !!Script
  2. // Copyright ⌐ 1999 - Modelworks Software
  3. // @Created build 272 cm19990302
  4.  
  5. /**
  6. @Tool: toggleReadOnlyFileStatus~changes the read 
  7. only file status.
  8. @EndTool: 
  9. @Summary: toggleReadOnlyFileStatus~changes the read only file status
  10. */
  11.  
  12. function DoCommand()
  13. {
  14.     var editor = getActiveEditor();
  15.     if (editor)
  16.     {
  17.         var file = editor.getFile();
  18.         if (file)
  19.         {
  20.             file.readOnly = ! file.readOnly;
  21.         }
  22.     }
  23. }
  24.  
  25. !!/Script
  26.  
  27.