home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.users < prev    next >
Encoding:
Text File  |  2000-03-14  |  2.2 KB  |  108 lines
  1. G4C
  2. ; $VER: func.users Rev.002 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 540 255 "Benutzer Verwaltung"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. VarPath HTMLEXT
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. xOnOpen
  13.     ifexists file "HTMLEXT:Settings/Users.prefs"
  14.         lvuse #This 1
  15.         lvchange "htmlext:Settings/Users.prefs"
  16.     else
  17.         lvuse #This 1
  18.         lvchange "htmlext:Settings/defaults/Users.prefs"
  19.         lvsave "htmlext:Settings/Users.prefs"
  20.     endif
  21.  
  22. xOnClose
  23.     GuiQuit #This
  24.  
  25.  
  26. XLISTVIEW 5 5 530 155 "" userdb "htmlext:Settings/Users.prefs" 0 SHOW
  27.     gadid 1
  28.     gadfont sgiscreen.font 13 000
  29.     lvuse #This 1
  30.     EXTRACT %UserLogin CLEAN userlogin
  31.     Update #This 5 $userlogin
  32.     EXTRACT %UserName CLEAN username
  33.     Update #This 6 $username
  34.     EXTRACT %UserAdr CLEAN useradr
  35.     Update #This 7 $useradr
  36.     EXTRACT %UserMail CLEAN usermail
  37.     Update #This 8 $usermail
  38.  
  39. xButton 5 160 35 18 "Neu"
  40.     GadFont xHelvetica.font 11 000
  41.     lvuse #This 1
  42.     lvadd ''
  43.     %UserLogin = "Neu"
  44.     %UserName = "-Neuer Eintrag-"
  45.     %UserAdr = "-"
  46.     %UserMail = "-"
  47.     lvsort %UserName
  48.     lvsave "htmlext:settings/Users.prefs"
  49.  
  50. xButton 40 160 50 18 "Ändern"
  51.     GadFont xHelvetica.font 11 000
  52.     lvuse #This 1
  53.     lvdel -1
  54.     lvadd ''
  55.     %UserLogin = $ulogin
  56.     %UserName = $uname
  57.     %UserAdr = $uadr
  58.     %UserMail = $umail
  59.     lvsort %UserName
  60.     lvsave "htmlext:settings/Users.prefs"
  61.     Update #This 5 ""
  62.     Update #This 6 ""
  63.     Update #This 7 ""
  64.     Update #This 8 ""
  65.  
  66. xButton 90 160 50 18 "Löschen"
  67.     GadFont xHelvetica.font 11 000
  68.     GadKey "a"
  69.     lvuse #This 1
  70.     lvdel -1
  71.     lvsort %UserName
  72.     lvsave "htmlext:settings/Users.prefs"
  73.  
  74. xTextIn 55 185 220 18 "Login:" ulogin "" 155
  75.     GadID 5
  76.     GadFont "xHelvetica.font" "11" 000
  77.  
  78. xTextIn 325 185 210 18 "Name:" uname "" 155
  79.     GadID 6
  80.     GadFont "xHelvetica.font" "11" 000
  81.  
  82. xTextIn 55 205 220 18 "Adresse:" uadr "" 155
  83.     GadID 7
  84.     GadFont "xHelvetica.font" "11" 000
  85.  
  86. xTextIn 325 205 210 18 "E-Mail:" umail "" 155
  87.     GadID 8
  88.     GadFont "xHelvetica.font" "11" 000
  89.     lvuse #This 1
  90.     lvdel -1
  91.     lvadd ''
  92.     %UserLogin = $ulogin
  93.     %UserName = $uname
  94.     %UserAdr = $uadr
  95.     %UserMail = $umail
  96.     lvsort %UserName
  97.     lvsave "htmlext:settings/Users.prefs"
  98.     Update #This 5 ""
  99.     Update #This 6 ""
  100.     Update #This 7 ""
  101.     Update #This 8 ""
  102.  
  103. xButton 450 230 85 18 "[_X] Schliessen"
  104.     GadFont xHelvetica.font 11 000
  105.     GadKey "x"
  106.     GuiQuit #This
  107.  
  108.