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.
|
