home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.action < prev    next >
Encoding:
Text File  |  2000-04-19  |  4.0 KB  |  166 lines
  1. G4C
  2. ; $VER: menu.action Rev.028 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 120 275 "Bearbeiten"
  4. WinType 00001000
  5. WinOnMouse 100 265
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xOnLoad
  11.     SetGad #This 101 HIDE
  12.     SetGad #This 102 HIDE
  13.     SetGad #This 103 HIDE
  14.     ifexists file "HTMLEXT:c/imageMap/ImageMap"
  15.         SetGad #This 104 ON
  16.     else
  17.         SetGad #This 104 OFF
  18.     endif
  19.     GuiOpen #This
  20.  
  21. xOnRMB
  22.     SetGad #This 1 HIDE
  23.     SetGad #This 101 SHOW
  24.     SetGad #This 102 SHOW
  25.     SetGad #This 103 SHOW
  26.     PartReDraw #This 0 75 120 190
  27.  
  28. XButton 0 0 120 15 "Durchsuchen"
  29.     GadFont xHelvetica.font 11 000
  30.     GuiClose #This
  31.     GuiLoad "HTMLEXT:gui/func.mfind"
  32.     GuiQuit #This
  33.  
  34. XButton 0 15 120 15 "Ersetzen"
  35.     GadFont xHelvetica.font 11 000
  36.     GuiClose #This
  37.     GuiLoad "HTMLEXT:gui/func.mreplace"
  38.     GuiQuit #This
  39.  
  40. XButton 0 30 120 15 "ImageMap"
  41.     GadFont xHelvetica.font 11 000
  42.     GadID 104
  43.     GuiClose #This
  44.     LVUSE #This 3
  45.     LVUSE "HTMLEXT" 3
  46.     LVMulti First
  47.     while $$lv.line > ""
  48.         Joinfile $$lv.dir $$lv.rec gfxfile
  49.         Update "infobar" 1 "Lade $gfxfile in das ImageMap Programm ..."
  50.         RUN 'HTMLEXT:c/ImageMap/ImageMap $gfxfile'
  51.         Update "infobar" 1 ""
  52.         LVMulti OFF
  53.         LVMulti Show
  54.         LVMulti First
  55.     EndWhile
  56.     GuiQuit #This
  57.  
  58.  
  59. XButton 0 45 120 15 "Image TAG einfügen"
  60.     GadFont xHelvetica.font 11 000
  61.     GuiClose #This
  62.     LVUSE #This 3
  63.     LVUSE "HTMLEXT" 3
  64.     LVMulti First
  65.     while $$lv.line > ""
  66.         Update "infobar" 1 "Lese Infos zu $lvdir ein ..."
  67.         Joinfile $$lv.dir $$lv.rec file
  68.         CLI 'HTMLEXT:c/picsize "$file" FORMAT="%w" >env:.htmlext.tmp'
  69.         CLI 'HTMLEXT:c/picsize "$file" FORMAT="%h" >env:.htmlext.tmp1'
  70.         CLI 'HTMLEXT:c/picsize "$file" FORMAT="Size %s bytes" >env:.htmlext.tmp2'
  71.         SetVar htmlname $file
  72.         RepVar htmlname $*SITEDIR "" CI
  73.         SetVar imgtag '<IMG SRC="$htmlname"'
  74.         AppVar imgtag ' WIDTH="$.htmlext.tmp"'
  75.         AppVar imgtag ' HEIGHT="$.htmlext.tmp1" BORDER="0"'
  76.         AppVar imgtag ' ALT="$.htmlext.tmp2">'
  77.         SetVar .htmlext.tmp $imgtag
  78.         cli 'rx $*EDITOR INSERT env:.htmlext.tmp'
  79.         LVMulti OFF
  80.         LVMulti Show
  81.         LVMulti First
  82.     EndWhile
  83.     Update "infobar" 1 "Fertig!"
  84.     GuiQuit #This
  85.  
  86. XButton 0 60 120 15 "HTML->Grafik erzeugen"
  87.     GadFont xHelvetica.font 11 000
  88.     GuiClose #This
  89.     if $*BROWSER == "HTMLEXT:mod/Browser/aweb.mod"
  90.         LVUSE #This 3
  91.         LVUSE "HTMLEXT" 3
  92.         LVMulti First
  93.         while $$lv.line > ""
  94.             Update "infobar" 1 "Erzeuge Grafik von der $lvdir Web Seite ..."
  95.             CLI 'rx $*BROWSER MKHTMLPIC $lvdir'
  96.             SetVar nfile $lvdir
  97.             AppVar nfile ".iff"
  98.             CLI 'copy t:htmlext/tmp.image.pic to $nfile'
  99.             LVMulti OFF
  100.             LVMulti Show
  101.             LVMulti First
  102.         EndWhile
  103.         Update "infobar" 1 "Fertig!"
  104.     else
  105.         Update "infobar" 1 "HTML nach Grafik funktioniert nur, wenn AWeb als Browser eingestellt wurde!"
  106.     endif
  107.     GuiQuit #This
  108.  
  109. XLISTVIEW 0 75 120 185 "" actiondb "HTMLEXT:Settings/Action.prefs" 0 TXT
  110.     gadid 1
  111.     gadfont sgiscreen.font 13 000
  112.     GuiClose #this
  113.     lvuse #This 1
  114.     SetVar befehl $%Befehl
  115.     lvuse HTMLEXT 3
  116.     LVMulti First
  117.     while $$lv.line > ""
  118.         JoinFile $$lv.dir $$lv.rec file
  119.         CLI '$befehl $file'
  120.         LVMulti OFF
  121.         LVMulti Show
  122.         LVMulti First
  123.     endwhile
  124.     GuiQuit #This
  125.  
  126. XLISTVIEW 0 75 120 170 "" actiondb "HTMLEXT:Settings/Action.prefs" 0 TXT
  127.     gadid 101
  128.     gadfont sgiscreen.font 13 000
  129.     EZREQ "Was möchten Sie ...?" "_1 Bearbeiten|_2 Löschen|[_X] Abbrechen" func
  130.     if $func = 1
  131.         lvuse #This 101
  132.         SetVar *VIEWERNAME $%Name
  133.         SetVar *VIEWERPRG $%Befehl
  134.         GuiLoad "HTMLEXT:gui/func.action"
  135.     elseif $func = 2
  136.         lvuse #This 101
  137.         lvdel -1
  138.         lvsort %Name
  139.         lvsave "HTMLEXT:settings/Action.prefs"
  140.     endif
  141.  
  142. XButton 0 245 50 15 "Neu"
  143.     GadFont xHelvetica.font 11 000
  144.     GadID 103
  145.     GuiLoad "HTMLEXT:gui/func.action.n"
  146.  
  147. XButton 50 245 70 15 "Speichern"
  148.     GadFont xHelvetica.font 11 000
  149.     GadID 102
  150.     SetGad #This 1 Show
  151.     SetGad #This 101 HIDE
  152.     SetGad #This 102 HIDE
  153.     SetGad #This 103 HIDE
  154.     lvuse #This 101
  155.     lvsave "HTMLEXT:settings/Action.prefs"
  156.     lvuse #This 1
  157.     lvchange "HTMLEXT:Settings/Action.prefs"
  158.     PartRedraw #This 0 75 120 320
  159.  
  160. ;=== Abbruch Button
  161. XButton 0 260 120 15 "Abbrechen [X]"
  162. GadFont xHelvetica.font 11 010
  163. GadKey "q"
  164. GuiQuit #This
  165.  
  166.