home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Configuration / htmlBrowser.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  845 b   |  34 lines
  1. !!Script
  2. // Copyright ⌐ 1997-1998 - Modelworks Software
  3. // @Modified build 228 cm19981020 - added support for Smart Directory
  4.  
  5. /**
  6. @Tool: htmlBrowser~displays a find file dialog to let you select 
  7. your default HTML browser. Run this script to change your default HTML browser.
  8. @EndTool: 
  9. @Summary: htmlBrowser~sets your default HTML browser 
  10. */
  11.  
  12. function DoCommand()
  13. {
  14.     var helpers = getMapFile("ApplicationHelpers");
  15.     var currentHtmlBrowser = helpers.lookup("DefaultHtmlBrowser");
  16.     
  17.     var path = ""; //cm19981020
  18.     if (currentHtmlBrowser && currentHtmlBrowser.exists)
  19.     {
  20.         path = currentHtmlBrowser.path;
  21.     }
  22.     
  23.     var file = chooseFile("Locate you default HTML browser",
  24.     "Application", "*.exe", path, "choose application"); //cm19981020
  25.     
  26.     if (file)
  27.     {
  28.         
  29.         helpers.add("DefaultHtmlBrowser", file);
  30.     }
  31. }
  32.  
  33. !!/Script
  34.