Ignore:
Timestamp:
Aug 31, 2006, 9:02:02 AM (15 years ago)
Author:
ktk
Message:

Implemented changes from Chuck McKinnis?, implements features mentioned in #79

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/warpin/lucide_wpi.wis

    r106 r109  
    1010
    1111<HEAD>
    12 
     12<TITLE>=("title")</TITLE>
     13<REXX NAME=title>
     14Call Rxfuncadd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
     15Call SysLoadFuncs
     16/* get boot drive language */
     17_lang = Value('lang',,'os2environment')
     18_id = Translate(Left(_lang,2))
     19If _id = 'ZH' Then Do
     20 _id = Translate(Substr(_lang,3,2))
     21 If _id = 'CN' Then _id = 'CX'
     22End
     23Select
     24 When _id = 'DE' Then Do
     25  _title = 'Lucide - Document Viewer'
     26  _folder = 'Lucide for eCS'
     27  _prog = 'Lucide'
     28  _readme = 'Lucide Readme'
     29  _change = 'Lucide Change Log'
     30  _plug_pdf = 'Lucide PDF plugin'
     31  _plug_djvu = 'Lucide DjVu plugin'
     32  _plug_jpeg = 'Lucide JPEG plugin'
     33 End
     34 When _id = 'NL' Then Do
     35  _title = 'Lucide - Document Bekijker'
     36  _folder = 'Lucide for eCS'
     37  _prog = 'Lucide'
     38  _readme = 'Lucide Readme'
     39  _change = 'Lucide Change Log'
     40  _plug_pdf = 'Lucide PDF plugin'
     41  _plug_djvu = 'Lucide DjVu plugin'
     42  _plug_jpeg = 'Lucide JPEG plugin'
     43 End
     44 When _id = 'FR' Then Do
     45  _title = 'Lucide - Afficheur de document'
     46  _folder = 'Lucide for eCS'
     47  _prog = 'Lucide'
     48  _readme = 'Lucide Readme'
     49  _change = 'Lucide Change Log'
     50  _plug_pdf = 'Lucide PDF plugin'
     51  _plug_djvu = 'Lucide DjVu plugin'
     52  _plug_jpeg = 'Lucide JPEG plugin'
     53 End
     54 When _id = 'SV' Then Do
     55  _title = 'Lucide - Dokumentvisare'
     56  _folder = 'Lucide for eCS'
     57  _prog = 'Lucide'
     58  _readme = 'Lucide Readme'
     59  _change = 'Lucide Change Log'
     60  _plug_pdf = 'Lucide PDF plugin'
     61  _plug_djvu = 'Lucide DjVu plugin'
     62  _plug_jpeg = 'Lucide JPEG plugin'
     63 End
     64 Otherwise Do
     65  _title = 'Lucide - Document Viewer'
     66  _folder = 'Lucide for eCS'
     67  _prog = 'Lucide'
     68  _readme = 'Lucide Readme'
     69  _change = 'Lucide Change Log'
     70  _plug_pdf = 'Lucide PDF plugin'
     71  _plug_djvu = 'Lucide DjVu plugin'
     72  _plug_jpeg = 'Lucide JPEG plugin'
     73 End
     74End
     75rc = WirexxPutEnv('title',_title)
     76rc = WirexxPutEnv('folder',_folder)
     77rc = WirexxPutEnv('prog',_prog)
     78rc = WirexxPutEnv('readme',_readme)
     79rc = WirexxPutEnv('change',_change)
     80rc = WirexxPutEnv('plug_pdf',_plug_pdf)
     81rc = WirexxPutEnv('plug_djvu',_plug_djvu)
     82rc = WirexxPutEnv('plug_jpeg',_plug_jpeg)
     83Return _title
     84</REXX>
     85<REXX NAME=folder>
     86Return WirexxGetEnv('folder')
     87</REXX>
     88<REXX NAME=prog>
     89ans = WirexxShowMessage(WirexxGetEnv('title'),'Make Lucide the default program for PDF files?','0004'x)
     90If ans = 6 Then Do
     91 /* clear any previous associations */
     92 Call SysIni 'USER','PMWP_ASSOC_FILTER','*.PDF','DELETE:'
     93 Call SysIni 'USER','PMWP_ASSOC_FILTER','*PDF','DELETE:'
     94 Call SysIni 'USER','PMWP_ASSOC_TYPE','Acrobat Document','DELETE:'
     95End
     96Return WirexxGetEnv('prog')
     97</REXX>
     98<REXX NAME=readme>
     99Return WirexxGetEnv('readme')
     100</REXX>
     101<REXX NAME=change>
     102Return WirexxGetEnv('change')
     103</REXX>
     104<REXX NAME=plug_pdf>
     105Return WirexxGetEnv('plug_pdf')
     106</REXX>
     107<REXX NAME=plug_djvu>
     108Return WirexxGetEnv('plug_djvu')
     109</REXX>
     110<REXX NAME=plug_jpeg>
     111Return WirexxGetEnv('plug_jpeg')
     112</REXX>
    13113<PCK INDEX=1
    14114     PACKAGEID="netlabs.org\Lucide\Lucide core\0\9\3"
    15115     TARGET="$(WARPIN_DEFAULTAPPSPATH)\Lucide"
    16116     BASE
    17      TITLE="Lucide Document Viewer"
    18      CREATEOBJECT="WPFolder|Lucide for eCS|<WP_DESKTOP>|OBJECTID=<LUCIDEFOLDER>;ICONFILE=$(1)\lucide_fldr_1.ico;ICONNFILE=1,$(1)\lucide_fldr_2.ico;OPEN=DEFAULT;"
    19      CREATEOBJECT='WPProgram|Lucide|<LUCIDEFOLDER>|EXENAME=$(1)\lucide.exe;OBJECTID=<LUCIDEFOLDER_LUCIDEEXE>;PROGTYPE=PM;STARTUPDIR=$(1);ASSOCFILTER=*.PDF,*.DJVU'
    20      CREATEOBJECT='WPProgram|Lucide Readme|<LUCIDEFOLDER>|EXENAME=e.exe;OBJECTID=<LUCIDEFOLDER_README>;PROGTYPE=PM;PARAMETERS="$(1)\readme";STARTUPDIR=$(1);'
    21      CREATEOBJECT='WPProgram|Lucide Changelog|<LUCIDEFOLDER>|EXENAME=e.exe;OBJECTID=<LUCIDEFOLDER_CHANGELOG>;PROGTYPE=PM;PARAMETERS="$(1)\changelog";STARTUPDIR=$(1);'
     117     TITLE="=("title")"
     118     CREATEOBJECT="WPFolder|=("folder")|<WP_DESKTOP>|OBJECTID=<LUCIDEFOLDER>;ICONFILE=$(1)\lucide_fldr_1.ico;ICONNFILE=1,$(1)\lucide_fldr_2.ico;OPEN=DEFAULT;ALWAYSSORT=YES;"
     119     CREATEOBJECT="REPLACE WPProgram|=("prog")|<LUCIDEFOLDER>|EXENAME=$(1)\lucide.exe;OBJECTID=<LUCIDEFOLDER_LUCIDEEXE>;PROGTYPE=PM;STARTUPDIR=$(1);ASSOCFILTER=*.PDF,*.DJVU;ASSOCTYPE=Acrobat Document;"
     120     CREATEOBJECT="REPLACE WPProgram|=("readme")|<LUCIDEFOLDER>|EXENAME=e.exe;OBJECTID=<LUCIDEFOLDER_README>;PROGTYPE=PM;PARAMETERS="$(1)\readme";STARTUPDIR=$(1);"
     121     CREATEOBJECT="REPLACE WPProgram|=("change")|<LUCIDEFOLDER>|EXENAME=e.exe;OBJECTID=<LUCIDEFOLDER_CHANGELOG>;PROGTYPE=PM;PARAMETERS="$(1)\changelog";STARTUPDIR=$(1);"
     122     WRITEPROFILE="USER\Lucide\Path|$(1)"
     123     CLEARPROFILE="USER\Lucide\Path"
    22124     SELECT
    23      >This package contains the Lucide Document Viewer.</PCK>
     125     >=("title").</PCK>
    24126
    25127<PCK INDEX=2
    26128     PACKAGEID="netlabs.org\Lucide\Lucide plugin PDF\0\9\3"
    27      TARGET="$(WARPIN_DEFAULTAPPSPATH)\Lucide"
    28      TITLE="Lucide PDF plugin"
     129     TARGET="$(1)"
     130     TITLE="=("plug_pdf")"
    29131     REQUIRES=1
    30132     SELECT | FIXED
    31      >This package contains a plugin to view PDF documents.</PCK>
     133     >=("plug_pdf")</PCK>
    32134
    33135<PCK INDEX=3
    34136     PACKAGEID="netlabs.org\Lucide\Lucide plugin DJVU\0\9\3"
    35      TARGET="$(WARPIN_DEFAULTAPPSPATH)\Lucide"
    36      TITLE="Lucide DjVu plugin"
     137     TARGET="$(1)"
     138     TITLE="=("plug_djvu")"
    37139     REQUIRES=1
    38140     SELECT | FIXED
    39      >This package contains a plugin to view DJVU files.</PCK>
     141     >=("plug_djvu")</PCK>
    40142
    41143<PCK INDEX=4
    42144     PACKAGEID="netlabs.org\Lucide\Lucide plugin JPEG\0\9\3"
    43      TARGET="$(WARPIN_DEFAULTAPPSPATH)\Lucide"
    44      TITLE="Lucide JPEG plugin"
     145     TARGET="$(1)"
     146     TITLE="=("plug_jpeg")"
    45147     REQUIRES=1
    46148     SELECT | FIXED
    47      >This package contains a plugin to view JPEG images.</PCK>
     149     >=("plug_jpeg")</PCK>
    48150
    49151</HEAD>
     
    78180Features:
    79181<UL>
    80   <LI>PDF, DjVU and JPEG Support
    81   <LI>Drag and Drop Support
     182  <LI>PDF, DjVand JPEG Support
     183  <LI>Draand Drop Support
    82184  <LI>Fast and small
    83185</UL>
Note: See TracChangeset for help on using the changeset viewer.