[Vectorlinux-devel] [vinstall-ng commit] r401 - branches/iVL

[<cod...@go...>]

Author: M0...@gm...
Date: Fri Dec 12 10:48:24 2008
New Revision: 401

Modified:
    branches/iVL/.project
    branches/iVL/FrmImportAccts.class
    branches/iVL/FrmUserAdd.class
    branches/iVL/installer.gambas

Log:
fixed user account counter

Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Fri Dec 12 10:48:24 2008
@@ -2,7 +2,7 @@
  # Compiled with Gambas 2.9.0
  Title=VectorLinux Installer
  Startup=MdlCore
-Version=0.1.34
+Version=0.1.36
  Library=gb.gtk
  Library=gb.form
  Library=gb.debug

Modified: branches/iVL/FrmImportAccts.class
==============================================================================
--- branches/iVL/FrmImportAccts.class	(original)
+++ branches/iVL/FrmImportAccts.class	Fri Dec 12 10:48:24 2008
@@ -39,6 +39,7 @@
      ME.pbLogin.Move(ME.tbPass2.left + ME.tbPass2.Width + 4,  
ME.tlPasswd2.top, 64, 64)
      ME.pbLogin.Picture = Picture[dialog.path]
      ME.pbLogin.Stretch = TRUE
+    ME.pbLogin.Visible = TRUE



@@ -60,14 +61,16 @@
      CASE 1
        MdlUsrAdd.LIST_NEW_USER_ACCOUNT()
        FrmUserAdd.Reparent(FMain.pnlwinhost)
+      ME.Hide()
        FrmUserAdd.Show()
-      ME.Close()
+      'ME.Close()
      CASE ELSE
-      FMain.frmNext = FrmNetConf
+      'FMain.frmNext = FrmNetConf
        FrmNetConf.Reparent(FMain.pnlwinhost)
+      ME.Hide()
        FrmNetConf.Show()
        'ME.Hide()
-      ME.Close()
+
      END SELECT

    'ME.Close()
@@ -105,6 +108,9 @@
        Message.Info(("User account for") & Space(1) &  
Trim(ME.cbAccntList.Text) & Space(1) & ("successfully imported"))
        ME.cbAccntList.Remove(ME.cbAccntList.Find(Trim(ME.cbAccntList.Text)))
        INC MdlUsrAdd.iUsrAccts
+      ME.tbPass1.Clear
+      ME.tbPass2.Clear
+      ME.pbLogin.Visible = FALSE
      END IF

      'ME.Close

Modified: branches/iVL/FrmUserAdd.class
==============================================================================
--- branches/iVL/FrmUserAdd.class	(original)
+++ branches/iVL/FrmUserAdd.class	Fri Dec 12 10:48:24 2008
@@ -49,7 +49,7 @@
    DIM cb AS CheckBox

    Fmain.frmcurr = ME
-  MdlUsrAdd.iUsrAccts = 0
+  'MdlUsrAdd.iUsrAccts = 0
    WITH FMain
      .FrmCurr = ME
      .tvPlan["Conf2"].Picture = MdlCore.sDonePic

Modified: branches/iVL/installer.gambas
==============================================================================
Binary files. No diff available.