Menu
▾
▴
[Vectorlinux-devel] [vinstall-ng commit] r480 - in branches/speedy: . .lang images
|
From: <cod...@go...> - 2009-02-03 20:43:30
|
Author: M0...@gm...
Date: Tue Feb 3 12:18:50 2009
New Revision: 480
Added:
branches/speedy/.lang/#project.pot
branches/speedy/.lang/Step3.pot
branches/speedy/.lang/Step6.pot
branches/speedy/Step3.class
branches/speedy/Step3.form
branches/speedy/Step6.class
branches/speedy/Step6.form
Modified:
branches/speedy/.lang/.pot
branches/speedy/.lang/Step2.pot
branches/speedy/.project
branches/speedy/Step0.class
branches/speedy/Step2.class
branches/speedy/images/throbber.gif
Log:
Begin working on partition selector window
Added: branches/speedy/.lang/#project.pot
==============================================================================
--- (empty file)
+++ branches/speedy/.lang/#project.pot Tue Feb 3 12:18:50 2009
@@ -0,0 +1,20 @@
+# /home/vluser/devel/speedy/.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 ""
+
Modified: branches/speedy/.lang/.pot
==============================================================================
--- branches/speedy/.lang/.pot (original)
+++ branches/speedy/.lang/.pot Tue Feb 3 12:18:50 2009
@@ -10,6 +10,10 @@
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
+#: .project:1
+msgid "VectorLinux Installer"
+msgstr ""
+
#: FMain.class:233 FMain0.class:225
msgid "Process Overview"
msgstr ""
@@ -126,92 +130,188 @@
msgid "Verify Installation Files"
msgstr ""
-#: Step2.class:68
+#: Step2.class:46
+msgid ""
+"This installation media has already been checked. Would you like to check
it "
+"again?"
+msgstr ""
+
+#: Step2.class:78
msgid "Verifying data on compressed package"
msgstr ""
-#: Step2.class:71
+#: Step2.class:81
msgid "Testing file"
msgstr ""
-#: Step2.class:71
+#: Step2.class:81
msgid "of"
msgstr ""
-#: Step2.class:87
+#: Step2.class:97
msgid "FAILED"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "The following"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "required"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "has failed the integrity test. It is not safe to continue"
msgstr ""
-#: Step2.class:90
+#: Step2.class:100
msgid "Integrity test"
msgstr ""
-#: Step2.class:96
+#: Step2.class:106
msgid "PASSED"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid ""
"has failed the data integrity test. All required packages have passed
this "
"test"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid ""
"Possible causes for this are a corrupted download or a badly burnt cd.
You "
"can try the following options"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "Download a new installation image from www.vectorlinux.com"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "Burn the image at a lower speed rate"
msgstr ""
-#: Step2.class:146
+#: Step2.class:156
msgid "Data integrity test complete... all tests passed"
msgstr ""
-#: Step2.class:153
+#: Step2.class:163
msgid "All test passed. It is safe to continue with the installation
process."
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid ""
"Verifying installation files can prevent you from performing an
unsuccessful "
"install"
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "Keep in mind however, that this process can take a while to
complete."
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "Click"
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "to abort this process at any time"
msgstr ""
-#: Step2.class:322
+#: Step2.class:333
msgid "TextLabel2"
msgstr ""
-#: Step2.class:336
+#: Step2.class:347
msgid "Stop"
+msgstr ""
+
+#: Step3.class:28
+msgid "Disc Partitioning Options"
+msgstr ""
+
+#: Step3.class:31
+msgid "Select the partitioning method you would like to use"
+msgstr ""
+
+#: Step3.class:129
+msgid "TextLabel1"
+msgstr ""
+
+#: Step3.class:147
+msgid "Automatic"
+msgstr ""
+
+#: Step3.class:157
+msgid ""
+"Automatically resize your partitions to make size for your VectorLinux "
+"installation"
+msgstr ""
+
+#: Step3.class:164
+msgid "Manually resize my partitions "
+msgstr ""
+
+#: Step3.class:174
+msgid "Use the partitioning tool to prepare your system partitions."
+msgstr ""
+
+#: Step3.class:181
+msgid "My hard drive is already partitioned"
+msgstr ""
+
+#: Step3.class:191
+msgid "Install VectorLinux to existing partitions on my hard drive"
+msgstr ""
+
+#: Step6.class:46
+msgid "Partition"
+msgstr ""
+
+#: Step6.class:47
+msgid "Size"
+msgstr ""
+
+#: Step6.class:48
+msgid "Mount Point"
+msgstr ""
+
+#: Step6.class:49
+msgid "File System"
+msgstr ""
+
+#: Step6.class:104
+msgid "Not Used"
+msgstr ""
+
+#: Step6.class:115
+msgid "Do not format"
+msgstr ""
+
+#: Step6.class:158
+msgid "You have already selected"
+msgstr ""
+
+#: Step6.class:158
+msgid "as your"
+msgstr ""
+
+#: Step6.class:158
+msgid "partition."
+msgstr ""
+
+#: Step6.class:158
+msgid "Please select only one partition for this purpose"
+msgstr ""
+
+#: Step6.class:232
+msgid "Select which partitions to use for installation"
+msgstr ""
+
+#: Step6.class:367
+msgid "Yes"
+msgstr ""
+
+#: Step6.class:367
+msgid "No"
msgstr ""
Modified: branches/speedy/.lang/Step2.pot
==============================================================================
--- branches/speedy/.lang/Step2.pot (original)
+++ branches/speedy/.lang/Step2.pot Tue Feb 3 12:18:50 2009
@@ -18,87 +18,91 @@
msgid "Verify Installation Files"
msgstr ""
-#: Step2.class:68
+#: Step2.class:46
+msgid "This installation media has already been checked. Would you like to
check it again?"
+msgstr ""
+
+#: Step2.class:78
msgid "Verifying data on compressed package"
msgstr ""
-#: Step2.class:71
+#: Step2.class:81
msgid "Testing file"
msgstr ""
-#: Step2.class:71
+#: Step2.class:81
msgid "of"
msgstr ""
-#: Step2.class:87
+#: Step2.class:97
msgid "FAILED"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "The following"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "required"
msgstr ""
-#: Step2.class:89
+#: Step2.class:99
msgid "has failed the integrity test. It is not safe to continue"
msgstr ""
-#: Step2.class:90
+#: Step2.class:100
msgid "Integrity test"
msgstr ""
-#: Step2.class:96
+#: Step2.class:106
msgid "PASSED"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "has failed the data integrity test. All required packages have
passed this test"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "Possible causes for this are a corrupted download or a badly burnt
cd. You can try the following options"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "Download a new installation image from www.vectorlinux.com"
msgstr ""
-#: Step2.class:126
+#: Step2.class:136
msgid "Burn the image at a lower speed rate"
msgstr ""
-#: Step2.class:146
+#: Step2.class:156
msgid "Data integrity test complete... all tests passed"
msgstr ""
-#: Step2.class:153
+#: Step2.class:163
msgid "All test passed. It is safe to continue with the installation
process."
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "Verifying installation files can prevent you from performing an
unsuccessful install"
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "Keep in mind however, that this process can take a while to
complete."
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "Click"
msgstr ""
-#: Step2.class:170
+#: Step2.class:180
msgid "to abort this process at any time"
msgstr ""
-#: Step2.class:322
+#: Step2.class:333
msgid "TextLabel2"
msgstr ""
-#: Step2.class:336
+#: Step2.class:347
msgid "Stop"
msgstr ""
Added: branches/speedy/.lang/Step3.pot
==============================================================================
--- (empty file)
+++ branches/speedy/.lang/Step3.pot Tue Feb 3 12:18:50 2009
@@ -0,0 +1,52 @@
+# /home/vluser/devel/speedy/Step3.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"
+
+#: Step3.class:28
+msgid "Disc Partitioning Options"
+msgstr ""
+
+#: Step3.class:31
+msgid "Select the partitioning method you would like to use"
+msgstr ""
+
+#: Step3.class:129
+msgid "TextLabel1"
+msgstr ""
+
+#: Step3.class:147
+msgid "Automatic"
+msgstr ""
+
+#: Step3.class:157
+msgid "Automatically resize your partitions to make size for your
VectorLinux installation"
+msgstr ""
+
+#: Step3.class:164
+msgid "Manually resize my partitions "
+msgstr ""
+
+#: Step3.class:174
+msgid "Use the partitioning tool to prepare your system partitions."
+msgstr ""
+
+#: Step3.class:181
+msgid "My hard drive is already partitioned"
+msgstr ""
+
+#: Step3.class:191
+msgid "Install VectorLinux to existing partitions on my hard drive"
+msgstr ""
+
Added: branches/speedy/.lang/Step6.pot
==============================================================================
--- (empty file)
+++ branches/speedy/.lang/Step6.pot Tue Feb 3 12:18:50 2009
@@ -0,0 +1,68 @@
+# /home/vluser/devel/speedy/Step6.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"
+
+#: Step6.class:46
+msgid "Partition"
+msgstr ""
+
+#: Step6.class:47
+msgid "Size"
+msgstr ""
+
+#: Step6.class:48
+msgid "Mount Point"
+msgstr ""
+
+#: Step6.class:49
+msgid "File System"
+msgstr ""
+
+#: Step6.class:104
+msgid "Not Used"
+msgstr ""
+
+#: Step6.class:115
+msgid "Do not format"
+msgstr ""
+
+#: Step6.class:158
+msgid "You have already selected"
+msgstr ""
+
+#: Step6.class:158
+msgid "as your"
+msgstr ""
+
+#: Step6.class:158
+msgid "partition."
+msgstr ""
+
+#: Step6.class:158
+msgid "Please select only one partition for this purpose"
+msgstr ""
+
+#: Step6.class:232
+msgid "Select which partitions to use for installation"
+msgstr ""
+
+#: Step6.class:367
+msgid "Yes"
+msgstr ""
+
+#: Step6.class:367
+msgid "No"
+msgstr ""
+
Modified: branches/speedy/.project
==============================================================================
--- branches/speedy/.project (original)
+++ branches/speedy/.project Tue Feb 3 12:18:50 2009
@@ -1,7 +1,7 @@
# Gambas Project File 2.0
# Compiled with Gambas 2.10.2
Title=VectorLinux Installer
-Startup=MdlStartUp
+Startup=Step6
Version=0.0.1
Library=gb.gtk
Library=gb.form
Modified: branches/speedy/Step0.class
==============================================================================
--- branches/speedy/Step0.class (original)
+++ branches/speedy/Step0.class Tue Feb 3 12:18:50 2009
@@ -115,7 +115,7 @@
PUBLIC SUB LIST_LANG_CHOICES()
DIM sLang, sKey, sFile AS String
- FOR EACH sFile IN Dir(Application.Dir &/ ".lang", "*.mo")
+ FOR EACH sFile IN Dir(".lang", "*.mo")
SELECT CASE File.BaseName(Application.dir &/ ".lang" &/ sfile)
CASE "es"
sKey = "es_ES.utf8"
Modified: branches/speedy/Step2.class
==============================================================================
--- branches/speedy/Step2.class (original)
+++ branches/speedy/Step2.class Tue Feb 3 12:18:50 2009
@@ -202,7 +202,8 @@
PUBLIC SUB OnExit()
-
+ IF FMain.btNext THEN FMain.btNext.Enabled = TRUE
+ IF FMain0.btNext THEN FMain0.btNext.Enabled = TRUE
END
Added: branches/speedy/Step3.class
==============================================================================
--- (empty file)
+++ branches/speedy/Step3.class Tue Feb 3 12:18:50 2009
@@ -0,0 +1,70 @@
+' 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 rbGroup_Click()
+
+ ' FMain.btNext.Enabled = TRUE
+ ' FMain0.btNext.Enabled = TRUE
+
+END
+
+
+PUBLIC SUB Form_Open()
+
+ ME.tlbanner.Text = "<h2>" & ("Disc Partitioning Options") & "</h2>"
+ ME.tlbanner.Alignment = Align.Center
+ ME.tlbanner.Alignment = Align.Normal
+ ME.tlPartHelp.Text = ("Select the partitioning method you would like to
use")
+ FMain.btNext.Enabled = TRUE
+ FMain0.btNext.Enabled = TRUE
+
+
+END
+
+PUBLIC FUNCTION GetNext() AS String
+
+
+ IF ME.rbAutoPart.Value = TRUE THEN
+ 'no module for auto partition written yet
+ Message("Not ready yet")
+ RETURN
+ END IF
+ IF ME.rbCustomPart.Value = TRUE THEN
+ 'embed gparted
+ Message("Gparted module not present yet")
+ RETURN
+ END IF
+ IF ME.rbPrePartitioned.Value = TRUE THEN
+ ' Use existing partitions
+ RETURN "Step6"
+ END IF
+
+END
+PUBLIC SUB StartUp()
+
+ FMain.btNext.Enabled = TRUE
+ FMain0.btNext.Enabled = TRUE
+
+END
+PUBLIC SUB OnExit()
+
+
+
+END
+
+
+
Added: branches/speedy/Step3.form
==============================================================================
--- (empty file)
+++ branches/speedy/Step3.form Tue Feb 3 12:18:50 2009
@@ -0,0 +1,84 @@
+# Gambas Form File 2.0
+
+{ Form Form
+ MoveScaled(0,0,64,64)
+ Text = ("")
+ Arrangement = Arrange.Row
+ { HPanel1 HPanel
+ MoveScaled(0,0,60,5)
+ Expand = True
+ { tlbanner TextLabel
+ MoveScaled(12,0,19,3)
+ Expand = True
+ Text = ("")
+ }
+ { Separator1 Separator
+ MoveScaled(13,4,25,1)
+ Expand = True
+ }
+ }
+ { HBox2 HBox
+ MoveScaled(49,5,9,1)
+ Expand = True
+ }
+ { HBox1 HBox
+ MoveScaled(0,7,63,4)
+ Expand = True
+ { tlPartHelp TextLabel
+ MoveScaled(0,0,62,3)
+ Expand = True
+ Text = ("TextLabel1")
+ Alignment = Align.TopLeft
+ }
+ }
+ { HPanel2 HPanel
+ MoveScaled(1,12,61,34)
+ Expand = True
+ { HBox3 HBox
+ MoveScaled(1,1,10,1)
+ Expand = True
+ }
+ { rbAutoPart RadioButton rbGroup
+ Name = "rbAutoPart"
+ MoveScaled(0,3,38,3)
+ Expand = True
+ Text = ("Automatic")
+ }
+ { Panel1 Panel
+ MoveScaled(0,6,3,3)
+ }
+ { tlautopart TextLabel
+ MoveScaled(4,6,55,4)
+ Expand = True
+ Text = ("Automatically resize your partitions to make size for your
VectorLinux installation")
+ }
+ { rbCustomPart RadioButton rbGroup
+ Name = "rbCustomPart"
+ MoveScaled(0,9,28,3)
+ Expand = True
+ Text = ("Manually resize my partitions ")
+ }
+ { Panel2 Panel
+ MoveScaled(0,12,3,3)
+ }
+ { tlGparted TextLabel
+ MoveScaled(4,12,46,3)
+ Expand = True
+ Text = ("Use the partitioning tool to prepare your system
partitions.")
+ }
+ { rbPrePartitioned RadioButton rbGroup
+ Name = "rbPrePartitioned"
+ MoveScaled(0,15,41,3)
+ Expand = True
+ Text = ("My hard drive is already partitioned")
+ }
+ { Panel3 Panel
+ MoveScaled(0,18,3,3)
+ }
+ { TextLabel1 TextLabel
+ MoveScaled(4,18,54,3)
+ Expand = True
+ Text = ("Install VectorLinux to existing partitions on my hard
drive")
+ }
+ }
+}
Added: branches/speedy/Step6.class
==============================================================================
--- (empty file)
+++ branches/speedy/Step6.class Tue Feb 3 12:18:50 2009
@@ -0,0 +1,306 @@
+' 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/>.
+
+PRIVATE cb AS ComboBox
+PRIVATE x AS Integer
+PRIVATE y AS Integer
+PUBLIC objMntPoints AS Object[]
+PUBLIC objFS AS Object[]
+
+PUBLIC FUNCTION GetNext() AS String
+
+ RETURN "Step7"
+
+END
+
+PUBLIC SUB OnExit()
+
+
+
+END
+
+PUBLIC SUB StartUp()
+
+
+
+END
+
+PUBLIC SUB PREPARE_PARTITION_LISTING()
+ WITH ME.gvPartListing
+ .Columns.Count = 6
+ .Rows.count = 1
+ END WITH
+ gvPartListing[0, 0].text = ("Partition")
+ gvPartListing[0, 1].text = ("Size")
+ gvPartListing[0, 2].text = ("Mount Point")
+ gvPartListing[0, 3].text = ("File System")
+ 'gvPartListing[0, 4].text = ("File System")
+ gvPartListing[0, 0].BackColor = Color.LightBackground
+ gvPartListing[0, 0].Font.Bold = TRUE
+ gvPartListing[0, 1].BackColor = Color.LightBackground
+ gvPartListing[0, 1].Font.Bold = TRUE
+ gvPartListing[0, 2].BackColor = Color.LightBackground
+ gvPartListing[0, 2].Font.Bold = TRUE
+ gvPartListing.Columns[2].Width = 120
+ gvPartListing[0, 3].BackColor = Color.LightBackground
+ gvPartListing[0, 3].Font.Bold = TRUE
+ gvPartListing.Columns[3].Width = 120
+ gvPartListing[0, 4].BackColor = Color.LightBackground
+ gvPartListing[0, 4].Font.Bold = TRUE
+ gvPartListing[0, 5].BackColor = Color.LightBackground
+ gvPartListing[0, 5].Font.Bold = TRUE
+
+ END
+
+
+PUBLIC SUB LIST_PARTITIONS()
+
+ DIM sDump AS String
+ DIM sDisks, sPartitions, sPartLine AS String[]
+ DIM sDisk, sPartNo, sSize, sFs AS String
+ DIM i, ii, irow AS Integer
+
+ objFS = NEW Object[]
+ objMntPoints = NEW Object[]
+
+ INC ME.gvPartListing.Rows.Count
+ irow = 2
+ SHELL "probedisk | grep -v cdrom | cut -f 1 -d \'|\'" TO sDump ' This
gets the list of present hard drisks
+ sDisks = Split(Trim(sDump), "\n")
+ FOR i = 0 TO sDisks.Count - 1
+ SHELL "parted " & Trim(sDisks[i]) & " print | grep \"^ [0-9]\" |
tr -s \' \',\"\"" TO sDump
+ spartitions = Split(Trim(sdump), "\n")
+ FOR ii = 0 TO spartitions.count - 1
+ sPartLine = Split(Trim(spartitions[ii]), " ")
+ sPartNo = sPartLine[0]
+ sSize = sPartLine[3]
+ sFs = sPartLine[5]
+ 'NEXT
+ ' add partition to the gridview
+ INC ME.gvPartListing.Rows.Count
+ ME.gvPartListing[irow, 0].text = Trim(sDisks[i]) &
Trim(sPartNo)
+ ME.gvPartListing[irow, 1].Text = Trim(sSize)
+ IF sFs LIKE "linux-swap" THEN
+ gvPartListing[irow, 3].Text = Trim(sfs)
+ ELSE
+ cbMntPoint = NEW ComboBox(gvPartListing.Parent)
AS "MountPointSel"
+ WITH cbMntPoint
+ .Move(gvPartListing[irow, 2].left, gvPartListing[irow,
2].top)
+ .Width = gvPartListing[irow, 2].Width
+ .Height = gvPartListing[irow, 2].Height
+ .list = [("Not
Used"), "/", "/home", "/usr", "/opt", "/tmp", "/var", "/boot", "/mnt" &/
Right(gvPartListing[irow, 0].text, Len(gvPartListing[irow, 0].text) -
RInStr(gvPartListing[irow, 0].text, "/"))]
+ .Text = ("Not Used")
+ .tag = gvPartListing[irow, 0].Text
+ END WITH
+ objMntPoints.Add(cbMntPoint)
+ cbfs = NEW ComboBox(gvPartListing.Parent) AS "FsSel"
+ WITH cbfs
+ .Move(gvPartListing[irow, 3].left, gvPartListing[irow,
3].top)
+ .Width = gvPartListing[irow, 3].Width
+ .Height = gvPartListing[irow, 3].Height
+ '.list = [("Not
Used"), "/", "/home", "/usr", "/opt", "/tmp", "/var", "/boot", "/mnt" &/
Right(gvPartListing[irow, 0].text, Len(gvPartListing[irow, 0].text) -
RInStr(gvPartListing[irow, 0].text, "/"))]
+ .list = [("Do not
format"), "ext2", "ext3", "jfs", "xfs", "reiserfs"]
+ .Text = ("Do not format")
+ .tag = gvPartListing[irow, 0].Text
+ .Enabled = FALSE
+ END WITH
+ objFS.Add(cbFS)
+ END IF
+ 'ME.gvPartListing[irow, 2].Text = Trim(sFs)
+ INC irow
+ NEXT
+ NEXT
+
+
+
+
+END
+
+PUBLIC SUB FsSel_Click()
+
+ 'Message(LAST.tag)
+ x = LAST.x
+ y = LAST.y
+
+ IF LAST.text <> ("Do not format") THEN
+ ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text = LAST.text
+ ELSE
+ ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text = ""
+ END IF
+
+ 'IF ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text THEN
Message(ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text)
+
+
+END
+
+PUBLIC FUNCTION CheckEntry(sEntry AS String, iCurrRow AS Integer) AS
Integer
+
+ DIM irow AS Integer = 2
+ FOR irow = 2 TO ME.gvPartListing.Rows.count - 2
+
+ IF irow <> iCurrRow THEN
+ PRINT irow & "-" & iCurrRow
+ IF gvPartListing[irow, 2].Text = sEntry THEN
+ Message.Error(("You have already selected") & Space(1) &
gvPartListing[irow, 0].Text & Space(1) & ("as your") & Space(1) &
Trim(sEntry) & Space(1) & ("partition.") & gb.NewLine &
+ ("Please select only one partition for this purpose"))
+
+ RETURN 1
+ END IF
+ END IF
+ INC irow
+
+ NEXT
+ RETURN 0
+END
+
+
+PUBLIC SUB MountPointSel_Click()
+ DIM cb AS ComboBox
+ DIM irow AS Integer
+ 'Message(LAST.tag)
+
+ x = LAST.x
+ y = LAST.y
+
+ IF ME.CheckEntry(LAST.text, gvPartListing.RowAt(LAST.y)) > 0 THEN
+ LAST.text = ("Not Used")
+ STOP EVENT
+ RETURN
+ END IF
+
+ IF LAST.text <> ("Not Used") THEN
+ FOR EACH cb IN objFS
+ IF cb.tag = LAST.tag THEN cb.Enabled = TRUE
+ NEXT
+ ' save the text in the background to the gridview
+ 'GOTO CHECK_ENTRY
+
+ ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text = LAST.text
+
+
+ 'Message(gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text)
+ ELSE
+ FOR EACH cb IN objFS
+ IF cb.tag = LAST.tag THEN cb.Enabled = FALSE
+ ME.gvPartListing[gvPartListing.RowAt(y),
gvPartListing.ColumnAt(x)].Text = ""
+ NEXT
+ END IF
+
+
+ ' CHECK_ENTRY:
+ ' irow = 2 ' we start at row 2, because 0 and 1 are meaningless for
this
+ ' REPEAT
+ ' 'Message(irow & "," & gvPartListing.RowAt(LAST.y))
+ ' IF irow <> gvPartListing.RowAt(y) THEN
+ ' 'Message(irow, gvPartListing.RowAt(y))
+ ' IF Trim(gvPartListing[irow, 2].Text) = Trim(LAST.text) THEN
+ ' 'problem here... there is already an entry for this
+ ' Message.Error("Duplicate entry found")
+ ' RETURN
+ ' END IF
+ ' 'ELSE
+ ' END IF
+ '
+ '
+ ' INC irow
+ ' UNTIL
+ ' irow = gvPartListing.Rows.Count - 2 ' the 2 rows we skipped to
start with
+
+
+
+
+END
+
+
+
+
+PUBLIC SUB Form_Open()
+
+ ME.tlbanner.Text = "<h2>" & ("Select which partitions to use for
installation") & "</h2>"
+ ME.PREPARE_PARTITION_LISTING()
+ ME.LIST_PARTITIONS()
+ 'ME.cbMntPoint.list = [("Not
Used"), "/", "/home", "/usr", "/opt", "/tmp", "/var", "/boot"]
+ 'ME.cbMntPoint.ReadOnly = TRUE
+END
+
+PUBLIC SUB Form_Resize()
+
+ 'ME.gvPartListing.Height = gvPartListing.Parent.Height
+ ME.Panel1.Height = ME.ClientH - (ME.HPanel1.Top + ME.HPanel1.Height + 8)
+ ME.gvPartListing.Resize(gvPartListing.Parent.Width,
gvPartListing.Parent.Height)
+
+END
+
+
+
+
+PUBLIC SUB gvPartListing_Click()
+
+'DIM x, y AS Integer
+
+ IF LAST.row < 2 THEN RETURN
+x = LAST.column
+y = LAST.row
+
+IF X = 2 THEN
+ ME.cbMntPoint.Move(gvPartListing[y, x].left, gvPartListing[y, x].top)
+ ME.cbMntPoint.Width = gvPartListing[y, x].Width
+ ME.cbMntPoint.Height = gvPartListing[y, x].Height
+
+ ME.cbMntPoint.Visible = TRUE
+END IF
+
+
+
+'
+ END
+
+
+PUBLIC SUB cbMntPoint_Change()
+
+ 'DIM x, y AS Integer
+
+ 'x = gvPartListing.ColumnAt(LAST.x)
+ 'y = gvPartListing.RowAt(LAST.y)
+
+ IF y < 2 THEN RETURN
+ IF LAST.text = ("Not Used") THEN LAST.text = ""
+ gvPartListing[y, x].Text = Trim(LAST.text)
+ LAST.visible = FALSE
+
+
+END
+
+
+PUBLIC SUB cbYN_Click()
+
+gvPartListing[y, x].Text = cbYN.Text
+
+WAIT 0.25
+cbYN.Visible = FALSE
+
+END
+
+
+
+
+PUBLIC SUB cbYN_Leave()
+
+ ' 'Message("leave")
+ ' gvPartListing[y, x].Text = cbYN.Text
+ ' cbYN.Visible = FALSE
+
+END
Added: branches/speedy/Step6.form
==============================================================================
--- (empty file)
+++ branches/speedy/Step6.form Tue Feb 3 12:18:50 2009
@@ -0,0 +1,48 @@
+# Gambas Form File 2.0
+
+{ Form Form
+ MoveScaled(0,0,72,43)
+ Expand = True
+ Text = ("")
+ Arrangement = Arrange.Row
+ { HPanel1 HPanel
+ MoveScaled(0,0,60,5)
+ Expand = True
+ { tlbanner TextLabel
+ MoveScaled(12,0,19,3)
+ Expand = True
+ Text = ("")
+ }
+ { Separator1 Separator
+ MoveScaled(13,4,25,1)
+ Expand = True
+ }
+ }
+ { Panel1 Panel
+ MoveScaled(1,6,64,33)
+ Expand = True
+ Border = Border.Plain
+ { gvPartListing GridView
+ MoveScaled(0,0,61,25)
+ Expand = True
+ Grid = False
+ }
+ { cbMntPoint ComboBox
+ MoveScaled(12,27,7,2)
+ Visible = False
+ Text = ("")
+ }
+ { cbYN ComboBox
+ MoveScaled(22,28,7,1)
+ Visible = False
+ Text = ("")
+ ReadOnly = True
+ List = [("Yes"), ("No")]
+ }
+ { cbFs ComboBox
+ MoveScaled(3,27,8,1)
+ Visible = False
+ Text = ("")
+ }
+ }
+}
Modified: branches/speedy/images/throbber.gif
==============================================================================
Binary files. No diff available.
|
