Menu
▾
▴
[Vectorlinux-devel] [vinstall-ng commit] r54 - in branches/iVL: . .lang
|
From: <cod...@go...> - 2008-07-18 22:58:01
|
Author: M0...@gm... Date: Fri Jul 18 15:55:02 2008 New Revision: 54 Added: branches/iVL/.lang/FrmPkgSel.pot branches/iVL/.lang/FrmSummary.pot branches/iVL/.lang/MdlPkgSel.pot branches/iVL/.lang/MdlSummarize.pot branches/iVL/FrmPkgSel.class branches/iVL/FrmPkgSel.form branches/iVL/FrmSummary.class branches/iVL/FrmSummary.form branches/iVL/MdlPkgSel.module branches/iVL/MdlSummarize.module Log: Added more objects and controls. On this release, progress was made to head into package selection.getting ready for package installation. Added: branches/iVL/.lang/FrmPkgSel.pot ============================================================================== --- (empty file) +++ branches/iVL/.lang/FrmPkgSel.pot Fri Jul 18 15:55:02 2008 @@ -0,0 +1,28 @@ +# /home/vluser/area-51/projects/installer/FrmPkgSel.class +# Generated by Gambas compiler + +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n" +"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL...@li...>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +#: FrmPkgSel.class:77 +msgid "TextLabel1" +msgstr "" + +#: FrmPkgSel.class:83 +msgid "Full Install" +msgstr "" + +#: FrmPkgSel.class:88 +msgid "Custom Install" +msgstr "" + Added: branches/iVL/.lang/FrmSummary.pot ============================================================================== --- (empty file) +++ branches/iVL/.lang/FrmSummary.pot Fri Jul 18 15:55:02 2008 @@ -0,0 +1,20 @@ +# /home/vluser/area-51/projects/installer/FrmSummary.class +# Generated by Gambas compiler + +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n" +"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL...@li...>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +#: FrmSummary.class:55 +msgid "TextLabel1" +msgstr "" + Added: branches/iVL/.lang/MdlPkgSel.pot ============================================================================== --- (empty file) +++ branches/iVL/.lang/MdlPkgSel.pot Fri Jul 18 15:55:02 2008 @@ -0,0 +1,16 @@ +# /home/vluser/area-51/projects/installer/MdlPkgSel.module +# Generated by Gambas compiler + +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n" +"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL...@li...>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + Added: branches/iVL/.lang/MdlSummarize.pot ============================================================================== --- (empty file) +++ branches/iVL/.lang/MdlSummarize.pot Fri Jul 18 15:55:02 2008 @@ -0,0 +1,16 @@ +# /home/vluser/area-51/projects/installer/MdlSummarize.module +# Generated by Gambas compiler + +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n""POT-Creation-Date: 2002-11-01 04:27+0100\n" +"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL...@li...>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + Added: branches/iVL/FrmPkgSel.class ============================================================================== --- (empty file) +++ branches/iVL/FrmPkgSel.class Fri Jul 18 15:55:02 2008 @@ -0,0 +1,57 @@ +' Gambas class file + +' This file is part of vinstall-ng + +' vinstall-ng is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 2 of the License, or +' (at your option) any later version. + +' vinstall-ng is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. + +' You should have received a copy of the GNU General Public License +' along with vinstall-ng. If not, see <http://www.gnu.org/licenses/>. + + +PUBLIC SUB Form_Open() + + WITH ME + .tlBanner.Text = "Choose your installation mode" + .rbFull_Click() + END WITH + MdlPkgSel.LIST_PACKAGE_SELECTION + +END + +PUBLIC SUB Form_Resize() + + WITH ME + .tlBanner.Width = .ClientWidth - 8 + .rbFull.Move(.tlBanner.Left, .tlBanner.top + .tlBanner.Height + 8, MdlObjSizer.get_object_width(.rbfull.text) + 36) + .rbCustom.Move(.tlBanner.Left, .rbFull.top + .rbFull.Height + 4, MdlObjSizer.get_object_width(.rbcustom.text) + 36) + .tlActionDesc.Width = .tlBanner.Width - 4 + .scrlInstallOpts.Move(.tlActionDesc.Left, .tlActionDesc.top + .tlActionDesc.Height + 8, .tlActionDesc.Width, .ClientHeight - (.tlActionDesc.top + (.tlActionDesc.height * 1.5))) + + END WITH + +END + +PUBLIC SUB rbFull_Click() + + tlActionDesc.Text = "Installs everything in your VectorLinux media to your system" + tlActionDesc.Adjust + scrlInstallOpts.Visible = FALSE + + +END + +PUBLIC SUB rbCustom_Click() + + tlActionDesc.Text = "Choose your optional components to install." + tlActionDesc.Adjust + scrlInstallOpts.Visible = TRUE + +END Added: branches/iVL/FrmPkgSel.form ============================================================================== --- (empty file) +++ branches/iVL/FrmPkgSel.form Fri Jul 18 15:55:02 2008 @@ -0,0 +1,26 @@ +# Gambas Form File 2.0 + +{ Form Form + MoveScaled(0,0,64,64) + Text = ("") + { tlBanner TextLabel + MoveScaled(1,2,55,5) + Text = ("TextLabel1") + Alignment = Align.Normal + } + { rbFull RadioButton + MoveScaled(1,8,40,4.5) + Text = ("Full Install") + } + { rbCustom RadioButton + MoveScaled(1,14,55,4.5) + Text = ("Custom Install") + } + { tlActionDesc TextLabel + MoveScaled(1,21,63,7) + Text = ("") + } + { scrlInstallOpts ScrollView + MoveScaled(1,30,52,28) + } +} Added: branches/iVL/FrmSummary.class ============================================================================== --- (empty file) +++ branches/iVL/FrmSummary.class Fri Jul 18 15:55:02 2008 @@ -0,0 +1,38 @@ +' Gambas class file +' This file is part of vinstall-ng + +' vinstall-ng is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 2 of the License, or +' (at your option) any later version. + +' vinstall-ng is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. + +' You should have received a copy of the GNU General Public License +' along with vinstall-ng. If not, see <http://www.gnu.org/licenses/>. + + +PUBLIC SUB Form_Open() + + WITH ME + .tlBanner.Text = "Setup is about to begin installing " & ClsGlobal.DISTRO & Space(1)& + ClsGlobal.VERSION & " to your system. Please verify that the information below is " & + "correct and click \"" & FMain.btnext.Text & "\" to continue. If you need to make" & + " changes to your settings, click the \"" & FMain.btback.Text & "\" button." + .tlBanner.Adjust + .tlSummary.Adjust + END WITH + +END + +PUBLIC SUB Form_Resize() + + WITH ME + .tlBanner.Width = .ClientWidth - 4 + .tlSummary.Move(.tlBanner.Left, .tlBanner.top + .tlBanner.Height + 4, .tlBanner.Width, .ClientH - 16) + END WITH + +END Added: branches/iVL/FrmSummary.form ============================================================================== --- (empty file) +++ branches/iVL/FrmSummary.form Fri Jul 18 15:55:02 2008 @@ -0,0 +1,15 @@ +# Gambas Form File 2.0 + +{ Form Form + MoveScaled(0,0,64,64) + Text = ("") + { tlBanner TextLabel + MoveScaled(1,1,27,10) + Text = ("TextLabel1") + Alignment = Align.Left + } + { tlSummary TextLabel + MoveScaled(1,13,61,49) + Text = ("TextLabel1") + } +} Added: branches/iVL/MdlPkgSel.module ============================================================================== --- (empty file) +++ branches/iVL/MdlPkgSel.module Fri Jul 18 15:55:02 2008 @@ -0,0 +1,67 @@ +' Gambas module file + + +' This file is part of vinstall-ng + +' vinstall-ng is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 2 of the License, or +' (at your option) any later version. + +' vinstall-ng is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. + +' You should have received a copy of the GNU General Public License +' along with vinstall-ng. If not, see <http://www.gnu.org/licenses/>. + +PUBLIC options AS Object[] +PUBLIC SUB LIST_PACKAGE_SELECTION() + + DIM cb AS CheckBox + DIM i, ii, cby AS Integer + DIM sFIle AS String[] + DIM sCurrLine AS String[] + DIM sLine, sPkg, sDesc AS String + DIM vsize AS Variant + DIM isize AS Integer + + cby = 4 + 'File.Save(Temp("SETUP.CONF"), DConv(File.Load(ClsGlobal.sSourceMnt &/ "veclinux" &/ "SETUP.CONF"))) + 'Message(File.Load(Temp("SETUP.CONF"))) + + sFIle = Split(File.Load(Temp("SETUP.CONF")), gb.NewLine) + FOR i = 0 TO sFIle.count - 1 + sLine = Trim(sFIle[i]) + IF Left(sLine, Len("BULK")) = "BULK" THEN + sCurrLine = Split(sLine, ":") + 'line format is File_name.tlz:Size_kb:Description + sPkg = sCurrLine[0] + sDesc = sCurrLine[2] + vsize = sCurrLine[1] + IF InStr(sDesc, "\'") THEN + sDesc = Left(sDesc, Len(sDesc) - 1) + END IF + IF InStr(sPkg, "optional/") THEN + + cb = NEW CheckBox(FrmPkgSel.scrlInstallOpts) AS "OptBulks" + WITH cb + .Text = sDesc & Space(1) & "[ " & CStr(vsize) & " KB ]" + .Width = MdlObjSizer.get_object_width(.Text) + 24 + .x = 4 + .y = cby + .Height = 27 + .Tag = sPkg + .Value = TRUE + END WITH + cby = cby + cb.Height + 4 + END IF + END IF + NEXT + + + + + +END Added: branches/iVL/MdlSummarize.module ============================================================================== --- (empty file) +++ branches/iVL/MdlSummarize.module Fri Jul 18 15:55:02 2008 @@ -0,0 +1,22 @@ +' Gambas module file + +' This file is part of vinstall-ng + +' vinstall-ng is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 2 of the License, or +' (at your option) any later version. + +' vinstall-ng is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. + +' You should have received a copy of the GNU General Public License +' along with vinstall-ng. If not, see <http://www.gnu.org/licenses/>. + +PUBLIC SUB SUMMARIZE_INSTALL() + + + +END |
