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

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

Author: M0...@gm...
Date: Fri Aug  8 08:34:16 2008
New Revision: 111

Modified:
    branches/iVL/FrmLilo.class
    branches/iVL/MdlLiloOsList.module

Log:
- Fix bug in number of tabs created. (remove extra blank tab)

Modified: branches/iVL/FrmLilo.class
==============================================================================
--- branches/iVL/FrmLilo.class	(original)
+++ branches/iVL/FrmLilo.class	Fri Aug  8 08:34:16 2008
@@ -36,14 +36,15 @@

    IF ME.YNLiloBox.value = TRUE THEN
      WITH ME
-      .LiloAppendBox.Enabled = FALSE
+'      .LiloAppendBox.Enabled = FALSE
        .LiloTarget.Enabled = FALSE
        .FBResolution.Enabled = FALSE
+      .TabStrip1.Enabled = FALSE
      END WITH
      ELSE
      WITH ME
-
-      .LiloAppendBox.Enabled = TRUE
+      .TabStrip1.Enabled = TRUE
+      '.LiloAppendBox.Enabled = TRUE
        .LiloTarget.Enabled = TRUE
        .FBResolution.Enabled = TRUE
      END WITH

Modified: branches/iVL/MdlLiloOsList.module
==============================================================================
--- branches/iVL/MdlLiloOsList.module	(original)
+++ branches/iVL/MdlLiloOsList.module	Fri Aug  8 08:34:16 2008
@@ -44,7 +44,7 @@

  txtAppends = NEW Object[]
  txtNames = NEW Object[]
-  FrmLilo.TabStrip1.Count = 1
+  'FrmLilo.TabStrip1.Count = 1

    cbarr = NEW Object[]
    SHELL "fdisk -l | grep -E \'^/dev/.* \\* .*(FAT16)\' | cut -f 1 -d \'  
\'" TO sFatList
@@ -73,16 +73,13 @@
        SHELL "mount " & arrLinux[i] & Space(1) & "/tmp/lilo_tmp" WAIT
          ' now check for a vmlinuz
          IF Exist("/tmp/lilo_tmp/boot/vmlinuz") = TRUE THEN
+          FrmLilo.TabStrip1.Count = FrmLilo.TabStrip1.count +  
1 'arrLinux.Count - 1
+
          sLiloDesc = ME.ID_DISTRO("/tmp/lilo_tmp")
-          FrmLilo.TabStrip1.Count = i + 1
-
-          FrmLilo.TabStrip1[i].text = sLiloDesc & "-" & sShortAddr
-
-          FrmLilo.TabStrip1[i].text = sLiloDesc & "-" & sShortAddr

-          WITH FrmLilo.TabStrip1
+        WITH FrmLilo.TabStrip1
              .Index = i
-
+            .text = sLiloDesc & "-" & sShortAddr
            tl = NEW TextLabel(FrmLilo.TabStrip1) AS "OSIntro"
              WITH tl
                .text = "Operating system installed in " & arrLinux[i]
@@ -156,7 +153,16 @@
          SHELL "umount /tmp/lilo_tmp" WAIT
      NEXT

-
+    FOR i = 0 TO FrmLilo.TabStrip1.Count - 1
+      WITH FrmLilo.TabStrip1
+        .Index = i
+          IF .Children.Count < 1 THEN
+            FrmLilo.TabStrip1[i].Visible = FALSE
+          END IF
+      END WITH
+      NEXT
+
+


  END