From: <cod...@go...> - 2008-10-31 20:59:21
|
Author: M0E.lnx Date: Fri Oct 31 13:57:39 2008 New Revision: 255 Modified: branches/iVL/.lang/#project.pot branches/iVL/.lang/ClsGlobal.pot branches/iVL/.lang/ClsPartSel.pot branches/iVL/.lang/ClsWinDrives.pot branches/iVL/.lang/FMain.pot branches/iVL/.lang/FrmDiskPart.pot branches/iVL/.lang/FrmPartScheme.pot branches/iVL/.lang/FrmPartSel.pot branches/iVL/.lang/FrmPkgSel.pot branches/iVL/.lang/FrmSelISO.pot branches/iVL/.lang/FrmSummary.pot branches/iVL/.lang/FrmWinDrives.pot branches/iVL/.lang/MdlCore.pot branches/iVL/.lang/MdlDiskPart.pot branches/iVL/.lang/MdlObjSizer.pot branches/iVL/.lang/MdlPartSel.pot branches/iVL/.lang/MdlPkgSel.pot branches/iVL/.lang/MdlSetup.pot branches/iVL/.lang/MdlSummarize.pot branches/iVL/.lang/MdlWinDrives.pot branches/iVL/.project branches/iVL/FrmXconf.class branches/iVL/FrmXconf.form Log: Added keyboard layout listing to FrmXconf form Modified: branches/iVL/.lang/#project.pot ============================================================================== --- branches/iVL/.lang/#project.pot (original) +++ branches/iVL/.lang/#project.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/.project +# /home/vluser/devel/installer/.project # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/ClsGlobal.pot ============================================================================== --- branches/iVL/.lang/ClsGlobal.pot (original) +++ branches/iVL/.lang/ClsGlobal.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/ClsGlobal.class +# /home/vluser/devel/installer/ClsGlobal.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/ClsPartSel.pot ============================================================================== --- branches/iVL/.lang/ClsPartSel.pot (original) +++ branches/iVL/.lang/ClsPartSel.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/ClsPartSel.class +# /home/vluser/devel/installer/ClsPartSel.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/ClsWinDrives.pot ============================================================================== --- branches/iVL/.lang/ClsWinDrives.pot (original) +++ branches/iVL/.lang/ClsWinDrives.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/ClsWinDrives.class +# /home/vluser/devel/installer/ClsWinDrives.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FMain.pot ============================================================================== --- branches/iVL/.lang/FMain.pot (original) +++ branches/iVL/.lang/FMain.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FMain.class +# /home/vluser/devel/installer/FMain.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmDiskPart.pot ============================================================================== --- branches/iVL/.lang/FrmDiskPart.pot (original) +++ branches/iVL/.lang/FrmDiskPart.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmDiskPart.class +# /home/vluser/devel/installer/FrmDiskPart.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmPartScheme.pot ============================================================================== --- branches/iVL/.lang/FrmPartScheme.pot (original) +++ branches/iVL/.lang/FrmPartScheme.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmPartScheme.class +# /home/vluser/devel/installer/FrmPartScheme.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmPartSel.pot ============================================================================== --- branches/iVL/.lang/FrmPartSel.pot (original) +++ branches/iVL/.lang/FrmPartSel.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmPartSel.class +# /home/vluser/devel/installer/FrmPartSel.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmPkgSel.pot ============================================================================== --- branches/iVL/.lang/FrmPkgSel.pot (original) +++ branches/iVL/.lang/FrmPkgSel.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmPkgSel.class +# /home/vluser/devel/installer/FrmPkgSel.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmSelISO.pot ============================================================================== --- branches/iVL/.lang/FrmSelISO.pot (original) +++ branches/iVL/.lang/FrmSelISO.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmSelISO.class +# /home/vluser/devel/installer/FrmSelISO.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. @@ -30,27 +30,31 @@ msgid "Unable to locate any installable media." msgstr "" -#: FrmSelISO.class:112 +#: FrmSelISO.class:82 +msgid "Installable media found." +msgstr "" + +#: FrmSelISO.class:113 msgid "Unable to identify distro." msgstr "" -#: FrmSelISO.class:147 +#: FrmSelISO.class:148 msgid "Minimum Disk Space Requirements" msgstr "" -#: FrmSelISO.class:250 +#: FrmSelISO.class:251 msgid "No installable images found." msgstr "" -#: FrmSelISO.class:256 +#: FrmSelISO.class:257 msgid "Select which VectorLinux version you wish to install from the list below" msgstr "" -#: FrmSelISO.class:261 +#: FrmSelISO.class:262 msgid "TextLabel1" msgstr "" -#: FrmSelISO.class:266 +#: FrmSelISO.class:267 msgid "Search Again" msgstr "" Modified: branches/iVL/.lang/FrmSummary.pot ============================================================================== --- branches/iVL/.lang/FrmSummary.pot (original) +++ branches/iVL/.lang/FrmSummary.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmSummary.class +# /home/vluser/devel/installer/FrmSummary.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/FrmWinDrives.pot ============================================================================== --- branches/iVL/.lang/FrmWinDrives.pot (original) +++ branches/iVL/.lang/FrmWinDrives.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/FrmWinDrives.class +# /home/vluser/devel/installer/FrmWinDrives.class # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlCore.pot ============================================================================== --- branches/iVL/.lang/MdlCore.pot (original) +++ branches/iVL/.lang/MdlCore.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlCore.module +# /home/vluser/devel/installer/MdlCore.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlDiskPart.pot ============================================================================== --- branches/iVL/.lang/MdlDiskPart.pot (original) +++ branches/iVL/.lang/MdlDiskPart.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlDiskPart.module +# /home/vluser/devel/installer/MdlDiskPart.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlObjSizer.pot ============================================================================== --- branches/iVL/.lang/MdlObjSizer.pot (original) +++ branches/iVL/.lang/MdlObjSizer.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlObjSizer.module +# /home/vluser/devel/installer/MdlObjSizer.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlPartSel.pot ============================================================================== --- branches/iVL/.lang/MdlPartSel.pot (original) +++ branches/iVL/.lang/MdlPartSel.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlPartSel.module +# /home/vluser/devel/installer/MdlPartSel.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlPkgSel.pot ============================================================================== --- branches/iVL/.lang/MdlPkgSel.pot (original) +++ branches/iVL/.lang/MdlPkgSel.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlPkgSel.module +# /home/vluser/devel/installer/MdlPkgSel.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlSetup.pot ============================================================================== --- branches/iVL/.lang/MdlSetup.pot (original) +++ branches/iVL/.lang/MdlSetup.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlSetup.module +# /home/vluser/devel/installer/MdlSetup.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlSummarize.pot ============================================================================== --- branches/iVL/.lang/MdlSummarize.pot (original) +++ branches/iVL/.lang/MdlSummarize.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlSummarize.module +# /home/vluser/devel/installer/MdlSummarize.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.lang/MdlWinDrives.pot ============================================================================== --- branches/iVL/.lang/MdlWinDrives.pot (original) +++ branches/iVL/.lang/MdlWinDrives.pot Fri Oct 31 13:57:39 2008 @@ -1,4 +1,4 @@ -# /home/uel/gui-installer/MdlWinDrives.module +# /home/vluser/devel/installer/MdlWinDrives.module # Generated by Gambas compiler # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. Modified: branches/iVL/.project ============================================================================== --- branches/iVL/.project (original) +++ branches/iVL/.project Fri Oct 31 13:57:39 2008 @@ -1,7 +1,7 @@ # Gambas Project File 2.0 # Compiled with Gambas 2.9.0 Title=VectorLinux Installer -Startup=MdlCore +Startup=FrmXconf Version=0.0.120 Library=gb.gtk Library=gb.form Modified: branches/iVL/FrmXconf.class ============================================================================== --- branches/iVL/FrmXconf.class (original) +++ branches/iVL/FrmXconf.class Fri Oct 31 13:57:39 2008 @@ -86,6 +86,57 @@ END +PUBLIC SUB LIST_KBD_LAYOUTS() + + DIM sFile AS String '= File.Load("/etc/X11/xkb/rules/xorg.lst") + DIM i, ii AS Integer + DIM sArr AS String[] '= Split(sFile, "\n") + DIM sHack AS String + + ' ugly hack to get a good list begins here + sHack = "#!/bin/bash \n" & + "echo /dev/null > /tmp/kbd.file \n" & + "while read code desc1 desc2 junk \n" & + "do \n" & + "echo \"$code\" \"$desc1\" \"$desc2\" \"$junk\" >> /tmp/kbd.file \n" & + "done < /etc/X11/xkb/rules/xorg.lst" + + File.Save("/tmp/kbd_strip.sh", sHack) + SHELL "chmod +x /tmp/kbd_strip.sh" WAIT + SHELL "sh /tmp/kbd_strip.sh" WAIT + + ' END OF UGLY HACK HERE + + sFile = File.Load("/tmp/kbd.file") + sarr = Split(sFile, "\n") + + + ii = 1 + FOR i = 0 TO sArr.count - 1 + 'PRINT sArr[i] + 'IF Left(sArr[i], Len("! Layout")) = "! Layout" THEN + IF Left(sArr[i]) = "!" AND InStr(sArr[i], "layout") THEN + 'REPEAT + IF Trim(sarr[i + ii]) <> "" THEN + REPEAT + 'PRINT sarr[i + ii] + ME.cvKbLayout.Add(Left(sarr[i + ii], InStr(sarr[i + ii], " ")), Right(sarr[i + ii], Len(sarr[i + ii]) - InStr(sarr[i + ii], " "))) + INC ii + 'END IF + UNTIL Trim(sarr[i + ii]) = "" OR InStr(sarr[i + ii], "variant") = TRUE + END IF +END IF + NEXT + + + +END + + + + + + PUBLIC SUB Form_Resize() WITH ME @@ -99,5 +150,17 @@ 'Message(Trim(Left(cbcolordepth.text, 2))) + +END + +PUBLIC SUB Form_Menu() + + ME.LIST_KBD_LAYOUTS + +END + +PUBLIC SUB Frame1_Menu() + + 'ME.LIST_KBD_LAYOUTS END Modified: branches/iVL/FrmXconf.form ============================================================================== --- branches/iVL/FrmXconf.form (original) +++ branches/iVL/FrmXconf.form Fri Oct 31 13:57:39 2008 @@ -38,28 +38,35 @@ } } { Panel2 Panel - MoveScaled(1,17,83,34) - Arrangement = Arrange.Row + MoveScaled(1,17,83,5) AutoResize = True { tlColorDepth TextLabel MoveScaled(0,0,11,3) Text = ("Color Depth") Alignment = Align.Normal } + { tlScreenRes TextLabel + MoveScaled(38,0,18,3) + Text = ("Screen Resolution") + Alignment = Align.Normal + } { cbColorDepth ComboBox MoveScaled(10,0,24,3) Text = ("") List = [("24 bit True Color"), ("16 bit Pseudo Color"), ("8 bit 256 Color"), ("4 bit 16 Color"), ("1 bit Mono B/W")] } - { tlScreenRes TextLabel - MoveScaled(0,4,18,3) - Text = ("Screen Resolution") - Alignment = Align.Normal - } { cbScreenRes ComboBox - MoveScaled(18,4,15,3) + MoveScaled(56,0,15,3) Text = ("") List = [("1920x1280"), ("1600x1200"), ("1440x900"), ("1280x1024"), ("1280x800"), ("1024x768"), ("800x600"), ("640x480")] + } + } + { pblKbdSets Panel + MoveScaled(2,23,78,29) + Expand = True + Arrangement = Arrange.Horizontal + { cvKbLayout ColumnView + MoveScaled(0,0,29,28) } } } |