home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Application / editRecentFiles.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  1.3 KB  |  53 lines
  1. !!Script
  2. // Copyright ⌐ 1998 - Modelworks Software
  3.  
  4. /**
  5. @Tool: editRecentFiles~displays a choose list of the files
  6. in the Recent Files list. Uncheck the items to remove files
  7. from the Recent Files list.
  8. @EndTool: 
  9. @Summary: editRecentFiles~lets you remove files from the Recent Files list
  10. */
  11.  
  12. var gRecentFilesMap = getMapFile("RecentFiles");
  13. var gOutput = getOutput();
  14.  
  15. function DoCommand(commandID, menuIndex)
  16. {
  17.     var fileList = gRecentFilesMap.lookup("RecentFileList", null);
  18.     if (fileList)
  19.     {
  20.     var selectedList = newList();
  21.     var position = fileList.getHeadPosition();
  22.     while (position && position.valid)
  23.     {
  24.             var path = fileList.getNext(position);
  25.       selectedList.addTail(true);
  26.     }
  27.  
  28.     var resultList = chooseOptions("Recent File List",
  29.     "Edit Recent File List", fileList, selectedList);
  30.           
  31.     if (resultList)
  32.     {
  33.       var filePosition = fileList.getHeadPosition();
  34.       var resultPosition = resultList.getHeadPosition();
  35.       while (filePosition.valid && resultPosition.valid)
  36.       {
  37.                 var currentPosition = filePosition.clone();
  38.                 var path = fileList.getNext(filePosition);
  39.         var keep = resultList.getNext(resultPosition);
  40.         if (!keep)
  41.                 {
  42.                     fileList.removeAt(currentPosition);
  43.                 }
  44.       }
  45.             gRecentFilesMap.forceUpdate();
  46.     }
  47.     }
  48. }
  49.  
  50.  
  51. !!/Script
  52.  
  53.