home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / menu.file < prev    next >
Encoding:
Text File  |  2000-02-03  |  5.6 KB  |  203 lines

  1. G4C
  2. ; $VER: menu.file Rev.025 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 170 "Datei Operationen"
  4. WinType 00001000
  5. WinOnMouse 10 160
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xOnLoad
  11.     GuiOpen #This
  12.  
  13. XButton 0 0 100 15 "An Mail kleben"
  14.     GadFont xHelvetica.font 11 000
  15.     GuiClose #This
  16.     lvuse HTMLEXT 1
  17.     SetVar .htmlext.emad $%SuiteMail
  18.     SetVar .htmlext.subj $%SuiteSubj
  19.     EZREQ "Neues Mail dazu generieren, oder ans bestehende Mail anfügen?" "_1 Neu|_2 Bestehendes|[_X] Abbrechen" mailart
  20.     if $mailart = 1
  21.         LVUSE HTMLEXT 3
  22.         LVMulti First
  23.         Joinfile $$lv.dir $$lv.rec efile
  24.         Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  25.         cli 'rx $*MAILER WRITEFIRST $efile'
  26.         LVMulti Off
  27.         LVMulti Show
  28.         LVMulti First
  29.         while $$lv.line > ""
  30.             Joinfile $$lv.dir $$lv.rec efile
  31.             cli 'rx $*MAILER WRITEREST "$efile"'
  32.             Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  33.             LVMulti OFF
  34.             LVMulti Show
  35.             LVMulti NEXT
  36.         EndWhile
  37.         LVDIR #$$LV.DIR
  38.         Update "InfoBar" 1 "Alle Dateien ans EMail angeheftet ..."
  39.     elseif $mailart = 2
  40.         LVUSE HTMLEXT 3
  41.         LVMulti First
  42.         while $$lv.line > ""
  43.             Joinfile $$lv.dir $$lv.rec efile
  44.             Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  45.             cli 'rx $*MAILER WRITEREST $efile'
  46.             LVMulti OFF
  47.             LVMulti Show
  48.             LVMulti NEXT
  49.         EndWhile
  50.         LVDIR #$$LV.DIR
  51.         Update "InfoBar" 1 "Alle Dateien ans Mail angeheftet ..."
  52.     endif
  53.     GuiQuit #This
  54.  
  55. XButton 0 15 100 15 "Multi Umbenennen"
  56.     GadFont xHelvetica.font 11 000
  57.     GuiClose #This
  58.     GuiLoad "HTMLEXT:gui/func.mrename"
  59.     GuiQuit #This
  60.  
  61. XBUTTON 0 30 100 15 "Such Filter"
  62.     GadFont xHelvetica.font 11 000
  63.     GuiClose #This
  64.     GuiLoad "HTMLEXT:gui/func.filefind"
  65.     GuiQuit #This
  66.  
  67. XBUTTON 0 45 100 15 "Verzeichnis erst."
  68.     GadFont xHelvetica.font 11 000
  69.     GuiClose #This
  70.     GuiLoad "HTMLEXT:gui/func.makedir"
  71.     GuiQuit #This
  72.  
  73. XButton 0 65 100 15 "Dublizieren"
  74.     GadFont xHelvetica.font 11 000
  75.     GuiClose #This
  76.     Update "InfoBar" 1 "Dubliziere Datei(en) ..."
  77.     LVUSE HTMLEXT 3
  78.     LVMulti First
  79.     while $$lv.line > ""
  80.         SetVar .htmlext.rqt "Dublizieren" ;Titel
  81.         SetVar .htmlext.rqb "Bitte neuen Titelname Namen eingeben."  ;Body
  82.         SetVar .htmlext.rqd "$$lv.rec"  ;Default
  83.         SetVar .htmlext.rqu "Weiter|Abbrechen"  ;Buttons
  84.         cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  85.         if $.htmlext.res = 1
  86.             JoinFile $$lv.dir $$lv.rec file
  87.             JoinFile $$lv.dir $.htmlext.tmp nfile
  88.             FAILAT 21
  89.             Update "InfoBar" 1 "Dubliziere $file nach $nfile ..."
  90.             CLI 'copy FROM $file TO $nfile CLONE'
  91.         endif
  92.         LVMulti OFF
  93.         LVMulti Show
  94.         LVMulti NEXT
  95.     EndWhile
  96.     LVDIR #$$LV.DIR
  97.     Update "InfoBar" 1 "Fertig!"
  98.     GuiQuit #This
  99.  
  100. XButton 0 80 100 15 "Information"
  101.     GadFont xHelvetica.font 11 000
  102.     GuiClose #This
  103.     LVUSE HTMLEXT 3
  104.     Update "InfoBar" 1 "Generiere Information Liste ..."
  105.     cli 'echo "Dateiliste" >t:htmlext/info.list'
  106.     cli 'echo "Aktuelles Verzeichnis:" >>t:htmlext/info.list'
  107.     cli 'echo "$$lv.dir" >>t:htmlext/info.list'
  108.     cli 'echo "=================================================================" >>t:htmlext/info.list'
  109.     cli 'echo "" >>t:htmlext/info.list'
  110.     LVMulti First
  111.     while $$lv.line > ""
  112.         JoinFile $$lv.dir $$lv.rec file
  113.         Update "InfoBar" 1 "Generiere Information für $file ..."
  114.         ifexists file $file
  115.             cli 'echo "Datei:     $file" >>t:htmlext/info.list'
  116.             FailAt 21
  117.             cli 'version $file >env:.htmlext.tmp'
  118.             cli 'echo "Version:   $.htmlext.tmp" >>t:htmlext/info.list'
  119.             cli 'list $file LFORMAT="Datum:     %D" >>t:htmlext/info.list'
  120.             cli 'list $file LFORMAT="Zeit:      %T" >>t:htmlext/info.list'
  121.             cli 'list $file LFORMAT="Grösse:    %L bytes" >>t:htmlext/info.list'
  122.             cli 'list $file LFORMAT="Kommentar: %C" >>t:htmlext/info.list'
  123.             cli 'echo " " >>t:htmlext/info.list'
  124.         endif
  125.         LVMulti OFF
  126.         LVMulti Show
  127.         LVMulti NEXT
  128.     EndWhile
  129.     Update "InfoBar" 1 "Informationsliste anzeigen ..."
  130.     cli 'multiview t:htmlext/info.list PUBSCREEN $*SCREEN'
  131.     FailAt 21
  132.     cli 'delete t:htmlext/info.list FORCE'
  133.     Update "InfoBar" 1 ""
  134.     GuiQuit #This
  135.  
  136. XButton 0 95 100 15 "Kopieren nach"
  137.     GadFont xHelvetica.font 11 000
  138.     GuiClose #This
  139.     LVUSE HTMLEXT 3
  140.     ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$$LV.DIR"
  141.     Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  142.     LVACTION COPY $dest
  143.     EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  144.     if $dirview = 1
  145.         LVDIR #$dest
  146.     endif
  147.     Update "InfoBar" 1 "Fertig!"
  148.     GuiQuit #This
  149.  
  150. XButton 0 110 100 15 "Löschen"
  151.     GadFont xHelvetica.font 11 000
  152.     GuiClose #This
  153.     lvuse HTMLEXT 3
  154.     LVAction DELETE "ram:"
  155.     GuiQuit #This
  156.  
  157.  
  158. XButton 0 125 100 15 "Umbenennen"
  159.     GadFont xHelvetica.font 11 000
  160.     GuiClose #This
  161.     Update "InfoBar" 1 "Dateien umbenennen ..."
  162.     LVUSE HTMLEXT 3
  163.     LVMulti First
  164.     while $$lv.line > ""
  165.         SetVar .htmlext.rqt "Umbennen"  ;Titel
  166.         SetVar .htmlext.rqb "Bitte Dateinamen ändern ...             "  ;Body
  167.         SetVar .htmlext.rqd "$$lv.rec"  ;Default
  168.         SetVar .htmlext.rqu "Ändern|Abbrechen"  ;Buttons
  169.         cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  170.         if $.htmlext.res = 1
  171.             JoinFile $$lv.dir $$lv.rec file
  172.             JoinFile $$lv.dir $.htmlext.tmp nfile
  173.             CLI 'rename FROM $file TO $nfile'
  174.         endif
  175.         LVMulti OFF
  176.         LVMulti Show
  177.         LVMulti NEXT
  178.     EndWhile
  179.     LVDIR #$$LV.DIR
  180.     Update "InfoBar" 1 "Fertig!"
  181.     GuiQuit #This
  182.  
  183. XButton 0 140 100 15 "Verschieben"
  184.     GadFont xHelvetica.font 11 000
  185.     GuiClose #This
  186.     LVUSE HTMLEXT 3
  187.     ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$$LV.DIR"
  188.     Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  189.     LVACTION MOVE $dest
  190.     EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  191.     if $dirview = 1
  192.         LVDIR #$dest
  193.     endif
  194.     Update "InfoBar" 1 "Fertig!"
  195.     GuiQuit #This
  196.  
  197. ;=== Abbruch Button
  198. XButton 0 155 100 15 "Abbrechen [X]"
  199.     GadFont xHelvetica.font 11 010
  200.     GadKey "x"
  201.     GuiQuit #This
  202.  
  203.