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

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

Author: M0...@gm...
Date: Tue Dec  2 14:07:58 2008
New Revision: 344

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

Log:
Fixed Format=Yes/No indicator in install summary.. Updated binary

Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Tue Dec  2 14:07:58 2008
@@ -2,7 +2,7 @@
  # Compiled with Gambas 2.9.0
  Title=VectorLinux Installer
  Startup=MdlCore
-Version=0.1.18
+Version=0.1.19
  Library=gb.gtk
  Library=gb.form
  Library=gb.debug

Modified: branches/iVL/FrmImportAccts.class
==============================================================================
--- branches/iVL/FrmImportAccts.class	(original)
+++ branches/iVL/FrmImportAccts.class	Tue Dec  2 14:07:58 2008
@@ -86,6 +86,7 @@
        'RETURN
        ME.CREATE_IMPORTED_ACCOUNT
    MdlUsrAdd.DISPLAY_USER_GROUP_OPTIONS(ME.frmUsrGrps)
+
      'ME.Close
      'ME.pbLogin.Picture.Image.Clear
  END IF
@@ -158,7 +159,6 @@
    DIM tl AS TextLabel
    DIM tly AS Integer

-  FrmUserAdd.LstUsers.Clear
    tly = 4
    FOR i = 0 TO sFile.count - 1
      sLine = sFile[i]

Modified: branches/iVL/FrmSummary.class
==============================================================================
--- branches/iVL/FrmSummary.class	(original)
+++ branches/iVL/FrmSummary.class	Tue Dec  2 14:07:58 2008
@@ -55,11 +55,11 @@
                    sMountPnt = cb.Text
                      FOR EACH cb1 IN MdlPartSel.oFsTypes
                        IF cb1.tag = cb.tag THEN sFsType = cb1.Text
-                      IF cb1.Text <> ("Do not Format") THEN
-                        bForm = ("Yes")
-                      ELSE
-                        bForm = ("No")
-                      END IF
+                      ' IF cb1.Text = ("Do not format") THEN
+                      '   bForm = ("No")
+                      ' ELSE
+                      '   bForm = ("Yes")
+                      ' END IF
                      NEXT
                        FOR EACH tl IN MdlPartSel.oPartLbls
                          IF tl.tag = cb.tag THEN
@@ -72,6 +72,11 @@
                      .GridView1[irow, 0].text = sPart
                      .GridView1[irow, 1].text = sSize
                      .GridView1[irow, 2].text = sFsType
+                    IF sFsType = ("Do not format") THEN
+                      bForm = ("No")
+                    ELSE
+                      bForm = ("Yes")
+                    END IF
                      .GridView1[irow, 3].Text = sMountPnt
                      .GridView1[irow, 4].Text = bForm
                    END WITH

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