home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / internet / htmlext / gui / menu.action < prev    next >
Encoding:
Text File  |  2000-02-03  |  4.0 KB  |  164 lines
  1. G4C
  2. ; $VER: menu.action Rev.026 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 120 275 "Bearbeiten"
  4. WinType 00001000
  5. WinOnMouse 10 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:programme/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.         Update "infobar" 1 "Lese Infos zu $lvdir ein ..."
  49.         Joinfile $$lv.dir $$lv.rec file
  50.         cli 'run <>NIL: htmlext:programme/ImageMap/ImageMap $file'
  51.         LVMulti OFF
  52.         LVMulti Show
  53.         LVMulti First
  54.     EndWhile
  55.  
  56.  
  57. XButton 0 45 120 15 "Image TAG einfügen"
  58.     GadFont xHelvetica.font 11 000
  59.     GuiClose #This
  60.     LVUSE #This 3
  61.     LVUSE "HTMLEXT" 3
  62.     LVMulti First
  63.     while $$lv.line > ""
  64.         Update "infobar" 1 "Lese Infos zu $lvdir ein ..."
  65.         Joinfile $$lv.dir $$lv.rec file
  66.         CLI 'htmlext:Programme/picsize "$file" FORMAT="%w" >env:.htmlext.tmp'
  67.         CLI 'htmlext:Programme/picsize "$file" FORMAT="%h" >env:.htmlext.tmp1'
  68.         CLI 'htmlext:Programme/picsize "$file" FORMAT="Size %s bytes" >env:.htmlext.tmp2'
  69.         SetVar htmlname $file
  70.         RepVar htmlname $*SUITEDIR "" CI
  71.         SetVar imgtag '<IMG SRC="$htmlname"'
  72.         AppVar imgtag ' WIDTH="$.htmlext.tmp"'
  73.         AppVar imgtag ' HEIGHT="$.htmlext.tmp1" BORDER="0"'
  74.         AppVar imgtag ' ALT="$.htmlext.tmp2">'
  75.         SetVar .htmlext.tmp $imgtag
  76.         cli 'rx $*EDITOR INSERT env:.htmlext.tmp'
  77.         LVMulti OFF
  78.         LVMulti Show
  79.         LVMulti First
  80.     EndWhile
  81.     Update "infobar" 1 "Fertig!"
  82.     GuiQuit #This
  83.  
  84. XButton 0 60 120 15 "HTML->Grafik erzeugen"
  85.     GadFont xHelvetica.font 11 000
  86.     GuiClose #This
  87.     if $*BROWSER == "HTMLEXT:mod/Browser/aweb.mod"
  88.         LVUSE #This 3
  89.         LVUSE "HTMLEXT" 3
  90.         LVMulti First
  91.         while $$lv.line > ""
  92.             Update "infobar" 1 "Erzeuge Grafik von der $lvdir Web Seite ..."
  93.             CLI 'rx $*BROWSER MKHTMLPIC $lvdir'
  94.             SetVar nfile $lvdir
  95.             AppVar nfile ".iff"
  96.             CLI 'copy t:htmlext/tmp.image.pic to $nfile'
  97.             LVMulti OFF
  98.             LVMulti Show
  99.             LVMulti First
  100.         EndWhile
  101.         Update "infobar" 1 "Fertig!"
  102.     else
  103.         Update "infobar" 1 "HTML nach Grafik funktioniert nur, wenn AWeb als Browser eingestellt wurde!"
  104.     endif
  105.     GuiQuit #This
  106.  
  107. XLISTVIEW 0 75 120 185 "" actiondb "HTMLEXT:Settings/Action.prefs" 0 TXT
  108.     gadid 1
  109.     gadfont sgiscreen.font 13 000
  110.     GuiClose #this
  111.     lvuse #This 1
  112.     SetVar befehl $%Befehl
  113.     lvuse HTMLEXT 3
  114.     LVMulti First
  115.     while $$lv.line > ""
  116.         JoinFile $$lv.dir $$lv.rec file
  117.         CLI '$befehl $file'
  118.         LVMulti OFF
  119.         LVMulti Show
  120.         LVMulti First
  121.     endwhile
  122.     GuiQuit #This
  123.  
  124. XLISTVIEW 0 75 120 170 "" actiondb "HTMLEXT:Settings/Action.prefs" 0 TXT
  125.     gadid 101
  126.     gadfont sgiscreen.font 13 000
  127.     EZREQ "Was möchten Sie ...?" "_1 Bearbeiten|_2 Löschen|[_X] Abbrechen" func
  128.     if $func = 1
  129.         lvuse #This 101
  130.         SetVar *VIEWERNAME $%Name
  131.         SetVar *VIEWERPRG $%Befehl
  132.         GuiLoad "HTMLEXT:gui/func.action"
  133.     elseif $func = 2
  134.         lvuse #This 101
  135.         lvdel -1
  136.         lvsort %Name
  137.         lvsave "HTMLEXT:settings/Action.prefs"
  138.     endif
  139.  
  140. XButton 0 245 30 15 "Neu"
  141.     GadFont xHelvetica.font 11 000
  142.     GadID 103
  143.     GuiLoad "HTMLEXT:gui/func.action.n"
  144.  
  145. XButton 30 245 70 15 "Weiter"
  146.     GadFont xHelvetica.font 11 000
  147.     GadID 102
  148.     SetGad #This 1 Show
  149.     SetGad #This 101 HIDE
  150.     SetGad #This 102 HIDE
  151.     SetGad #This 103 HIDE
  152.     lvuse #This 101
  153.     lvsave "HTMLEXT:settings/Action.prefs"
  154.     lvuse #This 1
  155.     lvchange "HTMLEXT:Settings/Action.prefs"
  156.     PartRedraw #This 0 75 120 320
  157.  
  158. ;=== Abbruch Button
  159. XButton 0 260 120 15 "Abbrechen [X]"
  160. GadFont xHelvetica.font 11 010
  161. GadKey "q"
  162. GuiQuit #This
  163.  
  164.