home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / func.history < prev    next >
Encoding:
Text File  |  2000-02-03  |  1.7 KB  |  66 lines
  1. G4C
  2. ; $VER: func.history Rev.003 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG 0 0 640 20 "History Tool"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. ;Winout "NIL:"
  7.  
  8. xOnLoad
  9.     SetGad #This 101 HIDE
  10.     GuiOpen #This
  11.  
  12. xOnOpen
  13.     Update #This 1 "Aktuelle Suite: $*SUITENAME"
  14.  
  15. xOnClose
  16.     GuiQuit #This
  17.  
  18. Text 0 0 350 20 "Keine Aktivität ..." 100 BOX
  19.     GadFont "xHelvetica.font" "11" 000
  20.     GadID 1
  21.  
  22. xButton 350 1 70 18 "Überprüfen"
  23.     GadFont "xHelvetica.font" "11" 000
  24.     lvuse HTMLEXT 1
  25.     EXTRACT %SuiteHistFile CLEAN hfile
  26.     EXTRACT %SuiteFTPOL CLEAN ftpdir
  27.     SetVar olhfile $hfile
  28.     RepVar olhfile $*SUITEDIR $ftpdir CI
  29.     INFO FILE $olhfile
  30.     SetVar olsize $$FILE.LENGTH
  31.     INFO FILE $hfile
  32.     SetVar lsize $$FILE.LENGTH
  33.     if $olsize == $lsize
  34.         EZREQ "History wurde nicht geändert!" "Weiter" NIL
  35.     elseif $olsize > $lsize
  36.         EZREQ "Die online History wurde verändert soll sie runtergeladen werden?" "Ja|Nein" abfr1
  37.         if $abfr1 = 1
  38.             cli 'copy $olhfile TO $hfile NOREQ'
  39.         endif
  40.     elseif $olsize < $lsize
  41.         EZREQ "Die lokale History wurde verändert soll sie runtergeladen werden?" "Ja|Nein" abfr2
  42.         if $abfr2 = 1
  43.             cli 'copy $hfile TO $olhfile NOREQ'
  44.         endif
  45.     endif
  46.  
  47. xButton 420 1 70 18 "Bearbeiten"
  48.     GadFont "xHelvetica.font" "11" 000
  49.     lvuse HTMLEXT 1
  50.     EXTRACT %SuiteHistFile CLEAN hfile
  51.     cli 'rx $*EDITOR OPENNEW $hfile'
  52.  
  53. xButton 490 1 70 18 "Versenden"
  54.     GadFont "xHelvetica.font" "11" 000
  55.     lvuse HTMLEXT 1
  56.     EXTRACT %SuiteMail CLEAN .htmlext.emad
  57.     EXTRACT %SuiteSubj CLEAN .htmlext.subj
  58.     EXTRACT %SuiteHistFile CLEAN sfile
  59.     cli 'rx $*MAILER WRITEFIRST $sfile'
  60.  
  61. xButton 560 1 80 18 "[_X] Schliessen"
  62.     GadFont "xHelvetica.font" "11" 000
  63.     GadKey "x"
  64.     GuiQuit #This
  65.  
  66.