home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / url_util.zip / picker.sl < prev    next >
Text File  |  1997-07-16  |  715b  |  25 lines
  1. %URL picker
  2. %See README.TXT for installation and usage information
  3. define picker ()
  4.   {
  5.      variable browservbl;
  6.      variable rsp;
  7.      variable status = get_variable_value ("non_Xbrowser");
  8.  
  9.      rsp = select_list_box ("Select Browser:",
  10.              "Lynx", "Bookmark", "Download", 3,
  11.                 2);
  12.  
  13.  
  14.     switch (rsp)
  15.         { case "Lynx" : browservbl = "lynx2.cmd %s" }
  16.         { case "Bookmark" : browservbl = "echo %s | geturl.cmd > nul" }
  17.         { case "Download" : browservbl = "echo %s | downurl.cmd > nul" }
  18.  
  19.      set_string_variable ("non_Xbrowser", browservbl);
  20.  
  21.      call ("browse_url");
  22.  
  23.      set_string_variable ("non_Xbrowser", status);
  24.   }
  25. definekey ("picker", "U", "article");