Menu
▾
▴
[Vectorlinux-devel] [vinstall-ng commit] r35 - in branches/iVL: . .lang
|
From: <cod...@go...> - 2008-07-11 16:34:37
|
Author: M0E.lnx
Date: Fri Jul 11 09:34:02 2008
New Revision: 35
Added:
branches/iVL/.lang/#project.pot
branches/iVL/.lang/ClsGlobal.pot
branches/iVL/.lang/FMain.pot
branches/iVL/.lang/FrmDiskPart.pot
branches/iVL/.lang/FrmLicense.pot
branches/iVL/.lang/FrmPartScheme.pot
branches/iVL/.lang/FrmPartSel.pot
branches/iVL/.lang/FrmSelISO.pot
branches/iVL/.lang/MdlCore.pot
branches/iVL/.lang/MdlDiskPart.pot
branches/iVL/.lang/MdlObjSizer.pot
branches/iVL/.lang/MdlPartSel.pot
branches/iVL/.lang/MdlSetup.pot
Modified:
branches/iVL/FrmPartSel.class
branches/iVL/FrmPartSel.form
branches/iVL/MdlPartSel.module
Log:
Added partition selection window. This will be used after the drive has
been partitioned
Added: branches/iVL/.lang/#project.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/#project.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,24 @@
+# /home/moises/area-51/projects/installer/.project
+# 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"
+
+#: .project:1
+msgid "VectorLinux Installer"
+msgstr ""
+
+#: .project:2
+msgid "GUI installer for Vector linux"
+msgstr ""
+
Added: branches/iVL/.lang/ClsGlobal.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/ClsGlobal.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/ClsGlobal.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"
+
Added: branches/iVL/.lang/FMain.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FMain.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,36 @@
+# /home/moises/area-51/projects/installer/FMain.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"
+
+#: FMain.class:176
+msgid "Process Overview"
+msgstr ""
+
+#: FMain.class:189
+msgid "Vector Linux Install"
+msgstr ""
+
+#: FMain.class:199
+msgid "Next"
+msgstr ""
+
+#: FMain.class:205
+msgid "Back"
+msgstr ""
+
+#: FMain.class:211
+msgid "Exit"
+msgstr ""
+
Added: branches/iVL/.lang/FrmDiskPart.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FrmDiskPart.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,20 @@
+# /home/moises/area-51/projects/installer/FrmDiskPart.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"
+
+#: FrmDiskPart.class:96
+msgid "Disk Partitioning:"
+msgstr ""
+
Added: branches/iVL/.lang/FrmLicense.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FrmLicense.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,32 @@
+# /home/moises/area-51/projects/installer/FrmLicense.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"
+
+#: FrmLicense.class:100
+msgid "LICENSE AGREEMENT"
+msgstr ""
+
+#: FrmLicense.class:105
+msgid "TextArea1"
+msgstr ""
+
+#: FrmLicense.class:111
+msgid "Yes, I Agree to the License Agreement"
+msgstr ""
+
+#: FrmLicense.class:116
+msgid "No, I Do Not Agree"
+msgstr ""
+
Added: branches/iVL/.lang/FrmPartScheme.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FrmPartScheme.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,36 @@
+# /home/moises/area-51/projects/installer/FrmPartScheme.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"
+
+#: FrmPartScheme.class:103
+msgid "Select your disk partition option"
+msgstr ""
+
+#: FrmPartScheme.class:108
+msgid "Use existing disk partitions"
+msgstr ""
+
+#: FrmPartScheme.class:113
+msgid "Modify my disk partitions to make room for new installation"
+msgstr ""
+
+#: FrmPartScheme.class:118
+msgid "TextLabel1"
+msgstr ""
+
+#: FrmPartScheme.class:123
+msgid "Next"
+msgstr ""
+
Added: branches/iVL/.lang/FrmPartSel.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FrmPartSel.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,20 @@
+# /home/moises/area-51/projects/installer/FrmPartSel.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"
+
+#: FrmPartSel.class:58
+msgid "Define where the operating system will be
installed\n<br>\nLinux is a modular operating system. This means that
it has the ability to keep system and user data separately.<br> A
recommended setup would included a / (root), a /home, and a swap
partitions.\n<br>\nPlease select which partitions you would like to use
for your install"
+msgstr ""
+
Added: branches/iVL/.lang/FrmSelISO.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/FrmSelISO.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,32 @@
+# /home/moises/area-51/projects/installer/FrmSelISO.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"
+
+#: FrmSelISO.class:188
+msgid "No installable images found."
+msgstr ""
+
+#: FrmSelISO.class:194
+msgid "Select which distribution to install from the list below"
+msgstr ""
+
+#: FrmSelISO.class:199
+msgid "TextLabel1"
+msgstr ""
+
+#: FrmSelISO.class:204
+msgid "Search Again"
+msgstr ""
+
Added: branches/iVL/.lang/MdlCore.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/MdlCore.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/MdlCore.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/MdlDiskPart.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/MdlDiskPart.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/MdlDiskPart.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/MdlObjSizer.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/MdlObjSizer.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/MdlObjSizer.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/MdlPartSel.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/MdlPartSel.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/MdlPartSel.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/MdlSetup.pot
==============================================================================
--- (empty file)
+++ branches/iVL/.lang/MdlSetup.pot Fri Jul 11 09:34:02 2008
@@ -0,0 +1,16 @@
+# /home/moises/area-51/projects/installer/MdlSetup.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"
+
Modified: branches/iVL/FrmPartSel.class
==============================================================================
--- branches/iVL/FrmPartSel.class (original)
+++ branches/iVL/FrmPartSel.class Fri Jul 11 09:34:02 2008
@@ -23,25 +23,7 @@
WITH ME
.tlBanner.Width = .ClientWidth - 16
- '.frmpartitions.Move(.tlBanner.Left, .tlBanner.Top
+ .tlBanner.Height + 4, .tlBanner.Width, .ClientHeight
- .frmpartitions.top - 4)
- '.tlRootPart.Move(.frmpartitions.Left + 8, .frmpartitions.top + 8, MdlObjSizer.get_object_width(.tlRootPart.Text))
- .tlRootPart.Move(.tlBanner.Left, .tlBanner.Top + .tlBanner.Height
+ 8, MdlObjSizer.get_object_width(.tlRootPart.Text))
- .cbSelRoot.Move(.tlRootPart.Left + .tlRootPart.Width + 8, .tlRootPart.Top)
- .btWhatRoot.Move(.cbSelRoot.Left + .cbSelRoot.Width +
8, .cbSelRoot.top, MdlObjSizer.get_object_width(.btWhatRoot.text) + 32)
- .bUseCustompart.Move(.tlRootPart.Left, .tlRootPart.top
+ .tlRootPart.Height + 4)
- .tlHomePart.Move(.tlRootPart.Left, .bUseCustompart.Top
+ .bUseCustompart.Height + 4, .tlRootPart.Width)
- .cbSelHome.Move(.cbSelRoot.Left, .tlHomePart.top, .cbSelRoot.Width)
- .btWhathome.Move(.btWhatRoot.Left, .cbSelHome.top,
MdlObjSizer.get_object_width(.btWhathome.Text) + 32)
- .bAllCustom.Move(.bUseCustompart.Left, .tlHomePart.Top
+ .tlHomePart.Height + 4)
- .tlOptPart.Move(.bAllCustom.Left, .bAllCustom.top
+ .bAllCustom.Height + 4, .tlHomePart.Width)
- .cbselopt.Move(.tlOptPart.Left + .tlOptPart.Width +
4, .tlOptPart.top, cbSelRoot.Width)
- .tlusr.Move(.tlOptPart.Left, .tlOptPart.top + .tlOptPart.Height + 2, .tlOptPart.Width)
- .cbselusr.Move(.tlusr.Left + .tlusr.Width + 4, .tlusr.top, .cbselopt.Width)
- .tlvar.Move(.tlusr.Left, .tlusr.top + .tlusr.Height + 4, .tlusr.Width)
- .cbselvar.Move(.tlvar.Left + .tlvar.Width + 4, .tlvar.top, .cbselopt.Width)
-
-
-
+
END WITH
@@ -51,49 +33,9 @@
PUBLIC SUB Form_Open()
ME.tlBanner.Adjust
- ME.bUseCustompart.Text = "Use separate partition for user data. (/home)"
- ME.bUseCustompart.Width =
MdlObjSizer.get_object_width(ME.bUseCustompart.text) + 36
- ME.bAllCustom.Width =
MdlObjSizer.get_object_width(ME.bAllCustom.Text) + 36
+ MdlPartSel.DISPLAY_PARTITION_OPTIONS
-
-END
-
-PUBLIC SUB btWhatRoot_Click()
-
- Message("<b>About the root partition</b><br><br>" &
- "The root partition is the very top directory on the drive where the
operating system is \ninstalled. " &
- "This partition contains all the system and application information
as well as binaries. \n" &
- "<i>This is required for ALL installations</i>")
-
-END
-
-PUBLIC SUB btWhathome_Click()
-
- Message("<b>About the /home partition</b><br><br>" &
- "The /home partition is where the user data is kept. User settings
and personal documents \n" &
- "are kept here. \n" &
- "<i>This is optional, but recommended</i>")
-
-END
-
-PUBLIC SUB bUseCustompart_Click()
-
- IF ME.bUseCustompart.Value = TRUE THEN
- WITH ME
- .tlHomePart.Visible = TRUE
- .cbSelHome.Visible = TRUE
- .btWhathome.Visible = TRUE
- .bAllCustom.Visible = TRUE
- END WITH
- ELSE
- WITH ME
- .tlHomePart.Visible = FALSE
- .cbSelHome.Visible = FALSE
- .btWhathome.Visible = FALSE
- .bAllCustom.Visible = FALSE
- END WITH
- END IF
END
Modified: branches/iVL/FrmPartSel.form
==============================================================================
--- branches/iVL/FrmPartSel.form (original)
+++ branches/iVL/FrmPartSel.form Fri Jul 11 09:34:02 2008
@@ -7,85 +7,7 @@
MoveScaled(1,1,70,14)
Text = ("Define where the operating system will be
installed\n<br>\nLinux is a modular operating system. This means that
it has the ability to keep system and user data separately.<br> A
recommended setup would included a / (root), a /home, and a swap
partitions.\n<br>\nPlease select which partitions you would like to use
for your install")
}
- { tlRootPart TextLabel
- MoveScaled(1,17,13,3)
- Text = ("Root partition")
- Alignment = Align.Normal
- }
- { bUseCustompart CheckBox
- MoveScaled(1,21,37,3)
- Text = ("Use separate /home partition")
- }
- { cbSelRoot ComboBox
- MoveScaled(15,17,14,3)
- Text = ("")
- }
- { btWhatRoot Button
- MoveScaled(30,17,10,3)
- ToolTip = ("What is the root partition?\nClick here to find out")
- Text = ("What is this?")
- Picture = Picture["icon:/16/question"]
- }
- { tlHomePart TextLabel
- MoveScaled(1,25,12,3)
- Visible = False
- Text = ("/home")
- Alignment = Align.Normal
- }
- { cbSelHome ComboBox
- MoveScaled(14,24,15,1)
- Visible = False
- Text = ("")
- }
- { btWhathome Button
- MoveScaled(30,24,10,1)
- Visible = False
- Text = ("What is this?")
- Picture = Picture["icon:/16/question"]
- }
- { bAllCustom CheckBox
- MoveScaled(1,29,25,3)
- Visible = False
- Text = ("Specify additional custom partitions (expoert install)")
- }
- { tlOptPart TextLabel
- MoveScaled(1,33,10,3)
- Text = ("/opt")
- }
- { cbselopt ComboBox
- MoveScaled(12,33,12,2)
- Text = ("ComboBox1")
- }
- { tlvar TextLabel
- MoveScaled(1,41,10,3)
- Text = ("/var")
- }
- { cbselvar ComboBox
- MoveScaled(12,41,11,2)
- Text = ("ComboBox1")
- }
- { tlusr TextLabel
- MoveScaled(1,37,9,3)
- Text = ("/usr")
- }
- { cbselusr ComboBox
- MoveScaled(12,37,12,2)
- Text = ("ComboBox1")
- }
- { tltmp TextLabel
- MoveScaled(26,34,10,3)
- Text = ("/tmp")
- }
- { cbseltmp ComboBox
- MoveScaled(37,34,12,1)
- Text = ("ComboBox1")
- }
- { tlWin TextLabel
- MoveScaled(26,38,10,3)
- Text = ("Win")
- }
- { cbselwin ComboBox
- MoveScaled(37,39,11,1)
- Text = ("ComboBox1")
+ { scrollPartitions ScrollView
+ MoveScaled(1,16,69,36)
}
}
Modified: branches/iVL/MdlPartSel.module
==============================================================================
--- branches/iVL/MdlPartSel.module (original)
+++ branches/iVL/MdlPartSel.module Fri Jul 11 09:34:02 2008
@@ -17,3 +17,158 @@
' 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 DISPLAY_PARTITION_OPTIONS()
+
+ DIM tl AS TextLabel
+ DIM cb AS ComboBox
+ DIM sPartList AS String[]
+ DIM sPart AS String
+ DIM sSize AS String
+ DIM i AS Integer
+ DIM y AS Integer
+ DIM sDump1 AS String ' partition list dump
+ DIM lbwidth AS Integer = 0
+ DIM sSwapList AS String
+ DIM vSwapSize AS Variant
+ DIM iswapsize AS Float
+ DIM i3drdrowX AS Integer
+
+
+
+
+ ' We will mount the partitions first, and then figure out their size
+ SHELL "export PATH=$PATH:/sbin && sudo probepart | grep -e \"
Linux$\" | cut -f 1 -d \' \'" TO sDump1
+ sDump1 = Trim(sDump1)
+ y = FrmPartSel.y + 24
+ IF InStr(sDump1, gb.NewLine) > 0 THEN
+ sPartList = Split(sDump1, gb.NewLine)
+ FOR i = 0 TO sPartList.Count - 1
+ sPart = Right(sPartList[i], Len(sPartList[i]) - RInStr(sPartList[i], "/"))
+ 'Message.Info(sPart)
+
+ 'make sure the mount point exists
+ IF IsDir("/mnt" &/ sPart) = FALSE THEN
+ SHELL "sudo mkdir /mnt" &/ sPart WAIT
+ END IF
+ ' Now mount the partition
+ SHELL "sudo mount " & Trim(sPartList[i]) & Space(1)
& "/mnt" &/ sPart WAIT
+ ' get the size using df -h | grep sPart and some sed
+ ' will embed some bash, but should probabbly be fixed
+ SHELL "export " & sPart & "=$(df -h | grep " & sPart
& ") && echo $" & sPart & " | cut -f 2 -d \' \'" TO sSize
+ 'Message(sPart & Space(1) & "[ " & Trim(sSize) & " ]")
+ 'create the label and the drop down box here
+ tl = NEW TextLabel(FrmPartSel.scrollPartitions) AS "Labels"
+ WITH tl
+ .Tag = Trim(sPartList[i])
+ .Text = Trim(sPartList[i]) & Space(1) & "( " & sSize
& " )"
+ .Width = MdlObjSizer.get_object_width(.Text) * 1.25
+ IF .Width > lbwidth THEN
+ lbwidth = .Width
+ END IF
+ IF .Width < lbwidth THEN
+ .Width = lbwidth
+ END IF
+ .Height = 27
+ .x = .Parent.X
+ .Alignment = Align.Normal
+ .y = y
+ END WITH
+
+ 'create the combobox
+ cb = NEW ComboBox(FrmPartSel.scrollPartitions) AS "MountPoints"
+ WITH cb
+ .tag = Trim(sPartList[i])
+ .x = lbwidth + 24
+ .y = y
+ .Height = tl.Height
+ .Width = tl.Width
+ .ReadOnly = TRUE
+ .Add("/")
+ .Add("/home")
+ .Add("/opt")
+ .Add("/usr")
+ .Add("/var")
+ .Add("/tmp")
+ END WITH
+ i3drdrowX = cb.x + cb.Width + 8
+ 'create the file system options
+ cb = NEW ComboBox(FrmPartSel.scrollPartitions) AS "fsTypes"
+ WITH cb
+ .Tag = Trim(sPartList[i])
+ .x = i3drdrowX
+ .y = y
+ .ReadOnly = TRUE
+ .Width = tl.Width
+ .Add("XFS")
+ .Add("ReiserFS")
+ .Add("Ext2")
+ .Add("Ext3")
+ .Add("JFS")
+ END WITH
+
+
+ ' now umount the partition and delete the mount point
+ SHELL "sudo umount /mnt" &/ sPart & " && sudo rm -r
/mnt" &/ sPart WAIT
+ ' increase the value of y for the next label
+ y = y + tl.Height + 4
+
+
+ NEXT
+
+ ELSE
+ 'only one partition found. This could be trouble
+
+
+
+ END IF
+
+ SHELL "export PATH=$PATH:/sbin && sudo probepart | grep -i \"
*swap$\" | cut -f 1 -d \' \'" TO sSwapList
+ sSwapList = Trim(sSwapList)
+ 'Message.Info(sSwapList)
+ IF InStr(sSwapList, gb.NewLine) THEN
+ 'several swap partitions found
+ 'how do we deal w/ this?
+ ELSE
+ spart = Trim(sSwapList)
+ 'SHELL "export " & sSwapList & "=$(df -h | grep -i swap) |
cut -f 2 -d \' \'" TO vSwapSize
+ SHELL "export PATH=$PATH:/sbin && export sw=$(sudo probepart
| grep -i \" *swap$\") && echo $sw | cut -f 4 -d \' \'" TO vSwapSize
+
+ iswapsize = CInt(vSwapSize)
+ iswapsize = Round(iswapsize / 1024 / 1024, -2)
+ 'now create the swap label and combo box
+ tl = NEW TextLabel(FrmPartSel.scrollPartitions) AS "swlabel"
+ WITH tl
+ .x = .Parent.x
+ .y = y
+ .Text = sPart & " ( " & CStr(iswapsize) & "G )"
+ .Width = lbwidth
+ .Height = 27
+ .tag = "SwapLbl"
+ .Alignment = Align.Normal
+
+ END WITH
+ ' now create a combobox with the swap-only option
+ cb = NEW ComboBox(FrmPartSel.scrollPartitions) AS "swapsel"
+ WITH cb
+ .y = y
+ .x = lbwidth + 24
+ .Width = tl.Width
+ .tag = "swapSelection"
+ .ReadOnly = TRUE
+ .Add("Swap")
+ END WITH
+
+
+
+ 'Message.Info("Swap total = " & iswapsize)
+ END IF
+
+
+
+
+
+
+
+END
+
+
|
