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

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

Author: M0...@gm...
Date: Wed Dec  3 16:20:59 2008
New Revision: 356

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

Log:
Fixed problem that surfaced when writing user import module

Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Wed Dec  3 16:20:59 2008
@@ -12,6 +12,7 @@
  Library=gb.gtk.ext
  Description=GUI installer for Vector linux
  Authors=M0E-lnx\nuelsk8s
+Arguments="-C"
  TabSize=2
  Translate=1
  Language=en_US

Modified: branches/iVL/FrmImportAccts.class
==============================================================================
--- branches/iVL/FrmImportAccts.class	(original)
+++ branches/iVL/FrmImportAccts.class	Wed Dec  3 16:20:59 2008
@@ -56,9 +56,20 @@

  PUBLIC SUB btcancel_Click()

-  FrmUserAdd.Reparent(FMain.pnlwinhost)
-  FrmUserAdd.Show()
-  ME.Hide()
+  SELECT CASE Message.Question(("Would you like to continue adding new  
user accounts now?"), ("Yes"), ("No"))
+    CASE 1
+      FrmUserAdd.Reparent(FMain.pnlwinhost)
+      MdlUsrAdd.LIST_NEW_USER_ACCOUNT()
+      FrmUserAdd.Show()
+      ME.Close()
+    CASE ELSE
+      FMain.frmNext = FrmNetConf
+      FrmNetConf.Reparent(FMain.pnlwinhost)
+      FrmNetConf.Show()
+      'ME.Hide()
+      ME.Close()
+    END SELECT
+
    'ME.Close()

  END
@@ -93,6 +104,7 @@
        MdlUsrAdd.LIST_NEW_USER_ACCOUNT()
        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
      END IF

      'ME.Close

Modified: branches/iVL/FrmUserAdd.class
==============================================================================
--- branches/iVL/FrmUserAdd.class	(original)
+++ branches/iVL/FrmUserAdd.class	Wed Dec  3 16:20:59 2008
@@ -375,7 +375,7 @@
      FOR EACH cb IN MdlUsrAdd.objGrps
        cb.Delete
      NEXT
-    MdlUsrAdd.DISPLAY_USER_GROUP_OPTIONS
+    MdlUsrAdd.DISPLAY_USER_GROUP_OPTIONS(ME.fGroupSel)

  END