Changeset 16


Ignore:
Timestamp:
Feb 27, 2018, 12:49:45 AM (7 years ago)
Author:
Gregg Young
Message:

Get the warpin to build and work. Code from lswitcher mostly by Doug Bissett and from Lucide to identify missing gbm,dll

Location:
trunk/warpin
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/warpin/Gotcha.WIS

    r14 r16  
    1010
    1111<HEAD>
     12
     13<REXX NAME=ChkREQ>
     14    call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
     15    call SysLoadFuncs
     16    /* based upon work from Dmitriy Kuminov */
     17    parse arg aFile " Package:" Package
     18    name = filespec('N', aFile)
     19    ext = translate(right(name, 4))
     20    search_path = ""
     21    select
     22      when (ext == '.DLL') then do
     23        config_sys = SysBootDrive()'\CONFIG.SYS'
     24        do while lines(config_sys)
     25          line = strip(linein(config_sys))
     26          if (left(line, 8) == 'LIBPATH=') then do
     27            search_path = substr(line, 9)
     28            leave
     29          end
     30        end
     31        call lineout config_sys
     32        search_path = SysQueryExtLibPath('B')';'search_path';'SysQueryExtLibPath('E')
     33      end
     34      when (ext == '.EXE') then search_path = value('PATH',, 'OS2ENVIRONMENT')
     35      when (ext == '.HLP') then search_path = value('BOOKSHELF',, 'OS2ENVIRONMENT')
     36      otherwise search_path = ''
     37    end
     38    if (search_path \= '') then do
     39      ok = value('CHKREQ_SEARCH_PATH', search_path, 'OS2ENVIRONMENT')
     40      real_file = SysSearchPath('CHKREQ_SEARCH_PATH', name)
     41      ok = value('CHKREQ_SEARCH_PATH', '', 'OS2ENVIRONMENT')
     42    end
     43    else real_file = ""
     44
     45    /* generate the message string to return */
     46    if real_file <> "" then MsgStr = ""; else MsgStr = 'REQUIRES="' || strip(Package) || '"'
     47    return MsgStr
     48</REXX>
     49
    1250<TITLE>GOTCHA!</TITLE>
    1351
    1452<PCK INDEX=1
    15      PACKAGEID="Thorsten Thielen\GOTCHA!\GOTCHA! Program\1\78"
    16      TARGET="$(WARPIN_DEFAULTAPPSPATH)\GOTCHA"
     53     PACKAGEID="Netlabs\Gotcha\program\
     54     TARGET="$(WARPIN_DEFAULTTOOLSPATH)\GOTCHA"
    1755     TITLE="GOTCHA!"
    18      SELECT
    19 
    20 CREATEOBJECT='WPFolder|Gotcha!|<WP_DESKTOP>|OBJECTID=<GOTCHAFOLDER>;OPEN=DEFAULT;ALWAYSSORT=YES;'
    21 
    22 CREATEOBJECT="WPProgram|Gotcha!|<GOTCHAFOLDER>|EXENAME=$(1)\gotcha.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotcha.ico;OBJECTID=<RunGotcha>;"
    23 
    24 CREATEOBJECT="WPShadow|README|<GOTCHAFOLDER>|SHADOWID=$(1)\README;OBJECTID=<GOTCHAReadme>;"
    25 
    26 CREATEOBJECT="WPShadow|LICENSE|<GOTCHAFOLDER>|SHADOWID=$(1)\COPYING;OBJECTID=<GOTCHALic>;"
    27      
     56     SELECT
     57     CREATEOBJECT='WPFolder|Gotcha!|<WP_DESKTOP>|OBJECTID=<GOTCHAFOLDER>;OPEN=DEFAULT;ALWAYSSORT=YES;'
     58     CREATEOBJECT='WPProgram|Gotcha!|<GOTCHAFOLDER>|EXENAME=$(1)\gotcha.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotcha.ico;OBJECTID=<RunGotcha>;'
     59     CREATEOBJECT="WPShadow|README|<GOTCHAFOLDER>|SHADOWID=$(1)\README;OBJECTID=<GOTCHAReadme>;"
     60     CREATEOBJECT="WPShadow|LICENSE|<GOTCHAFOLDER>|SHADOWID=$(1)\COPYING;OBJECTID=<GOTCHALic>;"
     61     =("ChkREQ GBM.DLL Package:Heiko Nitzsche\GBM - Generalised Bitmap Module\GBM Tools\1\76")
    2862     >"GOTCHA!"</PCK>
    29 
    30 <PCK INDEX=2
    31      PACKAGEID="Thorsten Thielen\GOTCHA!\GOTCHA! Source Code\1\78"
    32      TARGET="$(WARPIN_DEFAULTAPPSPATH)\GOTCHA\Source"
    33      TITLE="GOTCHA! Source Code"
    34      >"GOTCHA! Source Code"</PCK>
    3563
    3664</HEAD>
    … …  
    4876<NEXTBUTTON TARGET=2>~Next</NEXTBUTTON>
    4977<TEXT>This package will install the Gotcha! Application on your system.</TEXT>
    50 <README FORMAT=HTML>
    51 <B>Gotcha!, version 1.73</B>
    52 
    53 <P>Gotcha! is an OS/2 screen capture utility. It allows to capture either windows, window interiors, parts of the screen or the whole desktop and save them to disk in many image formats (if OS/2 Multimedia is installed) or clipboard. Serial capture and batch mode options are available.
    54 
    55 <P>Since v1.73, Gotcha! is free software released under the GPL. See the file COPYING for details.
    56 
    57 <P>As an exception the translation to Brazilian Portuguese
    58 (portbras.rc and portbras.ipf) is copyright by rico Mendon‡a.
    59 
    60 <P>As another exception the Italian translation (italiano.rc and
    61 italiano.ipf) is copyright by Alberto Gabrielli.
    62 
    63 <br><br>
    64 <p>Select <b>"Next"</b> to continue.
    65 <br>Select <b>"Cancel"</b> to abort installation.</p>
    66 </README>
    67 
    68 
     78<README FORMAT=PLAIN EXTRACTFROMPCK="1">README</README>
    6979</PAGE>
    7080
Note: See TracChangeset for help on using the changeset viewer.