From: <cod...@go...> - 2008-08-20 21:03:56
|
Author: M0E.lnx Date: Wed Aug 20 14:03:05 2008 New Revision: 133 Modified: branches/iVL/FMain.class branches/iVL/MdlLiloOsList.module Log: - Changes to the way the tabstrip gets created / indexed at runtime. The previous method was returning an error Modified: branches/iVL/FMain.class ============================================================================== --- branches/iVL/FMain.class (original) +++ branches/iVL/FMain.class Wed Aug 20 14:03:05 2008 @@ -36,9 +36,9 @@ ClsGlobal.sSourceMnt = "/mnt" &/ "cdrom" 'FOR TESTING ONLY '/ THE FOLLOWING LINES HAVE BEEN COMMENTED FOR TESTING ONLY -' ' ' FrmSelISO.Reparent(ME.pnlWinHost) -' ' ' FrmSelISO.Width = pnlWinHost.Width -' ' ' FrmSelISO.Height = pnlWinHost.Height +FrmSelISO.Reparent(ME.pnlWinHost) +FrmSelISO.Width = pnlWinHost.Width +FrmSelISO.Height = pnlWinHost.Height iImg = Image.Load("images/installer.png").Stretch(400, 50) 'iImg.Resize(600, 80) @@ -72,12 +72,12 @@ 'ME.TreeView1.BackColor = Color.Transparent ME.AUTOSIZE_LEFT_PANE ' ' ' / THE FOLLOWING LINES HAVE BEEN IMPLEMENTED FOR TESTING PURPOSES -WITH FrmLilo -.Reparent(Fmain.pnlWinHost) -.Width = Fmain.pnlWinHost.Width -.Height = Fmain.pnlWinHost.Height -.Show -END WITH +' ' ' WITH FrmLilo +' ' ' .Reparent(Fmain.pnlWinHost) +' ' ' .Width = Fmain.pnlWinHost.Width +' ' ' .Height = Fmain.pnlWinHost.Height +' ' ' .Show +' ' ' END WITH END Modified: branches/iVL/MdlLiloOsList.module ============================================================================== --- branches/iVL/MdlLiloOsList.module (original) +++ branches/iVL/MdlLiloOsList.module Wed Aug 20 14:03:05 2008 @@ -253,7 +253,7 @@ sLiloDesc = ME.ID_DISTRO("/tmp/lilo_tmp") WITH FrmLilo.TabStrip1 - .Index = i + .Index = FrmLilo.TabStrip1.count - 1 .text = sLiloDesc & "-" & sShortAddr tl = NEW TextLabel(FrmLilo.TabStrip1) AS "OSIntro" WITH tl |