Author: M0E.lnx
Date: Thu Nov 13 14:26:10 2008
New Revision: 292
Modified:
branches/iVL/MdlLilo.module
Log:
Lilo Setup - Implemented OS Name changes to default boot options
Modified: branches/iVL/MdlLilo.module
==============================================================================
--- branches/iVL/MdlLilo.module (original)
+++ branches/iVL/MdlLilo.module Thu Nov 13 14:26:10 2008
@@ -247,7 +247,7 @@
END WITH
'y = y + tl.Height + 4
- tb = NEW TextBox(FrmLiloSetup.tsLIloTabs) AS "txtWinNameBox"
+ tb = NEW TextBox(FrmLiloSetup.tsLIloTabs)
AS "OsNameTxtBox" ' " txtWinNameBox ""
WITH tb
.Height = 21
.Width = 200
@@ -455,4 +455,33 @@
END
+PUBLIC SUB OsNameTxtBox_KeyPress()
+
+ DIM sOld AS String
+ DIM iKey AS Integer
+ sOld = LAST.Text
+ iKey = FrmLiloSetup.cbBootDefault.Find(sOld)
+
+ IF iKey <> -1 THEN FrmLiloSetup.cbBootDefault.Remove(iKey)
+
+ 'FrmLiloSetup.cbBootDefault.Add(LAST.text)
+ 'IF FrmLiloSetup.cbBootDefault.Find(sOld) <> -1 THEN
FrmLiloSetup.cbBootDefault.Remove
+
+ 'Message(sOld)
+
+
+END
+PUBLIC SUB OsNameTxtBox_KeyRelease()
+ DIM iKey AS Integer
+
+ iKey = FrmLiloSetup.cbBootDefault.Find(Left(LAST.Text, Len(LAST.text) -
1))
+ IF ikey <> -1 THEN FrmLiloSetup.cbBootDefault.Remove(iKey)
+ FrmLiloSetup.cbBootDefault.Add(LAST.text)
+
+
+ 'FrmLiloSetup.cbBootDefault.Add(LAST.text)
+
+
+
+END
|
