[Vectorlinux-devel] [vinstall-ng commit] r58 - in branches/iVL: . .lang

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

Author: M0...@gm...
Date: Sat Jul 19 22:48:17 2008
New Revision: 58

Added:
   branches/iVL/FrmPkgsel2.class
Modified:
   branches/iVL/.lang/FMain.pot
   branches/iVL/.lang/FrmPkgSel.pot
   branches/iVL/FrmPkgSel.form
   branches/iVL/MdlCore.module

Log:
Fixed bug where partitions were not getting detected in virtual machines.

Modified: branches/iVL/.lang/FMain.pot
==============================================================================
--- branches/iVL/.lang/FMain.pot	(original)
+++ branches/iVL/.lang/FMain.pot	Sat Jul 19 22:48:17 2008
@@ -14,23 +14,23 @@
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"

-#: FMain.class:173
+#: FMain.class:192
 msgid "Process Overview"
 msgstr ""

-#: FMain.class:186
+#: FMain.class:205
 msgid "Vector Linux Install"
 msgstr ""

-#: FMain.class:196
+#: FMain.class:215
 msgid "Next"
 msgstr ""

-#: FMain.class:202
+#: FMain.class:221
 msgid "Back"
 msgstr ""

-#: FMain.class:208
+#: FMain.class:227
 msgid "Exit"
 msgstr ""


Modified: branches/iVL/.lang/FrmPkgSel.pot
==============================================================================
--- branches/iVL/.lang/FrmPkgSel.pot	(original)
+++ branches/iVL/.lang/FrmPkgSel.pot	Sat Jul 19 22:48:17 2008
@@ -14,15 +14,15 @@
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"

-#: FrmPkgSel.class:77
+#: FrmPkgSel.class:84
 msgid "TextLabel1"
 msgstr ""

-#: FrmPkgSel.class:83
+#: FrmPkgSel.class:90
 msgid "Full Install"
 msgstr ""

-#: FrmPkgSel.class:88
+#: FrmPkgSel.class:95
 msgid "Custom Install"
 msgstr ""


Modified: branches/iVL/FrmPkgSel.form
==============================================================================
--- branches/iVL/FrmPkgSel.form	(original)
+++ branches/iVL/FrmPkgSel.form	Sat Jul 19 22:48:17 2008
@@ -9,11 +9,11 @@
     Alignment = Align.Normal
   }
   { rbFull RadioButton
-    MoveScaled(1,8,40,4.4444)
+    MoveScaled(1,8,40,4.5)
     Text = ("Full Install")
   }
   { rbCustom RadioButton
-    MoveScaled(1,14,55,4.4444)
+    MoveScaled(1,14,55,4.5)
     Text = ("Custom Install")
   }
   { tlActionDesc TextLabel
@@ -21,6 +21,6 @@
     Text = ("")
   }
   { scrlInstallOpts ScrollView
-    MoveScaled(1,30,57,28)
+    MoveScaled(1,30,52,28)
   }
 }

Added: branches/iVL/FrmPkgsel2.class
==============================================================================
--- (empty file)
+++ branches/iVL/FrmPkgsel2.class	Sat Jul 19 22:48:17 2008
@@ -0,0 +1,58 @@
+' 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 = "Select your indivirual packages to install. 
<br>To install them all, just click next"
+    .tlbanner.Adjust
+    '.tlbanner.Border = Border.Plain
+    '.tlbanner.Width = MdlObjSizer.get_object_width(.tlbanner.Text)
+
+  END WITH
+  FMain.FrmCurr = ME
+  MdlPkgSel.LIST_PACKAGE_SELECTION()
+END
+
+PUBLIC SUB Form_Resize()
+
+  WITH ME
+    .tlbanner.Width = .ClientWidth - 16
+    '.tlbanner.Move(.ClientX + 4, .clienty + 4, .ClientWidth - 18)
+    '.tlbanner.Move(4, 16, FrmPartSel.scrollPartitions.Width - 60)
+    .scrPkgs.Move(.tlbanner.Left, .tlbanner.top + (.tlbanner.Height * 
2), .tlbanner.Width - 4, .ClientH - (.tlbanner.Height * 
1.5)) ', .tlbanner.Width - 8, .ClientHeight - .tlbanner.height - 8)
+    '.scrPkgs.Resize(FrmPkgSel.scrlInstallOpts.Width, .ClientHeight - (.tlbanner.Height))
+'    .VPanel1.Move(2, .tlbanner.Height * 2)
+    '.scrPkgs.Width = .tlbanner.Width
+    '.scrPkgs.Height = .ClientHeight - .tlbanner.Height - 4
+  END WITH
+
+END
+
+PUBLIC SUB Form_Show()
+  WITH ME
+    .tlbanner.Text = "Select your indivirual packages to install. 
<br>To install them all, just click next"
+    .tlbanner.Adjust
+    '.tlbanner.Border = Border.Plain
+    '.tlbanner.Width = MdlObjSizer.get_object_width(.tlbanner.Text)
+
+  END WITH
+  FMain.FrmCurr = ME
+  MdlPkgSel.LIST_PACKAGE_SELECTION()
+
+
+END

Modified: branches/iVL/MdlCore.module
==============================================================================
--- branches/iVL/MdlCore.module	(original)
+++ branches/iVL/MdlCore.module	Sat Jul 19 22:48:17 2008
@@ -154,6 +154,7 @@

             END IF
           SHELL "umount /dev/" & sDrive WAIT
+          'SHELL "umount " & sDrive WAIT
         NEXT

     ELSE ' only one drive found
@@ -174,7 +175,8 @@


             END IF
-          SHELL "umount /dev/" & clsglobal.sSourceMnt WAIT
+          'SHELL "umount /dev/" & clsglobal.sSourceMnt WAIT
+          SHELL "umount " & ClsGlobal.sSourceMnt WAIT