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

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

Author: M0...@gm...
Date: Thu Aug  7 12:16:01 2008
New Revision: 104

Modified:
    branches/iVL/.project
    branches/iVL/MdlDiskPart.module
    branches/iVL/installer.gambas

Log:
- Fixing BUG where gparted is not propperly embedding
- Updated binary


Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project	(original)
+++ branches/iVL/.project	Thu Aug  7 12:16:01 2008
@@ -1,7 +1,7 @@
  # Gambas Project File 2.0
  Title=VectorLinux Installer
  Startup=MdlCore
-Version=0.0.30
+Version=0.0.31
  Library=gb.gtk
  Library=gb.form
  Library=gb.debug
@@ -16,7 +16,6 @@
  Language=en_US
  ControlPublic=1
  ModulePublic=1
-ExecPath=/root/svn-installer2/installer.gambas
  Maintainer=benoit
  Vendor=Princeton
  Address=benoit@localhost

Modified: branches/iVL/MdlDiskPart.module
==============================================================================
--- branches/iVL/MdlDiskPart.module	(original)
+++ branches/iVL/MdlDiskPart.module	Thu Aug  7 12:16:01 2008
@@ -59,7 +59,7 @@
      END IF
      IF aHandle.Count = 0 THEN
        aHandle = Desktop.Find(sTitle2) ' gparted cannot find drives, but it  
loaded ;)
-    END IF
+    'END IF

          IF aHandle.Count = 0 THEN
            Message("Setup is unable to successfully run gparted on this  
system. This may be a sign of \n" &
@@ -75,10 +75,11 @@
    'ENDIF

    'TRY embEmbedder.Embed(iHandle)
+  IF aHandle <> 0 THEN
    TRY FrmDiskPart.EmbGPARTED.Embed(iHandle)

    IF ERROR THEN Message.Warning(Error.Text)
-
+  END IF
  END

  PUBLIC FUNCTION FIND_DOS_PARTITIONS(sDev AS String) AS Boolean

Modified: branches/iVL/installer.gambas
==============================================================================
Binary files. No diff available.