home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / mod / browser / aweb.mod next >
Encoding:
Text File  |  2000-01-26  |  1.8 KB  |  95 lines
  1. /* $VER: HTMLEXT Modul: aweb.mod V 0.1.3 by Juan Manuel Wehrli 1999
  2.    Voraussetzung: AWeb 3.3
  3.  */
  4.  
  5. if ~show("L",rexxreqtools.library) then do
  6.         call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("L",rexxtricks.library) then do
  9.         call addlib("rexxtricks.library",0,-30,0)
  10. end
  11. NL = '0a'x
  12.  
  13. PARSE ARG Befehl File
  14. OPTIONS RESULTS
  15. ADDRESS COMMAND
  16.  
  17. if Befehl = QUIT then do
  18.     if show('P',"AWEB.1") then do
  19.         ADDRESS "AWEB.1" QUIT FORCE
  20.     end
  21.     exit
  22. end
  23.  
  24. if Befehl = OPEN then do
  25.     if ~show('P',"AWEB.1") then do
  26.         'Run <>NIL: AWeb3:AWeb-II'
  27.         "sys:rexxc/waitforport AWEB.1"
  28.     end
  29.     File = STRIP(File,,'"')
  30.     File = COMPRESS(File)
  31.     if File ~= "" then do
  32.         ADDRESS "AWEB.1"
  33.         SETCFG NAVIGATION 0
  34.         SETCFG SHOWBUTTONS 0
  35.         OPEN URL '"file:///' || File || '"' RELOAD
  36.     end
  37.     exit
  38. end
  39.  
  40. if Befehl = OPENNEW then do
  41.     DIR = GETENV(.htmlext.tmp)
  42.     if ~show('P',"AWEB.1") then do
  43.         'Run <>NIL: AWeb3:AWeb-II'
  44.         "sys:rexxc/waitforport AWEB.1"
  45.     end
  46.     File = STRIP(File,,'"')
  47.     File = STRIP(File)
  48.     if File ~= "" then do
  49.         ADDRESS "AWEB.1" NEW URL '"file:///' || File || '"' RELOAD
  50.     end
  51.     exit
  52. end
  53.  
  54. if Befehl = OPENURL then do
  55.     if ~show('P',"AWEB.1") then do
  56.         'Run <>NIL: AWeb3:AWeb-II'
  57.         "sys:rexxc/waitforport AWEB.1"
  58.     end
  59.     File = STRIP(File,,'"')
  60.     File = COMPRESS(File)
  61.     if File ~= "" then do
  62.         ADDRESS "AWEB.1" OPEN URL '"' || File || '"' RELOAD
  63.     end
  64.     exit
  65. end
  66.  
  67. if Befehl = ICONIFY then do
  68.     if show('P',"AWEB.1") then do
  69.         ADDRESS "AWEB.1" ICONIFY HIDE
  70.     end
  71.     exit
  72. end
  73.  
  74. if Befehl = UNICONIFY then do
  75.     if show('P',"AWEB.1") then do
  76.          ADDRESS "AWEB.1" ICONIFY SHOW
  77.     end
  78.     exit
  79. end
  80.  
  81. if Befehl = MKHTMLPIC then do
  82.     if ~show('P',"AWEB.1") then do
  83.         'Run <>NIL: AWeb3:AWeb-II'
  84.         "sys:rexxc/waitforport AWEB.1"
  85.     end
  86.     File = STRIP(File)
  87.     if File ~= "" then do
  88.         ADDRESS "AWEB.1"
  89.         OPEN URL '"file:///' || File || '"' RELOAD
  90.         ADDRESS COMMAND 'wait 3'
  91.         SAVEIFF "t:HTMLEXT/tmp.image.pic" NOICON WAIT
  92.     end
  93. end
  94.  
  95.