home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / mod / browser / ibrowse.mod < prev    next >
Encoding:
Text File  |  2000-01-26  |  1.3 KB  |  73 lines
  1. /* $VER: HTMLEXT Modul: ibrowse.mod V 0.1.6 by Juan Manuel Wehrli 1999
  2.  */
  3.  
  4. PARSE ARG Befehl File
  5. OPTIONS RESULTS
  6. ADDRESS COMMAND
  7.  
  8. if Befehl = QUIT then do
  9.     if show('P',"IBROWSE") then do
  10.         ADDRESS "IBROWSE" QUIT
  11.     end
  12.     exit
  13. end
  14.  
  15.  
  16. if Befehl = OPEN then do
  17.     if ~show('P',"IBROWSE") then do
  18.         'Run <>NIL: ibrowse:ibrowse'
  19.         "sys:rexxc/waitforport IBROWSE"
  20.     end
  21.     File = STRIP(File,,'"')
  22.     File = STRIP(File)
  23.     if File ~= "" then do
  24.         ADDRESS "IBROWSE" GOTOURL '"file://localhost/' || File || '"'
  25.     end
  26.     exit
  27. end
  28.  
  29.  
  30. if Befehl = OPENNEW then do
  31.     DIR = GETENV(.htmlext.tmp)
  32.     if ~show('P',"IBROWSE") then do
  33.         'Run <>NIL: ibrowse:ibrowse'
  34.         "sys:rexxc/waitforport IBROWSE"
  35.     end
  36.     File = STRIP(File,,'"')
  37.     File = STRIP(File)
  38.     if File ~= "" then do
  39.         ADDRESS "IBROWSE" NEWWINDOW
  40.         ADDRESS "IBROWSE" GOTOURL '"file://localhost/' || File || '"'
  41.     end
  42.     exit
  43. end
  44.  
  45. if Befehl = OPENURL then do
  46.     if ~show('P',"IBROWSE") then do
  47.         'Run <>NIL: ibrowse:ibrowse'
  48.         "sys:rexxc/waitforport IBROWSE"
  49.     end
  50.     File = STRIP(File,,'"')
  51.     File = COMPRESS(File)
  52.     if File ~= "" then do
  53.         ADDRESS "IBROWSE" GOTOURL File
  54.     end
  55.     exit
  56. end
  57.  
  58. if Befehl = ICONIFY then do
  59.     if show('P',"IBROWSE") then do
  60.         ADDRESS "IBROWSE" HIDE
  61.     end
  62.     exit
  63. end
  64.  
  65. if Befehl = UNICONIFY then do
  66.     if show('P',"IBROWSE") then do
  67.          ADDRESS "IBROWSE" SHOW
  68.     end
  69.     exit
  70. end
  71.  
  72.  
  73.