[Vectorlinux-devel] [vinstall-ng commit] r292 - branches/iVL

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

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