home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Resources / System / BoingBag1 / Internet / AWeb / Plugins / HTTX / HTTXPluginCP.awebrx < prev    next >
Text File  |  1999-10-02  |  2KB  |  54 lines
  1. /*
  2.     $VER: HTTXPlugin Control Panel 1.0 (28.8.99) by Gabriele Favrin
  3.     Control panel for HTTX. Use with AWeb 3.3SE or better.
  4. */
  5.  
  6. options results
  7.  
  8. if ~Show('L', 'rexxsupport.library') then do
  9.     call addlib('rexxsupport.library', 0, -30, 0)      
  10. end
  11.  
  12. eol='0A'x
  13. 'GET SCREEN VAR' awebscreen
  14.  
  15. host=address()
  16.  
  17. call InitPipe()
  18. call ManageGUI()
  19.  
  20. exit 0
  21.  
  22.  
  23. InitPipe:
  24.     if Showlist('H', 'AWNPIPE') then res=open(gui_fp, 'awnpipe:/-2010/xc', 'W')
  25.     if res ~= 1 then do
  26.         'request NOWAIT "Error" "To use this program you need AWNPipe:*N        (Vers 2.10 or newer).*NInstall AWeb 3.3SE from the AWeb install script*Nor click on the CLICK ME icon in the AWeb drawer." "OK"'
  27.         exit 0
  28.     end
  29.     return
  30.  
  31.  
  32. ManageGUI:
  33.     call WriteLN(gui_fp, '"'host' - Save/print text" dg db cg sk cs ps "'awebscreen'" e so si v a q m bf "AWebPath:Docs/awebbg.iff"'eol'menu gt "Project|About|$!HTTX AWeb plugin|$!Control Panel|Author|$!Written by Gabriele Favrin|$!using AWNPIPE: gui|!|@QQuit"'eol'layout b 0 so si v cj'eol'label gt "Save or print current document with HTTX"'eol'le'eol'layout b 0 si'eol'button gt "_Save as text"'eol'button gt "_Print as text"'eol'le'eol'layout b 0 si'eol'button gt "_Configure HTTX"'eol'button gt "_Help"'eol'le'eol'open')
  34.  
  35.     do while ~(EOF(gui_fp))
  36.         call WriteLN(gui_fp, 'continue')
  37.         gad=ReadLN(gui_fp)
  38.  
  39.         select
  40.             when gad == "gadget 4 0" then 'RUN "AWebPath:Plugins/HTTX/HTTXPlugin.awebrx"'
  41.             when gad == "gadget 5 0" then 'RUN "AWebPath:Plugins/HTTX/HTTXPluginPRT.awebrx"'
  42.             when gad == "gadget 7 0" then 'RUN "AWebPath:Plugins/HTTX/HTTXPluginCFG.awebrx"'
  43.             when gad == "gadget 8 0" | gad == "key 223 0" then 'OPEN "file:///AWebPath:Plugins/HTTX/HTTXPlugin.doc.html"'
  44.             when gad == "menu 0 3 31 0" then do
  45.                 call WriteLN(gui_fp, 'close')
  46.                 call Close(gui_fp)
  47.                 exit 0
  48.             end
  49.             otherwise nop
  50.         end
  51.     end
  52.     call Close(gui_fp)
  53.     return
  54.