home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / mod / browser / voyager.mod < prev   
Encoding:
Text File  |  2000-01-26  |  1.6 KB  |  84 lines
  1. /* $VER: HTMLEXT Modul: Voyager.mod V 0.1.2 by Juan Manuel Wehrli 1999
  2.    Voraussetzung: Voyager 2.95 oder besser
  3.    Dieses Modul hat noch kleine Fehler beim Reload, das heisst,
  4.    Voyager unterstützt das nicht immer korrekt.
  5.  */
  6.  
  7. if ~show("L",rexxreqtools.library) then do
  8.         call addlib("rexxreqtools.library",0,-30,0)
  9. end
  10. if ~show("L",rexxtricks.library) then do
  11.         call addlib("rexxtricks.library",0,-30,0)
  12. end
  13. NL = '0a'x
  14.  
  15.  
  16. PARSE ARG Befehl File
  17. OPTIONS RESULTS
  18. ADDRESS COMMAND
  19.  
  20. if Befehl = QUIT then do
  21.     if show('P',"VOYAGER") then do
  22.         ADDRESS "VOYAGER" QUIT
  23.     end
  24.     exit
  25. end
  26.  
  27.  
  28. if Befehl = OPEN then do
  29.     if ~show('P',"VOYAGER") then do
  30.         'Run <>NIL: voyager:V'
  31.         "sys:rexxc/waitforport VOYAGER"
  32.     end
  33.     File = STRIP(File,,'"')
  34.     File = STRIP(File)
  35.     if File ~= "" then do
  36.         ADDRESS "VOYAGER" OPENURL '"file:///' || File || '"'
  37.     end
  38.     exit
  39. end
  40.  
  41. if Befehl = OPENNEW then do
  42.     DIR = GETENV(.htmlext.tmp)
  43.     if ~show('P',"VOYAGER") then do
  44.         'Run <>NIL: voyager:v'
  45.         "sys:rexxc/waitforport VOYAGER"
  46.     end
  47.     File = STRIP(File,,'"')
  48.     File = STRIP(File)
  49.     if File ~= "" then do
  50.         ADDRESS "VOYAGER" OPENURL '"file:///' || File || '"' NEWWIN
  51.     end
  52.     exit
  53. end
  54.  
  55.  
  56. if Befehl = OPENURL then do
  57.     if ~show('P',"VOYAGER") then do
  58.         'Run <>NIL: SYS:Network/Voyager/V'
  59.         "sys:rexxc/waitforport VOYAGER"
  60.     end
  61.     File = STRIP(File,,'"')
  62.     File = COMPRESS(File)
  63.     if File ~= "" then do
  64.         ADDRESS "VOYAGER" OPENURL '"' || File || '"'
  65.     end
  66.     exit
  67. end
  68.  
  69. if Befehl = ICONIFY then do
  70.     if show('P',"VOYAGER") then do
  71.         ADDRESS "VOYAGER" HIDE
  72.     end
  73.     exit
  74. end
  75.  
  76. if Befehl = UNICONIFY then do
  77.     if show('P',"VOYAGER") then do
  78.          ADDRESS "VOYAGER" SHOW
  79.     end
  80.     exit
  81. end
  82.  
  83.  
  84.