|
From: <cod...@go...> - 2008-11-13 20:04:22
|
Author: M0E.lnx
Date: Thu Nov 13 12:02:35 2008
New Revision: 289
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/FrmLiloSetup.class
branches/iVL/FrmLiloSetup.form
branches/iVL/MdlLilo.module
branches/iVL/installer.gambas
Log:
Modified OS Detection @ LILO setup step
Modified: branches/iVL/.lang/#project.pot
==============================================================================
--- branches/iVL/.lang/#project.pot (original)
+++ branches/iVL/.lang/#project.pot Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/.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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/FrmSelISO.class
+# /home/vluser/devel/installer/FrmSelISO.class
# Generated by Gambas compiler
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
Modified: branches/iVL/.lang/FrmSummary.pot
==============================================================================
--- branches/iVL/.lang/FrmSummary.pot (original)
+++ branches/iVL/.lang/FrmSummary.pot Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/MdlSetup.module
+# /home/vluser/devel/installer/MdlSetup.module
# Generated by Gambas compiler
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
@@ -14,27 +14,15 @@
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
-#: MdlSetup.module:197
-msgid "Calculating package count ... Please wait"
-msgstr ""
-
-#: MdlSetup.module:253
-msgid "Total bulks to be installed = "
-msgstr ""
-
-#: MdlSetup.module:256
-msgid "Total pkgs to be installed = "
-msgstr ""
-
-#: MdlSetup.module:303
+#: MdlSetup.module:242
msgid "BROUGHT TO YOU BY"
msgstr ""
-#: MdlSetup.module:319
+#: MdlSetup.module:258
msgid "Activating swap space"
msgstr ""
-#: MdlSetup.module:321
+#: MdlSetup.module:260
msgid "Preparing filesystems"
msgstr ""
Modified: branches/iVL/.lang/MdlSummarize.pot
==============================================================================
--- branches/iVL/.lang/MdlSummarize.pot (original)
+++ branches/iVL/.lang/MdlSummarize.pot Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,4 +1,4 @@
-# /root/gui-installer2/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 Thu Nov 13 12:02:35 2008
@@ -1,8 +1,8 @@
# Gambas Project File 2.0
# Compiled with Gambas 2.9.0
Title=VectorLinux Installer
-Startup=MdlCore
-Version=0.0.158
+Startup=FrmLiloSetup
+Version=0.0.159
Library=gb.gtk
Library=gb.form
Library=gb.debug
@@ -18,7 +18,6 @@
Language=en_US
ControlPublic=1
ModulePublic=1
-ExecPath=/root/gui-installer2/installer.gambas
Maintainer=M0E-lnx
Vendor=VectorLinux
Add...@gm...
Modified: branches/iVL/FrmLiloSetup.class
==============================================================================
--- branches/iVL/FrmLiloSetup.class (original)
+++ branches/iVL/FrmLiloSetup.class Thu Nov 13 12:02:35 2008
@@ -44,3 +44,9 @@
MdlLilo.GENERATE_LILO_DOT_CONF
END
+
+PUBLIC SUB cbTimeOutSec_MouseDown()
+
+
+
+END
Modified: branches/iVL/FrmLiloSetup.form
==============================================================================
--- branches/iVL/FrmLiloSetup.form (original)
+++ branches/iVL/FrmLiloSetup.form Thu Nov 13 12:02:35 2008
@@ -5,7 +5,7 @@
Text = ("")
Arrangement = Arrange.Vertical
{ HPanel1 HPanel
- MoveScaled(1,1,71,7)
+ MoveScaled(1,1,71,6)
{ tlBanner TextLabel
MoveScaled(1,1,21,3)
Expand = True
@@ -16,64 +16,81 @@
Expand = True
}
}
- { HPanel2 HPanel
- MoveScaled(1,8,88,18)
+ { Panel1 Panel
+ MoveScaled(2,8,84,3)
+ Arrangement = Arrange.Horizontal
{ CheckBox1 CheckBox
- MoveScaled(1,2,20,3)
+ MoveScaled(0,0,20,3)
Expand = True
Text = ("Do not install LILO")
}
- { tlVidRes TextLabel
- MoveScaled(40,4,16,3)
+ { Panel2 Panel
+ MoveScaled(22,0,15,1)
Expand = True
+ Arrangement = Arrange.Horizontal
+ }
+ { tlVidRes TextLabel
+ MoveScaled(44,0,15,3)
Text = ("Video Resolution")
Alignment = Align.Normal
}
{ cbVideoRes ComboBox
- MoveScaled(57,4,22,3)
- Expand = True
- Text = ("ComboBox1")
+ MoveScaled(61,0,22,3)
+ Text = ("")
}
+ }
+ { Panel3 Panel
+ MoveScaled(1,11,88,3)
+ Arrangement = Arrange.Horizontal
{ tlLiloTarget TextLabel
- MoveScaled(1,5,7,3)
- Expand = True
+ MoveScaled(0,0,7,3)
Text = ("Target")
Alignment = Align.Normal
}
{ cbLIloTarget ComboBox
- MoveScaled(10,5,26,2)
+ MoveScaled(8,0,26,2)
+ Text = ("")
+ }
+ { Panel4 Panel
+ MoveScaled(35,1,5,2)
Expand = True
- Text = ("ComboBox1")
+ Arrangement = Arrange.Horizontal
}
{ cbDefBoot TextLabel
- MoveScaled(40,8,17,3)
- Expand = True
+ MoveScaled(45,0,11,3)
Text = ("Boot Default")
}
{ ComboBox1 ComboBox
- MoveScaled(58,8,21,3)
- Expand = True
- Text = ("ComboBox1")
+ MoveScaled(62,0,22,3)
+ Text = ("")
}
+ }
+ { PnlTop Panel
+ MoveScaled(1,16,88,3)
+ Arrangement = Arrange.Horizontal
{ tlTimeOut TextLabel
- MoveScaled(1,10,14,3)
- Expand = True
+ MoveScaled(0,0,14,3)
Text = ("Prompt Timeout")
Alignment = Align.Normal
}
{ SpinBox1 SpinBox
- MoveScaled(16,10,7,3)
- Expand = True
+ MoveScaled(15,0,7,3)
}
{ cbTimeOutSec TextLabel
- MoveScaled(24,10,8,3)
- Expand = True
+ MoveScaled(24,0,8,3)
Text = ("Seconds")
Alignment = Align.Normal
}
}
+ { HBox1 HBox
+ MoveScaled(1,19,88,2)
+ { Separator2 Separator
+ MoveScaled(0,1,83,1)
+ Expand = True
+ }
+ }
{ tsLIloTabs TabStrip
- MoveScaled(1,28,84,30)
+ MoveScaled(2,25,84,30)
Expand = True
Index = 0
Text = ("Tab 0")
Modified: branches/iVL/MdlLilo.module
==============================================================================
--- branches/iVL/MdlLilo.module (original)
+++ branches/iVL/MdlLilo.module Thu Nov 13 12:02:35 2008
@@ -23,6 +23,7 @@
PUBLIC arrWinBootChecks AS Object[]
PUBLIC arrWinNameTxtBoxes AS Object[]
PUBLIC arrCbInitrds AS Object[]
+PUBLIC arriDLabels AS Object[]
PRIVATE i AS Integer ' used for object key
@@ -30,8 +31,9 @@
PUBLIC SUB GENERATE_LILO_DOT_CONF()
DIM tb AS TextBox
- DIM cb AS CheckBox
- DIM sSection AS String
+ DIM cb, chbox AS CheckBox
+
+ DIM sSection, sClisection AS String
DIM cbox AS ComboBox
DIM sLabel, sKernel, sInitrd, sAppend AS String
DIM sBootPath AS String
@@ -47,7 +49,7 @@
FOR EACH tb IN arrLinuxNametxtboxes
IF tb.Tag = cb.Tag THEN
sLabel = tb.Text
- sKernel = "vmlinuz-" & sLabel
+ sKernel = "vmlinuz-" & Right(tb.Tag, Len(tb.Tag) -
RInStr(tb.Tag, "/"))
END IF
NEXT
FOR EACH cbox IN arrCbInitrds
@@ -64,9 +66,23 @@
"append = " & sAppend & "<br>" &
"initrd = " & sBootPath &/ sInitrd & "<br>" &
"read only"
+ FOR EACH chbox IN ME.arrLinuxTextBoots
+ IF chbox.Value = TRUE THEN
+ IF chbox.tag = cb.Tag THEN
+ sClisection = sSection
+ sClisection = Replace(sClisection, "append = " &
sAppend, "append = 2 splash=verbose vga=791")
+ sClisection = Replace(sClisection, "label = " &
sLabel, "label = " & sLabel & "-cli")
+ ELSE
+ sClisection = ""
+ END IF
+
+ END IF
+ NEXT
+
+
Message(sSection)
-
+ IF sClisection THEN Message(sClisection)
'sSection = "image=" & "boot" &/ tb.Text
'Message(sSection)
END IF
@@ -86,7 +102,7 @@
PUBLIC SUB LIST_LINUX_OS()
DIM sDump, sLinuxPart, sPart, vmlinuz, kernel AS String
- DIM sOsDesc AS String
+ DIM sOsDesc, sInitrd, sKernelLoc AS String
DIM x, y, i, ii AS Integer
DIM sPartitions, sOs AS String[]
@@ -96,6 +112,7 @@
arrLinuxAppendtxtBoxes = NEW Object[]
arrLinuxTextBoots = NEW Object[]
arrCbInitrds = NEW Object[]
+ arriDLabels = NEW Object[]
@@ -107,23 +124,31 @@
sLinuxPart = Trim(sPartitions[i])
sPart = Right(sLinuxpart, Len(sLinuxPart) -
RInStr(sLinuxPart, "/"))
EXEC ["mount", "/dev/" & sPart, "/tmp/lilo_tmp"] WAIT
-
- IF IsDir("/tmp/lilo_tmp/boot") THEN
- FOR EACH vmlinuz IN
Dir("/tmp/lilo_tmp/boot", "vmlinuz*", gb.File)
- IF Stat("/tmp/lilo_tmp/boot" &/
vmlinuz).Type <> 6
- sOsDesc =
MdlLiloOsList.ID_DISTRO("/tmp/lilo_tmp")
- sOsDesc =
Replace(vmlinuz, "vmlinuz", sOsDesc)
+
+ IF IsDir("/tmp/lilo_tmp/boot") THEN
+ 'FOR EACH vmlinuz IN
Dir("/tmp/lilo_tmp/boot", "vmlinuz*", gb.File)
+ sOsDesc =
MdlLiloOsList.ID_DISTRO("/tmp/lilo_tmp")
+ 'Message(sOsDesc)
+ IF sOsDesc LIKE "vector" THEN
+ sKernelLoc = "/tmp/lilo_tmp/boot"
+ ELSE
+ sKernelLoc = "/tmp/lilo_tmp"
+ END IF
+ FOR EACH vmlinuz IN
Dir(sKernelLoc, "vmlinuz")
+ 'IF Stat("/tmp/lilo_tmp/boot" &/
vmlinuz).Type <> 6
+ 'sOsDesc =
MdlLiloOsList.ID_DISTRO("/tmp/lilo_tmp")
+ 'sOsDesc =
Replace(vmlinuz, "vmlinuz", sOsDesc)
'Message(Stat("/tmp/lilo_tmp" &/
vmlinuz).Type)
WITH FrmLiloSetup
.tsLIloTabs.Index
= .tsLIloTabs.Count - 1
- .tsLIloTabs.Text = sOsDesc &
Space(1) & "(" & sPart & ")"
+ .tsLIloTabs.Text = sOsDesc & "-" &
sPart
.tsLIloTabs.Count
= .tsLIloTabs.Count + 1
' populate the tabstrip here
ME.FILL_IN_LINUX_TAB(sOsDesc, "/dev" &/ sPart)
END WITH
- END IF
+ 'END IF
NEXT
END IF
@@ -152,7 +177,7 @@
'Message(sPartition & " has a windows install")
WITH FrmLiloSetup.tsLIloTabs
.Index = .Count - 1
- .Text = "Windows" & Space(1) & "(" &
Right(sPartition, Len(sPartition) - RInStr(sPartition, "/")) & ")"
+ .Text = "Windows" & Space(1) & "-" &
Right(sPartition, Len(sPartition) - RInStr(sPartition, "/"))
.Count = .Count + 1
END WITH
' populate the tab
@@ -248,8 +273,15 @@
DIM hrsep AS Separator
DIM cbox AS ComboBox
DIM sDump AS String
+ DIM sInitrdLoc AS String
'DIM i AS Integer
'DIM sKernelStr AS String
+ IF sDesc LIKE "vector" THEN
+ sInitrdLoc = "/tmp/lilo_tmp/boot"
+ ELSE
+ sInitrdLoc = "/tmp/lilo_tmp"
+ END IF
+ 'Message(sInitrdLoc)
' hack just for testing here
@@ -261,11 +293,13 @@
tl = NEW TextLabel(FrmLiloSetup.tsLIloTabs) AS "osItroLabels"
WITH tl
.Move(x, y)
- .Text = "<h3>" & sDesc & Space(1) & ("installed in") & Space(1)
& sHostPart & "</h3>"
+ .Text = "<h3>" & sDesc & Space(1) & "Linux" & Space(1) &
("installed in") & Space(1) & sHostPart & "</h3>"
.Height = 21
.Width = MdlObjSizer.get_object_width(.Text) + 36
.Alignment = Align.Normal
+ .tag = i & sHostPart
END WITH
+ arriDLabels.Add(tl)
y = y + tl.Height + 4
hrsep = NEW Separator(FrmLiloSetup.tsLIloTabs) AS "Separators"
@@ -327,7 +361,7 @@
.Height = 21
.Tag = i & sHostPart
' BROWSE FOR INITRD IMAGES
- FOR EACH sDump IN
Dir("/tmp/lilo_tmp/boot/", "initrd*")
+ FOR EACH sDump IN
Dir(sInitrdLoc, "initrd*")
IF
cbox.Find(Trim(sDump)) = -1 THEN cbox.Add(Trim(sDump))
NEXT
Modified: branches/iVL/installer.gambas
==============================================================================
Binary files. No diff available.
|