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