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

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

Author: M0...@gm...
Date: Tue Sep  9 13:41:01 2008
New Revision: 165

Added:
    branches/iVL/FrmEmbUsrAdd.class
    branches/iVL/FrmEmbUsrAdd.form
    branches/iVL/adduser.gambas   (contents, props changed)
Modified:
    branches/iVL/.project

Log:
- Added embedded vuseradd module from vasmcc




Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Tue Sep  9 13:41:01 2008
@@ -1,6 +1,6 @@
  # Gambas Project File 2.0
  Title=VectorLinux Installer
-Startup=FrmZoneSet
+Startup=FrmEmbUsrAdd
  Version=0.0.54
  Library=gb.gtk
  Library=gb.form

Added: branches/iVL/FrmEmbUsrAdd.class
==============================================================================
--- (empty file)
+++ branches/iVL/FrmEmbUsrAdd.class	Tue Sep  9 13:41:01 2008
@@ -0,0 +1,43 @@
+' 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/>.
+
+PUBLIC SUB Form_Open()
+
+  DIM iID AS Integer = ME.Embedder1.Id
+
+  SHELL "$PWD/adduser.gambas " & iID & Space(1) & ME.ClientWidth &  
Space(1) & ME.clientHeight
+  MdlCore.LOCK_GUI()
+
+
+
+
+END
+
+PUBLIC SUB Form_Resize()
+
+  WITH ME
+    .Embedder1.Move(0, 0, .ClientWidth, .ClientHeight)
+  END WITH
+
+END
+
+PUBLIC SUB Embedder1_Close()
+
+  MdlCore.unlock_gui()
+
+
+END

Added: branches/iVL/FrmEmbUsrAdd.form
==============================================================================
--- (empty file)
+++ branches/iVL/FrmEmbUsrAdd.form	Tue Sep  9 13:41:01 2008
@@ -0,0 +1,9 @@
+# Gambas Form File 2.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  Text = ("")
+  { Embedder1 Embedder
+    MoveScaled(1,3,60,47)
+  }
+}

Added: branches/iVL/adduser.gambas
==============================================================================
Binary file. No diff available.