[gnue] r10076 - trunk/gnue-navigator/packaging/win32

[reinhard]

Author: reinhard
Date: 2009-12-05 10:21:08 -0600 (Sat, 05 Dec 2009)
New Revision: 10076

Modified:
   trunk/gnue-navigator/packaging/win32/gnue-navigator.iss.dist_template
Log:
Some fixes to Windows packaging.


Modified: trunk/gnue-navigator/packaging/win32/gnue-navigator.iss.dist_template
===================================================================
--- trunk/gnue-navigator/packaging/win32/gnue-navigator.iss.dist_template       
2009-12-05 16:06:55 UTC (rev 10075)
+++ trunk/gnue-navigator/packaging/win32/gnue-navigator.iss.dist_template       
2009-12-05 16:21:08 UTC (rev 10076)
@@ -28,9 +28,9 @@
 
 [Files]
 Source: C:\GNUe\Bin\gnue-navigator.exe; DestDir: {app}\Bin; Components: main; 
Flags: ignoreversion
-Source: C:\GNUe\Bin\gnue\navigator\*.*; DestDir: {app}\Bin\gnue\forms; Flags: 
recursesubdirs ignoreversion; Components: main
+Source: C:\GNUe\Bin\gnue\navigator\*.*; DestDir: {app}\Bin\gnue\navigator; 
Flags: recursesubdirs ignoreversion; Components: main
 Source: C:\GNUe\share\locale\gnue-navigator.mo; DestDir: {app}\share\locale\; 
Flags: recursesubdirs createallsubdirs; Components: translations
-Source: C:\GNUe\share\doc\gnue-navigator\*.*; DestDir: 
{app}\share\doc\gnue-forms; Flags: recursesubdirs; Components: doc
+Source: C:\GNUe\share\doc\gnue-navigator\*.*; DestDir: 
{app}\share\doc\gnue-navigator; Flags: recursesubdirs; Components: doc
 
 [Registry]
 ; These four associations associate GPD files with GNUe Navigator
@@ -68,17 +68,23 @@
   sPrevPath := GetPathInstalled( sprevID );
 
   if ( Length(sPrevPath) > 0 ) then
-    Result := true
-  else
-    begin
+      Result := true
+  else begin
       MsgBox( 'GNUe-Runtime-Environment is not installed!', mbInformation, 
MB_OK );
       Result := false;
-    end;
+  end;
 
   if (Length(GetPathInstalled('GNUe-Common')) > 0) then
       Result := true
   else begin
-      MsgBox('GNUe-Common is not installed!  Please install the GNUe-Common 
package in order to setup GNUe-Forms.', mbInformation, MB_OK);
+      MsgBox('GNUe-Common is not installed!  Please install the GNUe-Common 
package in order to setup GNUe-Navigator.', mbInformation, MB_OK);
       Result := false;
   end;
+
+  if (Length(GetPathInstalled('GNUe-Forms')) > 0) then
+      Result := true
+  else begin
+      MsgBox('GNUe-Forms is not installed!  Please install the GNUe-Forms 
package in order to setup GNUe-Navigator.', mbInformation, MB_OK);
+      Result := false;
+  end;
 end;