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

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

Author: M0E.lnx
Date: Thu Oct 30 11:57:50 2008
New Revision: 249

Modified:
    branches/iVL/.project
    branches/iVL/FrmLangSel.class
    branches/iVL/FrmXconf.class
    branches/iVL/FrmXconf.form
    branches/iVL/installer.gambas

Log:
Changing the Language selection method

Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Thu Oct 30 11:57:50 2008
@@ -2,7 +2,7 @@
  # Compiled with Gambas 2.9.0
  Title=VectorLinux Installer
  Startup=MdlCore
-Version=0.0.112
+Version=0.0.116
  Library=gb.gtk
  Library=gb.form
  Library=gb.debug

Modified: branches/iVL/FrmLangSel.class
==============================================================================
--- branches/iVL/FrmLangSel.class	(original)
+++ branches/iVL/FrmLangSel.class	Thu Oct 30 11:57:50 2008
@@ -33,25 +33,31 @@

  PUBLIC SUB LIST_LANG_CHOICES()

-    DIM sLangCode, sLangName AS String
-    DIM i AS Integer
-
-    i = 0
-    FOR EACH sLangCode IN RDir(".lang", "*.mo")
-      'Message(sLangCode)
-      SELECT CASE File.BaseName(".lang" &/ sLangCode)
-        CASE "en_US"
-          sLangName = "US English"
-        CASE "es"
-          sLangName = "Spanish"
-      END SELECT
-
-    ME.lblangsel.Add(File.BaseName(sLangCode), sLangName)
-
-
-NEXT
-

+  WITH ME.lblangsel
+    .Add("es_ES", "Spanish")
+  END WITH
+
+
+' '     DIM sLangCode, sLangName AS String
+' '     DIM i AS Integer
+' '
+' '     i = 0
+' '     FOR EACH sLangCode IN RDir(".lang", "*.mo")
+' '       'Message(sLangCode)
+' '       SELECT CASE File.BaseName(".lang" &/ sLangCode)
+' '         CASE "en_US"
+' '           sLangName = "US English"
+' '         CASE "es"
+' '           sLangName = "Spanish"
+' '       END SELECT
+' '
+' '     ME.lblangsel.Add(File.BaseName(sLangCode), sLangName)
+' '
+' '
+' ' NEXT
+' '
+' '
  END



Modified: branches/iVL/FrmXconf.class
==============================================================================
--- branches/iVL/FrmXconf.class	(original)
+++ branches/iVL/FrmXconf.class	Thu Oct 30 11:57:50 2008
@@ -76,12 +76,13 @@
      END IF
    NEXT

-
-  FrmXconf.cbSetupMethod.Add(sOut)
-  FrmXconf.cbSetupMethod.text = sOut
+        IF sOut <> "EndSectio" THEN
+          FrmXconf.cbSetupMethod.Add(sOut)
+          FrmXconf.cbSetupMethod.text = sOut
+        END IF

    'Message(sOut)
-
+  FrmXconf.cbSetupMethod_Click()

  END


Modified: branches/iVL/FrmXconf.form
==============================================================================
--- branches/iVL/FrmXconf.form	(original)
+++ branches/iVL/FrmXconf.form	Thu Oct 30 11:57:50 2008
@@ -25,8 +25,8 @@
          Text = ("")
        }
        { cbSetupMethod ComboBox
-        MoveScaled(14,1,22,4)
-        Text = ("")
+        MoveScaled(14,1,22,3)
+        Text = ("Vesa")
          ReadOnly = True
          List = [("Vesa"), ("Fbdev")]
        }

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