Changeset 969

Timestamp:

Feb 22, 2008, 9:24:05 PM (17 years ago)

Author:

John Small

Message:

Ticket 231: Stop auto-select of FM/2 Utilities of already installed.

File:

• trunk/warpin/fm2.wis.in (modified) (4 diffs)

trunk/warpin/fm2.wis.in ¶

@@ -22 +22 @@
    WARPIN VERSION 0.9.9  is required for EXTRACTFROMPCK.
 
+   22 Feb 08 JBS Ticket 231: Stop auto-select of FM/2 Utilities of already installed.
+
 -->
 <WARPIN VERSION 0.9.20>
@@ -31 +33 @@
    else
       return '5'
+</REXX>
+
+<REXX NAME=FM2UtilitiesSelect>
+   call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
+   call SysLoadFuncs
+   warpin_path = strip(SysIni(, 'WarpIN', 'Path'), 'T', '00'x)
+   database_file = warpin_path || '\DATBAS_' || left(SysBootDrive(), 1) || '.INI'
+   ver = "@@@FM2UTILS_VER@@@"  /* PACKAGEID (do not delete this comment, SED needs this */
+   do forever
+     parse var ver '\' major '\' minor '\' sublevel '\' revision
+     if revision = '' then
+       ver = ver || '\0'
+     else
+       leave
+   end
+   fm2_utils_app = "Netlabs\FM2 Utilities\FM2Utils" || ver
+   call SysIni database_file, fm2_utils_app, 'ALL:', 'keys.'
+   if keys.0 = 0 then
+        return 'SELECT'
+   else
+        return ''
 </REXX>
 
@@ -88 +111 @@
   EXTERNAL="fm2utils@@@FM2UTILS_VER@@@.wpi"
   TARGET="$(1)\Utils"
-  SELECT
+  =("FM2UtilitiesSelect")
   CREATEOBJECT="WPFolder|FM/2 Utilities|<WP_DESKTOP>|OBJECTID=<FM2_Utilities>;"
   CREATEOBJECT="WPProgram|Make Object|<FM2_Utilities>|EXENAME=$(7)\makeobj.cmd;PARAMETERS=%*;OBJECTID=<FM2MakeObj>;"
@@ -103 +126 @@
 PTREE and many more.
 </PCK>
-
 
 </HEAD>