home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.marks < prev    next >
Encoding:
Text File  |  2000-04-19  |  3.2 KB  |  144 lines
  1. G4C
  2. ; $VER: menu.marks Rev.013 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 75 "Verz. Markierung"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGRound IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xOnLoad
  11.     SetGad #This 1 HIDE
  12.     SetGad #This 2 HIDE
  13.     if $*ADMIN = 0
  14.         SetGad #This 10 OFF
  15.         SetGad #This 11 OFF
  16.         SetGad #This 12 OFF
  17.     endif
  18.     GuiOpen #This
  19.  
  20. ;===Mark generator Listview
  21. XLISTVIEW 0 100 150 250 "" markgenalvn "" 0 TXT
  22.     gadid 1
  23.  
  24. XLISTVIEW 0 100 150 250 "" markgenalvd "" 0 TXT
  25.     gadid 2
  26.  
  27. ;=== Abbruch Button
  28. XButton 0 0 100 15 "Abbrechen [_X]"
  29.     GadFont xHelvetica.font 11 010
  30.     GadKey "x"
  31.     GuiQuit #This
  32.  
  33. ;===Buttons
  34. XButton 0 15 100 15 "Neu"
  35.     GadFont xHelvetica.font 11 000
  36.     GuiClose #This
  37.     GuiLoad htmlext:gui/func.markadd
  38.     GuiQuit #This
  39.  
  40. XButton 0 30 100 15 "Bearbeiten"
  41.     GadFont xHelvetica.font 11 000
  42.     GadID 10
  43.     GuiClose #This
  44.     GuiLoad htmlext:gui/func.markedit
  45.     GuiQuit #This
  46.  
  47. XButton 0 45 100 15 "Entfernen"
  48.     GadFont xHelvetica.font 11 000
  49.     GadID 11
  50.     GuiClose #This
  51.     lvuse HTMLEXT 2
  52.     LVDel -1
  53.     lvsort %DirPath
  54.     lvsave $*SITEPROJ
  55.     GuiQuit #This
  56.  
  57. XButton 0 60 100 15 "Aktualisieren"
  58.     GadFont xHelvetica.font 11 000
  59.     GadID 12
  60.     GuiClose #This
  61.     EZREQ "Achtung: Aktuelle Markierungen werden überschrieben!" "Weiter|Abbrechen" acht
  62.     if $acht = 1
  63.         if $*MODUS = "S"
  64.             CLI 'echo "" >t:htmlext/mark.root.n'
  65.             CLI 'echo "" >t:htmlext/mark.root.d'
  66.             CLI 'list $*SITEDIR LFORMAT="+ %N" DIRS >>t:htmlext/mark.root.n'
  67.             CLI 'list $*SITEDIR LFORMAT="%N/" DIRS >>t:htmlext/mark.root.d'
  68.             lvuse #This 1
  69.             lvchange "t:htmlext/mark.root.n"
  70.             SetVar anz $$lv.total
  71.             CalcVar anz $anz - 1
  72.             lvgo first
  73.             lvuse #This 2
  74.             lvchange "t:htmlext/mark.root.d"
  75.             LVgo first
  76.             lvuse HTMLEXT 2
  77.             LVChange htmlext:Settings/defaults/Proj.prefs
  78.             LVSave $*SITEPROJ
  79.             SetVar akt "1"
  80.             while $akt <= $anz
  81.                 lvuse #This 1
  82.                 LvGo #$akt
  83.                 SetVar aktname $$lv.rec
  84.                 lvuse #This 2
  85.                 LvGo #$akt
  86.                 SetVar aktdir $$lv.rec
  87.                 lvuse HTMLEXT 2
  88.                 lvadd ''
  89.                 %DirName = $aktname
  90.                 %DirPath = $aktdir
  91.                 Counter akt INC 1
  92.             endwhile
  93.             lvuse HTMLEXT 2
  94.             lvsort %DirName
  95.             lvgo first
  96.             lvdel -1
  97.             lvsearch "_hxt" CI First
  98.             lvdel -1
  99.             lvsort %DirPath
  100.             lvsave $*SITEPROJ
  101.         elseif $*MODUS = "D"
  102.             CLI 'echo "" >t:htmlext/mark.root.n'
  103.             CLI 'echo "" >t:htmlext/mark.root.d'
  104.             CLI 'list $*SITEDATADIR LFORMAT="+ %N" DIRS >t:htmlext/mark.root.n'
  105.             CLI 'list $*SITEDATADIR LFORMAT="%N/" DIRS >t:htmlext/mark.root.d'
  106.             lvuse #This 1
  107.             lvchange "t:htmlext/mark.root.n"
  108.             SetVar anz $$lv.total
  109.             CalcVar anz $anz - 1
  110.             lvgo first
  111.             lvuse #This 2
  112.             lvchange "t:htmlext/mark.root.d"
  113.             LVgo first
  114.             lvuse HTMLEXT 2
  115.             LVChange htmlext:Settings/defaults/Projdata.prefs
  116.             LVSave $*SITEPROJDATA
  117.             SetVar akt "1"
  118.             while $akt <= $anz
  119.                 lvuse #This 1
  120.                 LvGo #$akt
  121.                 SetVar aktname $$lv.rec
  122.                 lvuse #This 2
  123.                 LvGo #$akt
  124.                 SetVar aktdir $$lv.rec
  125.                 lvuse HTMLEXT 2
  126.                 lvadd ''
  127.                 %DirName = $aktname
  128.                 %DirPath = $aktdir
  129.                 Counter akt INC 1
  130.             endwhile
  131.             lvuse HTMLEXT 2
  132.             lvsort %DirName
  133.             lvgo first
  134.             lvdel -1
  135.             lvsearch "_hxt" CI First
  136.             lvdel -1
  137.             lvsort %DirPath
  138.             lvsave $*SITEPROJDATA
  139.         endif
  140.     endif
  141.     GuiQuit #This
  142.  
  143.  
  144.