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.
|
