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

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

Author: uelsk8s
Date: Tue Oct 28 09:18:14 2008
New Revision: 244

Added:
    branches/iVL/FrmAlsaConf.class
    branches/iVL/FrmAlsaConf.form

Log:
added alsa embedder again

Added: branches/iVL/FrmAlsaConf.class
==============================================================================
--- (empty file)
+++ branches/iVL/FrmAlsaConf.class	Tue Oct 28 09:18:14 2008
@@ -0,0 +1,88 @@
+' 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 sRevText AS String
+
+PUBLIC SUB Form_Open()
+
+  FMain.FrmCurr = ME
+
+
+  MdlDiskPart.EMBED_ALSA()
+
+  WITH ME
+    .tlBanner.Text = "<b>ALSA Config:</b><br>" &
+    "Advanced Linux Sound Architecture:" &
+    "This portion of the setup process allows you to sutup your soundcard  
for your new operating system." &
+    "Please use the setup program below to setup the sound system."
+    .tlBanner.Adjust
+
+  END WITH
+
+    sRevText = ME.tlBanner.text
+
+
+END
+
+PUBLIC SUB Form_Resize()
+
+  WITH ME
+    .tlBanner.Width = .Width
+    .EmbALSA.Move(.tlBanner.Left, .tlBanner.Top + .tlBanner.Height +  
4, .ClientWidth - 16, .ClientHeight)
+  END WITH
+END
+
+PUBLIC SUB EmbALSA_Embed()
+
+  FMain.btnext.Enabled = FALSE
+  FMain.btnext.ForeColor = Color.Gray
+  FMain.btback.Enabled = FALSE
+  FMain.btback.ForeColor = Color.Gray
+  FMain.btQuit.Enabled = FALSE
+  FMain.btQuit.ForeColor = Color.Gray
+
+
+END
+
+PUBLIC SUB EmbALSA_Close()
+
+  DIM bReboot AS Boolean
+
+    FrmDiskPart.tlBanner.Text = "<h3><br>Analyzing system partitioning  
scheme... Please wait<br>This will take a few seconds...</h3>"
+    FrmDiskPart.tlBanner.Refresh
+    FrmDiskPart.tlBanner.Adjust
+    'Message("Exiting GParted")
+    WAIT 1
+
+
+
+       ME.Hide
+
+        FrmPartSel.Show
+
+
+
+  FMain.btnext.Enabled = TRUE
+  FMain.btnext.ForeColor = Color.Black
+  FMain.btback.Enabled = TRUE
+  FMain.btback.ForeColor = Color.Black
+  FMain.btQuit.Enabled = TRUE
+  FMain.btQuit.ForeColor = Color.Black
+  'END IF
+END

Added: branches/iVL/FrmAlsaConf.form
==============================================================================
--- (empty file)
+++ branches/iVL/FrmAlsaConf.form	Tue Oct 28 09:18:14 2008
@@ -0,0 +1,19 @@
+# Gambas Form File 2.0
+
+{ Form Form
+  MoveScaled(0,0,84,55)
+  Text = ("")
+  Arrangement = Arrange.Vertical
+  { tlBanner TextLabel
+    MoveScaled(1,2,81,9)
+    Text = ("Alsa Config:")
+  }
+  { VPanel1 VPanel
+    MoveScaled(1,12,74,48)
+    Expand = True
+    { EmbALSA Embedder
+      MoveScaled(6,7,76,32)
+      Expand = True
+    }
+  }
+}