Changes in / [20:30]


Ignore:
Location:
/projects
Files:
33 added
5 deleted
26 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified /projects/ft2gui/1.x/ft2gui.vrx

    r20 r30  
    11/*:VRX         Main
     2*/
     3/*
     4$Id: The FT2GUI project.
     5Copyright (C) 2007-2010  Herwig Bauernfeind
     6
     7This program is free software; you can redistribute it and/or
     8modify it under the terms of the GNU Lesser General Public
     9License as published by the Free Software Foundation; either
     10version 3.0 of the License, or (at your option) any later version.
     11
     12This program is distributed in the hope that it will be useful,
     13but WITHOUT ANY WARRANTY; without even the implied warranty of
     14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     15Lesser General Public License for more details.
     16
     17You should have received a copy of the GNU Lesser General Public
     18License along with this program; if not, write to the Free Software
     19Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
    220*/
    321/*  Main

  • TabularUnified /projects/ft2gui/2.x/ft2gui2.vrx

    r20 r30  
    11/*:VRX         Main
    22*/
     3/*
     4$Id: The FT2GUI project.
     5Copyright (C) 2007-2010  Herwig Bauernfeind
     6
     7This program is free software; you can redistribute it and/or
     8modify it under the terms of the GNU Lesser General Public
     9License as published by the Free Software Foundation; either
     10version 3.0 of the License, or (at your option) any later version.
     11
     12This program is distributed in the hope that it will be useful,
     13but WITHOUT ANY WARRANTY; without even the implied warranty of
     14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     15Lesser General Public License for more details.
     16
     17You should have received a copy of the GNU Lesser General Public
     18License along with this program; if not, write to the Free Software
     19Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
     20*/
     21
    322/*  Main
    423*/

  • TabularUnified /projects/rxautost/src/announcement

    r20 r30  
    1 RexxAutoStart 1.8.0
     1RexxAutoStart 2.0.0
    22
    33What's new?
    44
    5 - NEW RexxAutoStart is now a PM-program, it was ported to VX-REXX.
    6 - NEW Interrupt startup process at any time.
    7 - NEW Progress bar to see how much has been done.
    8 - NEW 3 cool new sound events configurable with the OS/2 sound object.
    9 - NEW configurable position and color.
    105
    116Where can it be found?
    … …  
    1611- source later  ftp://hobbes.nmsu.edu/pub/os2/util/wps/rxast180src.zip
    1712
    18 What happened since version 1.60?
     13What happened since version 1.9.0?
    1914
    20 After a considerable time, in which I did nothing on RexxAutoStart, I am
    21 back now. Unfortunately, in the meantime, Chuck migrated RexxAutoStart to
    22 GPF/REXX, a development tool, I don't have (and don't intend to get).
    23 
    24 In late October 2000 I restarted the work with VX-REXX from scratch. I did not
    25 complete it, however... Until now. Originally, this version 1.8.0 was based on
    26 the 1.60 codebase. I merged in the changes, Chuck made in 1.61 and 1.62, and
    27 ported some internal features of his 2.00.
    28 
    29 So today, RexxAutoStart has two separate sources, Chuck's and mine. My
    30 intention is to integrate Chuck's advanced features (especially the LAN startup
    31 folder) into my source. In addition, my version 1.8.0 has some features,
    32 Chuck's 2.00 currently has not.
    33 
    34 The main differences are:
    35 
    36 - It is based on the 1.6x codebase, all remaining switches and options are compatible.
    37 - It still supports RXAUTOST environment variable and commandline parameters.
    38 - It can be opened from anywhere, as long RXAUTOST.EXE is in the PATH
    39   (1.6x and Chuck's 2.00 need the complete path in the execution line)
    40 - It runs on OS/2 Warp 3, 4 and 4.5
    41 - It has its own RXAUTOST.INI, which is 100% compatible to Chucks' INI.
    42 - It does *not* support Chuck's LAN startup folder by now.
    43   It will in the next release
    44 - It has the following features Chuck's 2.00 currently has not
    45   (which I consider important for usability)
    46    - a progress bar
    47    - a Quit now! button to interrupt and leave startup processing immediately
    48 - For those, who like to have bells and whistles (like me), version 1.8.0
    49   supports the following features:
    50    - 3 cool sound events, configurable with the OS/2 sound object
    51    - configurable position and background colors
    52    - animated icon

  • TabularUnified /projects/rxautost/src/changes

    r20 r30  
    2929                    - Feature: Change delay between objects on the fly
    3030                    - Feature: Waits for Warp Center (chm)
    31                    
     31version 1.8.9 01-06-2002                   
     32                    - Bugfix:  LAN Startup Folder completed
     33                    - Feature: Wait for startup.cmd completion (chm)
     34
    3235To-Do-List:
    3336                    - RxAutoUt does not work on Warp 3 (forgot error code...)
    34                     - RxAutoSt LAN Startup folder incomplete
    35                     - RxAutoSt Simple login check missing
    3637                    - RxAutoSt last sound sometimes gets cut off
    3738                    - Installer: WPI build half done

  • TabularUnified /projects/rxautost/src/install.vrp

    r20 r30  
    44EXEPath:
    55RunParameters:
    6 RunDirectory: e:\rxautost
    7 VRXWindow: __VREMainWindow,1,1156,2168,5767,8000
    8 VRXWindow: __VREFileListWindow,1,1915,9202,2665,3358
    9 VRXWindow: __VRESectionListWindow,1,4324,8624,2650,3342
    10 VRXWindow: __VREToolsWindow,1,410,-144,4487,1664
    11 VRXWindow: __VREWindListWindow,1,3096,241,2650,3150
     6RunDirectory: c:\rxautost
     7VRXWindow: __VREMainWindow,1,1168,2168,5767,8000
     8VRXWindow: __VREFileListWindow,1,1927,9202,2665,3358
     9VRXWindow: __VRESectionListWindow,1,4336,8624,2650,3342
     10VRXWindow: __VREToolsWindow,0,2204,8351,8004,1669
     11VRXWindow: __VREWindListWindow,1,1072,6890,2650,3150
    1212UserFile: 1
    1313UserWindow: Window1,1

  • TabularUnified /projects/rxautost/src/install.vrx

    r20 r30  
    99Call Rxfuncadd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
    1010Call SysLoadFuncs
     11Call Rxfuncadd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs'
     12Call WPToolsLoadFuncs
    1113
    1214/* Script and icons have to reside in this directory */
    13 basedir=Strip(Directory(),'T','\')
     15basedir = Strip(Directory(),'T','\')
     16basedir = Translate(basedir)
    1417
    1518level = Strip(Linein(basedir || '\rxautost.lvl'))
    … …  
    2124Say ' - create a folder for RexxAutoStart (named RexxAutoStart)'
    2225Say ' - create objects for Setup Utility, Log file and manual'
    23 /*
    24 Say ' - update OS2.INI to point to the installation directory'
    25 */
    2626Say ' - install the new sound events'
    2727Say ' - open the sound object to configure new events'
    28 Say ' - open the manual, chapter installation'
     28Say ' - set the object id of your startup folder to <WP_START>, if no object id is present'
    2929Say
    3030Say 'Enter "go" to continue or anything else to quit.'
    … …  
    3333   Call Halt
    3434
    35 /* Set Creation Disposition */
    36 createcollision = 'Update'
    37 
    3835Call Createobjects
    39 /*
    40 Call SysIni 'user', 'RexxAutostart', 'Install', basedir
    41 */
    4236Call Installsounds
     37Call Check_startup
    4338ok = SysSetObjectData('<RexxAutoStart_Setup>','OPEN=DEFAULT;')
    44 /*
    45 ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
    46 Address cmd 'view RxAutoSt.INF Installation'
    47 */
    4839Exit
    4940
    … …  
    7465   'DEFAULTVIEW=DEFAULT;'||,
    7566   'OBJECTID=<RexxAutoStart_Folder>',,
    76    createcollision )
     67   'U' )
    7768
    7869rc = Createobject( 'WPProgram',,
    … …  
    9081   'DEFAULTVIEW=DEFAULT;'||,
    9182   'OBJECTID=<RexxAutoStart_Setup>',,
    92    createcollision )
     83   'R' )
    9384
    9485rc = Createobject( 'WPProgram',,
    … …  
    9687   '<RexxAutoStart_Folder>',,
    9788   'EXENAME='basedir'\RXAUTOST.EXE;'||,
    98    'STARTUPDIR='basedir'\;'||,
     89   'STARTUPDIR=;'||,
     90   'PARAMETERS='basedir'\RXAUTOST.EXE;'||,
    9991   'PROGTYPE=PM;'||,
    10092   'ICONFILE=' || basedir || '\rxautost.ico;'||,
    … …  
    10698   'DEFAULTVIEW=DEFAULT;'||,
    10799   'OBJECTID=<RexxAutoStart>',,
    108    createcollision )
     100   'R' )
    109101
    110102rc = Createobject( 'WPProgram',,
    … …  
    120112   'DEFAULTVIEW=DEFAULT;'||,
    121113   'OBJECTID=<RexxAutoStart_Manual>',,
    122    createcollision )
     114   'R' )
    123115
    124116rc = Createobject( 'WPProgram',,
    … …  
    134126   'DEFAULTVIEW=DEFAULT;'||,
    135127   'OBJECTID=<RexxAutoStart_Logfile>',,
    136    createcollision )
     128   'R' )
    137129
    138130rc = Createobject( 'WPFolder',,
    … …  
    150142   'DEFAULTVIEW=DEFAULT;'||,
    151143   'OBJECTID=<RexxAutoStart_LAN_Folder>',,
    152    createcollision )
     144   'U' )
    153145
    154146Return
    … …  
    173165
    174166Return
     167
     168Check_startup:
     169If WPToolsQueryObject('<WP_START>') Then
     170   Return
     171Say 'No startup folder was identified with an object id of <WP_START>.'
     172If SysFileTree(SysBootDrive() || '\startup', 'test.', 'dso') = 0 Then
     173   Do i = 1 To test.0
     174      If WPToolsQueryObject(test.i, 'szClass', , 'szSetupString', 'szLocation') Then
     175         Do
     176            If szclass <> 'WPStartup' Then
     177               Iterate i
     178            If Pos('OBJECTID=', szsetupstring) <> 0 Then
     179               Iterate i
     180            Say 'Startup folder' test.i 'found in' szlocation || '.'
     181            Say 'Enter "OK" to make this the default startup folder.'
     182            Pull ans .
     183            If ans = 'OK' Then
     184               Do
     185                  Call WPToolsSetObjectData test.i, 'OBJECTID=<WP_START>;'
     186                  Return
     187               End
     188         End
     189   End
     190Return
    175191/*:VRX         Halt
    176192*/

  • TabularUnified /projects/rxautost/src/rxautost.lvl

    r20 r30  
    1 1.8.8 build 12.04.2002
     12.0.0

  • TabularUnified /projects/rxautost/src/rxautost.vrp

    r20 r30  
    33MacroPath: VRM:E:\Dev\REXX\VXREXX\Projects\RxAutoSt.2
    44EXEPath:
    5 RunParameters:
    6 RunDirectory: e:\rxautost
    7 VRXWindow: __VREMainWindow,1,527,1867,979,4291
    8 VRXWindow: __VREFileListWindow,1,2650,8974,2228,3327
    9 VRXWindow: __VRESectionListWindow,1,4863,8974,4306,3342
    10 VRXWindow: __VREToolsWindow,1,527,60,4999,1693
    11 VRXWindow: __VREWindListWindow,1,768,8974,1897,3327
     5RunParameters: c:\rxautost\rxautost.exe
     6RunDirectory:
     7VRXWindow: __VREMainWindow,1,530,1879,979,4291
     8VRXWindow: __VREFileListWindow,1,1289,8913,2665,3358
     9VRXWindow: __VRESectionListWindow,1,4866,9010,4306,3342
     10VRXWindow: __VREToolsWindow,1,530,48,8002,1659
     11VRXWindow: __VREWindListWindow,1,434,6601,2650,3150
    1212UserFile: 1
    1313UserWindow: RexxAutoStartMain,1

  • TabularUnified /projects/rxautost/src/rxautost.vrx

    r20 r30  
    118118                     list.0 = y
    119119                  End
    120                If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then
    121                   Do
    122                      Parse Value '.' szSetupString With . 'OBJECTID=' xstartupname ';' .
    123                      xstartupname = Strip(xstartupname)
    124                   End
     120                  If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then
     121                     Do
     122                        Parse Value '.' szsetupstring With . 'OBJECTID=' xstartupname ';' .
     123                        xstartupname = Strip(xstartupname)
     124                     End
    125125               End
    126126         End
    … …  
    144144         If i = xstart_num Then
    145145            Call _sayout "Starting objects in startup folder" xstartupname".", 1
     146         If list.i = '<WP_WARPCENTER>' & xc_wait Then
     147            Iterate i
    146148         If list.i = '<XWP_XCENTER>' & xc_wait Then
    147149            Iterate i
    … …  
    149151            Do
    150152               title = _objtitle(sztitle)
    151                /* Call _sayout "Adding object '"title"' of class "szclass'.', 2 */
    152                /* try to open object, tell us what happened */
    153153               success = 0
    154154               Do x = 1 To retries Until success
    … …  
    158158               End
    159159               If success Then
    160                   open_msg = '['title'] has opened after' x 'attempt(s) of' retries || '.'
     160                  open_msg = title 'has opened after' x 'attempt(s) of' retries || '.'
    161161               Else
    162                   open_msg = '['title'] failed to open after' retries 'attempts.'
     162                  open_msg = title 'failed to open after' retries 'attempts.'
    163163               list_open = list_open + 1
    164164               ok = VRSet("SL_Progress","Percentile",Trunc(list_open * 100 / list_total))
    … …  
    197197Call _sayout delay_wait' seconds have passed. Continuing...', 2
    198198Return 0
     199/*:VRX         _doneobj
     200*/
     201_doneobj:
     202Procedure Expose verbose log_out log_file sub_trace sound sleepsec
     203/* wait for object to complete */
     204save_trace = Trace(sub_trace)
     205Parse Arg title, sleep, od_tries
     206rc_task = 1
     207attempts = 0
     208If \Rxfuncquery('SysQuerySwitchList') Then
     209   Do i = 1 To od_tries While rc_task
     210      attempts = attempts + 1
     211      Call SysQuerySwitchList 'tasks.', 'IGN'
     212      Do j = 1 To tasks.0 Until rc_task
     213         rc_task = (Pos(title, tasks.j) <> 0)
     214      End
     215      If rc_task Then
     216         Do
     217            Call _sleepanimated sleep
     218            Call Checkforevent
     219         End
     220   End
     221Else
     222   Call _sayout 'SysQuerySwitchList not available, returning...', 2
     223Trace (save_trace)
     224Return rc_task attempts
     225
    199226/*:VRX         _GetEventSound
    200227*/
    … …  
    256283Return 0
    257284
    258 /*:VRX         _INIRead
     285/*:VRX         _iniread
    259286*/
    260287_iniread:
    … …  
    274301
    275302/* some parameter defaults */
    276 wps_wait_default = VRGetIni( "workplace_shell", "wps_wait", our_ini, 'Noclose')
    277 If wps_wait_default = '' Then
    278    wps_wait_default = 1
    279 sc_wait_default = VRGetIni( "workplace_shell", "sc_wait", our_ini, 'Noclose')
    280 If sc_wait_default = '' Then
    281    sc_wait_default = Pos('WARPCENTER', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0
    282 tb_wait_default = VRGetIni( "workplace_shell", "tb_wait", our_ini, 'Noclose')
    283 If tb_wait_default = '' Then
    284    tb_wait_default = Pos('TOOLBAR', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0
    285 xc_wait_default = VRGetIni( "workplace_shell", "xc_wait", our_ini, 'Noclose')
    286 If xc_wait_default = '' Then
    287    xc_wait_default = 0
    288 delay_wait_default = VRGetIni( "workplace_shell", "delay_wait", our_ini, 'Noclose')
    289 If delay_wait_default = '' Then
    290    delay_wait_default = 0
    291 od_wait_default = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose')
    292 If od_wait_default = '' Then
    293    od_wait_default = 1
    294 od_cc_default = VRGetIni( "object_desktop", "od_cc", our_ini, 'Noclose')
    295 If od_cc_default = '' Then
    296    od_cc_default = 0
    297 od_tlp_default = VRGetIni( "object_desktop", "od_tlp", our_ini, 'Noclose')
    298 If od_tlp_default = '' Then
    299    od_tlp_default = 0
    300 od_tries_default = VRGetIni( "object_desktop", "od_tries", our_ini, 'Noclose')
    301 If od_tries_default = '' Then
    302    od_tries_default = 30
    303 
    304 startupfolder_default = VRGetIni( "folders", "startupfolder", our_ini, 'Noclose')
    305 If startupfolder_default = '' Then
    306    startupfolder_default = '<WP_START>'
    307 xstartupfolder_default = Strip(VRGetIni( "folders", "XStartupFolders", our_ini, 'NoClose'), 't', '00'x)
    308 If xstartupfolder_default <> '' Then
    309    Do
    310       If WPToolsQueryObject('#' || xstartupfolder_default, , , 'szSetupString') Then
    311          Do
    312             Parse Value '.' szSetupString With . 'OBJECTID=' szObjectId ';' .
    313             xstartupname_default = Strip(szObjectId)
     303wps_wait = VRGetIni( "workplace_shell", "wps_wait", our_ini, 'Noclose')
     304If \Datatype(wps_wait, 'B') Then
     305   wps_wait = 1
     306sc_test = Check_startup('WARPCENTER', '<WP_WARPCENTER>', , '<WP_START>')
     307sc_wait = VRGetIni( "workplace_shell", "sc_wait", our_ini, 'Noclose')
     308If \Datatype(sc_wait, 'B') Then
     309   sc_wait = sc_test
     310sc_wait = (sc_wait & sc_test)
     311sc_test = Check_startup(, '<WP_WARPCENTER>', , '<WP_START>')
     312sc_open = VRGetIni( "workplace_shell", "sc_open", our_ini, 'Noclose')
     313If \Datatype(sc_open, 'B') Then
     314   sc_open = sc_test
     315sc_open = (sc_open & sc_test)
     316tb_test = Check_startup('TOOLBAR', '<WP_LAUNCHPAD>', , '<WP_START>')
     317tb_wait = VRGetIni( "workplace_shell", "tb_wait", our_ini, 'Noclose')
     318If \Datatype(tb_wait, 'B') Then
     319   tb_wait = tb_test
     320tb_wait = (tb_wait & tb_test)
     321tb_test = Check_startup(, '<WP_LAUNCHPAD>', , '<WP_START>')
     322tb_open = VRGetIni( "workplace_shell", "tb_open", our_ini, 'Noclose')
     323If \Datatype(tb_open, 'B') Then
     324   tb_open = tb_test
     325tb_open = (tb_open & tb_test)
     326xc_test = Check_startup(,'<XWP_XCENTER>', 'XCenter', '<WP_START>')
     327ec_wait = VRGetIni( "workplace_shell", "ec_wait", our_ini, 'Noclose')
     328If ec_wait <> '' Then
     329   Do
     330      ok = VRDelIni( "workplace_shell", "ec_wait", our_ini, 'Noclose') Then
     331      xc_wait = (ec_wait & xc_test)
     332      ok = VRSetIni( "workplace_shell", "xc_wait", xc_wait, our_ini, 'Noclose' )
     333   End
     334xc_wait = VRGetIni( "workplace_shell", "xc_wait", our_ini, 'Noclose')
     335If \Datatype(xc_wait, 'B') Then
     336   xc_wait = xc_test
     337xc_wait = (xc_wait & xc_test)
     338xc_open = VRGetIni( "workplace_shell", "xc_open", our_ini, 'Noclose')
     339If \Datatype(xc_open, 'B') Then
     340   xc_open = xc_test
     341xc_open = (xc_open & xc_test)
     342startup_wait = VRGetIni( "workplace_shell", "startup_wait", our_ini, 'Noclose')
     343If startup_wait <> 0 & startup_wait <> 1 Then
     344   startup_wait = 0
     345delay_wait = VRGetIni( "workplace_shell", "delay_wait", our_ini, 'Noclose')
     346If \Datatype(delay_wait, 'B') Then
     347   delay_wait = 1
     348od_wait = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose')
     349If \Datatype(od_wait, 'B') Then
     350   od_wait = 0
     351od_cc = VRGetIni( "object_desktop", "od_cc", our_ini, 'Noclose')
     352If \Datatype(od_cc, 'B') Then
     353   od_cc = 0
     354od_tlp = VRGetIni( "object_desktop", "od_tlp", our_ini, 'Noclose')
     355If \Datatype(od_tlp, 'B') Then
     356   od_tlp = 0
     357od_tries = VRGetIni( "object_desktop", "od_tries", our_ini, 'Noclose')
     358If \Datatype(od_tries, 'N') Then
     359   od_tries = 30
     360
     361startupfolder = VRGetIni( "folders", "startupfolder", our_ini, 'Noclose')
     362If startupfolder = '' Then
     363   startupfolder = '<WP_START>'
     364xstartupfolder = Strip(VRGetIni( "folders", "XStartupFolders", our_ini, 'NoClose'), 't', '00'x)
     365If xstartupfolder <> '' Then
     366   Do
     367      If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then
     368         Do
     369            Parse Value '.' szsetupstring With . 'OBJECTID=' szobjectid ';' .
     370            xstartupname = Strip(szobjectid)
    314371         End
    315372      Else
    316          xstartupname_default = '<XWP_STARTUP>'
    317    End
    318 Else
    319    xstartupname_default = '<XWP_STARTUP>'
    320 enablexstart_default = VRGetIni( "folders", "enablexstart", our_ini, 'NoClose')
    321 If enablexstart_default = '' Then
    322    enablexstart_default = 0
    323 sleepsec_default = VRGetIni( "objects", "sleepsec", our_ini, 'Noclose')
    324 If sleepsec_default = '' Then
    325    sleepsec_default = 2
    326 retries_default = VRGetIni( "objects", "retries", our_ini, 'Noclose')
    327 If retries_default = '' Then
    328    retries_default = 2
    329 enablelanstart_default = VRGetIni( "folders", "enablelanstart", our_ini, 'NoClose')
    330 If enablelanstart_default = '' Then
    331    enablelanstart_default = 0
     373         xstartupname = '<XWP_STARTUP>'
     374   End
     375Else
     376   xstartupname = '<XWP_STARTUP>'
     377enablexstart = VRGetIni( "folders", "enablexstart", our_ini, 'NoClose')
     378If \Datatype(enablexstart, 'B') Then
     379   enablexstart = 0
     380retries = VRGetIni( "objects", "retries", our_ini, 'Noclose')
     381If \Datatype(retries, 'W') Then
     382   retries = 2
     383sleepsec = VRGetIni( "objects", "sleepsec", our_ini, 'Noclose')
     384If \Datatype(sleepsec, 'N') Then
     385   sleepsec = 2
     386enablelanstart = VRGetIni( "folders", "enablelanstart", our_ini, 'NoClose')
     387If \Datatype(enablelanstart, 'B') Then
     388   enablelanstart = 0
    332389simplelogononly = VRGetIni( "folders", "simplelogononly", our_ini, 'NoClose')
    333 If simplelogononly = '' Then
     390If \Datatype(simplelogononly, 'B') Then
    334391   simplelogononly = 0
    335 If \enablelanstart_default Then
     392If \enablelanstart Then
    336393   simplelogononly = 0
    337 lanstartupfolder_default = VRGetIni( "folders", "lanstartupfolder", our_ini, 'NoClose')
    338 If lanstartupfolder_default = '' Then
    339    lanstartupfolder_default = '<RexxAutoStart_LAN_Folder>'
    340 ls_sleepsec_default = VRGetIni( "objects", "ls_sleepsec", our_ini, 'Noclose')
    341 If ls_sleepsec_default = '' Then
    342    ls_sleepsec_default = 20
    343 ls_retries_default = VRGetIni( "objects", "ls_retries", our_ini, 'Noclose')
    344 If ls_retries_default = '' Then
    345    ls_retries_default = 15
     394lanstartupfolder = VRGetIni( "folders", "lanstartupfolder", our_ini, 'NoClose')
     395If lanstartupfolder = '' Then
     396   lanstartupfolder = '<RexxAutoStart_LAN_Folder>'
     397ls_sleepsec = VRGetIni( "objects", "ls_sleepsec", our_ini, 'Noclose')
     398If \Datatype(ls_sleepsec, 'N') Then
     399   ls_sleepsec = 3
     400ls_retries = VRGetIni( "objects", "ls_retries", our_ini, 'Noclose')
     401If \Datatype(ls_retries, 'W') Then
     402   ls_retries = 60
    346403
    347404log_out = VRGetIni( "debug", "log_out", our_ini, 'Noclose')
    348 If log_out = '' Then
    349    log_out = 0
     405If \Datatype(log_out, 'B') Then
     406   log_out = 1
    350407verbose = VRGetIni( "debug", "verbose", our_ini, 'Noclose' )
    351 If verbose = '' Then
     408If \Datatype(verbose, 'B') Then
    352409   verbose = 1
    353410/* Sound */
    354411sound = VRGetIni( "RexxAutoStart", "Sound", our_ini,'NoClose' )
    355 If sound = '' Then
     412If \Datatype(sound, 'B') Then
    356413   sound = VRGet("CB_Sound","set")
    357414ok = VRSet("CB_Sound","set",sound)
    358415sound_open = VRGetIni( "sound", "sound_open", our_ini,'NoClose' )
    359 If sound_open = '' Then
     416If \Datatype(sound_open, 'W') Then
    360417   sound_open = '683'
    361418sound_done = VRGetIni( "sound", "sound_done", our_ini,'NoClose' )
    362 If sound_done = '' Then
     419If \Datatype(sound_done, 'W') Then
    363420   sound_done = '681'
    364421sound_abort = VRGetIni( "sound", "sound_abort", our_ini,'NoClose' )
    365 If sound_abort = '' Then
     422If \Datatype(sound_abort, 'W') Then
    366423   sound_abort = '682'
    367424sound_start = VRGetIni( "sound", "sound_start", our_ini )
    368 If sound_start = '' Then
     425If \Datatype(sound_start, 'W') Then
    369426   sound_start = '684'
    370427
    371428Return
    372 
    373429/*:VRX         _Initialize
    374430*/
    … …  
    380436If Rxfuncquery(sysversion) = 0 Then
    381437   Do
    382       Parse Value(SysVersion()) With op_sys op_lvl
     438      Parse Value SysVersion() With op_sys op_lvl
    383439   End
    384440Else
    … …  
    400456wseb = (wseb_uni | wseb_smp) & (os_base <> 'XR04501')
    401457
     458/* needs to be defined here - otherwise we crash if we can't locate the .exe */
     459verbose = 0
     460sound = 0
     461log_out = 0
     462sleepsec = 0
    402463/* locate the executable */
    403464exe_file = Stream(startup_path || '\rxautost.exe', 'c', 'query exists')
    … …  
    420481log_file = base_dir || '\RxAutoSt.LOG'
    421482
    422 /* Parameter treatment:
    423    1. Read INI file
    424    2. Read RXAUTOST enviroment variable (overrides 1, should not be used)
    425    3. Read commandline parameters (override 1 and 2, optional)
    426  */
    427 
    428483/* Read the INI file */
    429484Call _iniread
    430 
    431 /* let commandline parameters override config.sys parameters */
    432 orgparms = Strip(orgparms Value('rxautost', , 'os2environment'))
    433 
    434 /* we need this for /F switch to preserve case of ObjectIDs */
    435 parms = Translate(orgparms)
    436 /* get some initial parameters */
    437 If (Pos('/V',parms) <> 0) Then
    438    verbose = 1                                      /* verbose output */
    439 If (Pos('/L',parms) <> 0) Then
    440    log_out = 1                                             /* logging */
    441 testing = (Pos('/T',parms) <> 0)       /* undocumented test parameter */
    442 If testing Then
    443    Do
    444       verbose = 1
    445       log_out = 1
    446    End
    447 If (Pos('/WPS',parms) <> 0) Then
    448    wps_wait = 1                            /* wait for WPS population */
    449 Else
    450    wps_wait = wps_wait_default
    451 If (Pos('/SC',parms) <> 0) Then
    452    sc_wait = 1                                /* wait for Warp Center */
    453 Else
    454    sc_wait = sc_wait_default
    455 If (Pos('/TB',parms) <> 0) Then
    456    tb_wait = 1                                    /* wait for Toolbar */
    457 Else
    458    tb_wait = tb_wait_default
    459 
    460 xc_wait = xc_wait_default
    461 
    462 If (Pos('/D',parms) <> 0) Then
    463    Do
    464       Parse Value('.' parms) With . '/D:' delay_wait '/'./* delay switch */
    465       delay_wait = Strip(delay_wait)
    466       If delay_wait = '' | \Datatype(delay_wait, 'W') Then
    467          delay_wait = delay_wait_default
    468    End
    469 Else
    470    delay_wait = delay_wait_default
    471 
    472 /* Object Desktop information */
    473 odtest = SysIni('USER','WPTS','TSMasterSetup:StartupFlags')
    474 objdesk = (odtest <> 'ERROR:')            /* object desktop installed */
    475 If objdesk Then             /* determine which facilities to wait for */
    476    Do
    477       If Pos('/OD',parms) = 0 Then
    478          od_wait = od_wait_default
    479       Else
    480          od_wait = 1                       /* wait for Object Desktop */
    481       /* no good for OD 1.5
    482               odtest = Left(odtest, Length(odtest) - 1)
    483               od_cc = (odtest >= C2x('28'x))
    484               od_tlp = (odtest >= C2x('28'x))
    485               od_tlp = (odtest >= C2x('24'x))
    486               od_cc = (odtest >= C2x('20'x))
    487       */
    488       If Pos('/ODC', parms) = 0 Then
    489          od_cc = od_cc_default
    490       Else
    491          od_cc = 1                         /* wait for Control Center */
    492       If Pos('/ODT', parms) = 0 Then
    493          od_tlp = od_tlp_default
    494       Else
    495          od_tlp = od_tlp_default            /* wait for Tab LaunchPad */
    496    End
    497 Else
    498    od_wait = 0
    499 
    500 /* determine number of checks for desktop tasks */
    501 Parse Value('.' parms) With . '/OD:' od_tries '/'.
    502 od_tries = Strip(od_tries)
    503 If od_tries = '' | \Datatype(od_tries, 'W') Then
    504    od_tries = od_tries_default
    505 
    506 
    507 /* /P switch (pause between object) */
    508 Parse Value('.' parms) With . '/P:' sleepsec '/' .
    509 sleepsec = Strip(sleepsec)
    510 If sleepsec = '' Then
    511    sleepsec = sleepsec_default
    512485
    513486/*  update GUI */
    … …  
    522495   ok = VRDeleteFile( log_file )
    523496
    524 
    525497/* Call Stream log_file, 'c', 'open write' */
    526 
    527 /* /F switch (make any folder your startup folder) */
    528 f_pos = Pos('/F:', parms)
    529 If f_pos <> 0 Then
    530    Do
    531       Parse Value('.' orgparms) With . + (f_pos) + 4 startupfolder '/' .
    532       startupfolder = Strip(Strip(Strip(startupfolder), , '"'), , "'")
    533    End
    534 Else
    535    startupfolder = startupfolder_default
    536 
    537 xstartupname = xstartupname_default
    538 enablexstart = enablexstart_default
    539 
    540 /* /R switch (open object retries) */
    541 Parse Value('.' parms) With . '/R:' retries '/' .
    542 retries = Strip(retries)
    543 If retries = '' Then
    544    retries = retries_default
    545 
    546 /* Do we need help? */
    547 If Pos('/?', cmdparms) <> 0 Then                   /* | cmdparms = '' */
    548    do_help = 1
    549 Else
    550    do_help = 0
    551 
    552 /* set miscellaneous options */
    553 
    554 /* set lanstartfolder settings - this could be simpler, done only as all the others are the same */
    555 lanstartupfolder = lanstartupfolder_default
    556 enablelanstart = enablelanstart_default
    557498
    558499/* load other function libraries */
    559500Call _loadotherfuncs
    560 
    561 ls_sleepsec = ls_sleepsec_default
    562 ls_retries = ls_retries_default
    563501
    564502/* are we going to execute RxAutoSt? */
    565503autoexec = 1                               /* (Pos('/X', parms) <> 0) */
    566504Return 1
    567 
    568505/*:VRX         _INIWrite
    569506*/
    570507_iniwrite:
    571 if our_ini = 'OUR_INI' then our_ini = base_dir || '\RxAutoSt.INI'
     508If our_ini = 'OUR_INI' Then
     509   our_ini = base_dir || '\RxAutoSt.INI'
    572510ok = VRSet("RexxAutoStartMain","StatusText","Saving...")
    573511ok = VRSetIni( "objects", "sleepsec", sleepsec, our_ini, 'Noclose')
    … …  
    575513ok = VRSetIni( "RexxAutoStart", "Top", VRGet("RexxAutoStartMain","Top"), our_ini, 'NoClose' )
    576514ok = VRSetIni( "RexxAutoStart", "BackColor", VRGet("RexxAutoStartMain","BackColor"), our_ini, 'NoClose' )
    577 ok = VRSetIni( "RexxAutoStart", "Sound", sound, our_ini, 'NoClose' )
    578 ok = VRSetIni( "folders", "simplelogononly", simplelogononly, our_ini )
     515ok = VRSetIni( "RexxAutoStart", "Sound", sound, our_ini)
    579516Return
    580517
    … …  
    590527_lanwaitforconnection:
    591528/* LAN connection wait logic */
    592 ls_info = 0
    593 ls_logged = 0
    594 Call _sayout 'Waiting for LAN connection.', 1
    595 Do ls_retries While \ls_logged
    596    Call Checkforevent
     529requester_started = 0
     530no_requester = 2138
     531server_started = 0
     532no_server = 2114
     533no_domain = 2453
     534Call _sayout 'Waiting for network startup.', 1
     535ok = VRSet("SL_Progress","Percentile", 0)
     536/* wait for the requester to start */
     537ls_tries = 0
     538Do ls_retries While \requester_started
     539   ls_tries = ls_tries + 1
    597540   Parse Value LsMyInfo() With lanrc my_uid admin? my_machine my_domain my_domain_controller .
     541   If lanrc = no_requester Then
     542      Do
     543         Call _sayout 'Waiting for network REQUESTER to start (' || ls_tries || ').', 2
     544         Call SysSleep ls_sleepsec
     545         Call Checkforevent
     546      End
    598547   If lanrc = 0 | lanrc = 2453 Then
    599548      Do
    600          If simplelogononly Then
    601             Do
    602                If my_uid \= '?' Then
     549         Call _sayout 'Network REQUESTER has started.', 2
     550         requester_started = 1
     551      End
     552End
     553If \requester_started Then
     554   Do
     555      Call _sayout 'Wait for network REQUESTER startup timed out.', 2
     556      Return 0
     557   End
     558
     559/* wait for server (peer) to start */
     560ls_tries = 0
     561If requester_started Then
     562   Do ls_retries While \server_started
     563      ls_tries = ls_tries + 1
     564      srvrc = NetAdmin('test.', my_machine, 'net start')
     565      If srvrc = no_server Then
     566         Do
     567            Call _sayout 'Waiting for network SERVER (PEER) to start (' || ls_tries || ').', 2
     568            Call SysSleep ls_sleepsec
     569            Call Checkforevent
     570         End
     571      If srvrc = 0 Then
     572         Do
     573            Call _sayout 'Network SERVER (PEER) has started.', 2
     574            my_services = Space(test.2)
     575            server_started = 1
     576         End
     577   End
     578If \server_started Then
     579   Do
     580      Call _sayout 'Wait for network SERVER (PEER) startup timed out.', 2
     581      enablelanstart = 0
     582   End
     583If \enablelanstart Then
     584   Return 0
     585
     586If my_domain = '?' Then
     587   Parse Value LsDomName() With . my_domain .
     588
     589/* wait for logon */
     590If (requester_started | server_started) ,
     591   & simplelogononly Then
     592   Do
     593      ls_logged = 0
     594      ls_tries = 0
     595      Call _sayout 'Waiting for network logon.', 1
     596      Parse Value LsMyInfo() With lanrc my_uid admin? my_machine my_domain my_domain_controller .
     597      If lanrc = 0 | lanrc = no_domain Then
     598         Do ls_retries While \ls_logged
     599            Select
     600               When my_uid <> '?' & my_domain_controller <> '?' Then
    603601                  Do
    604                      Call _sayout my_uid 'is logged on to' Strip(my_machine, 'l', '\'), 2
    605                      ls_info = 1
     602                     Call _sayout my_uid 'is logged on to domain controller' my_domain_controller || '.', 2
    606603                     ls_logged = 1
    607604                  End
    608             End
    609          Else
    610             Do
    611                If my_domain_controller \= '?' Then
     605               When my_uid <> '?' & my_domain_controller = '?' Then
    612606                  Do
    613                      lanrc = LsLogonUser('lan_users', my_domain_controller)
    614                      If lanrc = 0 & lan_users.0 > 0 Then/* someone is logged on */
    615                         Do i = 1 To lan_users.0/* check for this user */
    616                            If my_uid = lan_users.i.0uid Then/* logged on */
    617                               Do
    618                                  Call _sayout my_uid 'is logged on to' Strip(my_domain_controller, 'l', '\'), 2
    619                                  ls_info = 1
    620                                  ls_logged = 1
    621                               End
     607                     Call _sayout my_uid 'is logged on to local server' my_machine || '.', 2
     608                     ls_logged = 1
     609                  End
     610               Otherwise
     611                  Do
     612                     Call _sayout 'Waiting for logon (' || ls_tries || ').', 2
     613                     Call SysSleep ls_sleepsec
     614                     Call Checkforevent
     615                     ls_tries = ls_tries + 1
     616                     Parse Value LsMyInfo() With lanrc my_uid admin? my_machine my_domain my_domain_controller .
     617                     If lanrc = 0 | lanrc = no_domain Then
     618                        Iterate
     619                     Else
     620                        Do
     621                           Call _sayout 'The logon status query failed with a return code of' lanrc || '.', 2
     622                           Return 0
    622623                        End
    623624                  End
    624                Else
    625                   Do
    626                      Call _sayout 'The domain controller for domain' my_domain 'cannot be found.', 2
    627                      ls_logged = 1
    628                   End
    629625            End
    630          If \ls_logged Then
    631             Do
    632                Call _sayout 'Waiting for logon.', 2
    633                Call SysSleep ls_sleepsec
    634             End
    635       End
    636    Else
    637       Do
    638          If lanrc = 2138 Then
    639             Call _sayout 'Requester not started.', 2
    640          Call SysSleep ls_sleepsec
    641       End
    642 End
    643 If \ls_logged Then
    644    Call _sayout 'Wait for LAN connection timed out.', 2
    645 Return ls_info                             /* 1 = success 0 = failure */
    646 
     626         End
     627      Else
     628         Do
     629            Call _sayout 'The logon status query failed with a return code of' lanrc || '.', 2
     630            Return 0
     631         End
     632      If \ls_logged Then
     633         Do
     634            Call _sayout 'Wait for network logon timed out.', 2
     635            Return 0
     636         End
     637   End
     638Return 1
    647639/*:VRX         _LoadOtherFuncs
    648640*/
    … …  
    666658Return
    667659
     660/*:VRX         _objdone
     661*/
     662_objdone:
     663Parse Arg wait_title
     664Call _sayout 'Waiting for' wait_title 'to complete.', 1
     665Call Checkforevent
     666success = 0
     667Parse Value(_doneobj(wait_title, sleepsec, od_tries)) With success tries .
     668If \success Then
     669   open_msg = wait_title 'has completed after' tries 'check(s).'
     670Else
     671   open_msg = wait_title 'has not completed after' tries 'check(s).'
     672Call _sayout open_msg, 2
     673Return 0
    668674/*:VRX         _objTitle
    669675*/
    … …  
    679685*/
    680686_objwait:
    681 Say '_objwait entered'
    682687Parse Arg wait_title
    683688Call _sayout 'Waiting for' wait_title 'to start.', 1
    … …  
    686691Parse Value(_waitobj(wait_title, sleepsec, od_tries)) With success tries .
    687692If success Then
    688    open_msg = '[' || wait_title || '] has opened after' tries 'check(s).'
    689 Else
    690    open_msg = '[' || wait_title || '] has not opened after' tries 'check(s).'
     693   open_msg = wait_title 'has opened after' tries 'check(s).'
     694Else
     695   open_msg = wait_title 'has not opened after' tries 'check(s).'
    691696Call _sayout open_msg, 2
    692 Say '_objwait done'
    693697Return 0
    694698
    … …  
    782786If sound Then
    783787   Do
    784       /*
    785               SoundFile = _GetEventSound(SoundEventCode)
    786       */
    787       soundfileentry = VRGetIni( "MMPM2_AlarmSounds", soundeventcode, SysBootDrive()"\MMOS2\MMPM.INI" )
     788      soundfileentry = VRGetIni( "MMPM2_AlarmSounds", soundeventcode, Getbootdrive()"\MMOS2\MMPM.INI" )
    788789      Say 'SoundFileEntry  = !!!'soundfileentry'!!!'
    789790      If soundfileentry \= '' Then
    … …  
    795796      Say "SoundFile = >>"soundfile"<<"
    796797      If VRFileExists( soundfile ) Then
    797          Do
    798             Call _playsound soundfile
    799             /*
    800                         threadID = VRMethod( "Application", "StartThread", "PlaySnd", SoundFile )
    801                         say ThreadID
    802             */
    803          End
     798         Call _playsound soundfile
    804799      Else
    805800         Say soundfile 'not found'
    … …  
    883878_waitobj: Procedure Expose verbose log_out log_file sub_trace sound sleepsec
    884879/* wait for object to start */
    885 Say '_WaitObj entered'
    886880save_trace = Trace(sub_trace)
    887881Parse Arg title, sleep, od_tries
    … …  
    891885   Do i = 1 To od_tries Until rc_task
    892886      attempts = attempts + 1
    893       Call _sleepanimated sleep
    894       Call Checkforevent
    895887      Call SysQuerySwitchList 'tasks.', 'IGN'
    896888      Do j = 1 To tasks.0 Until rc_task
    897889         rc_task = (Pos(title, tasks.j) <> 0)
    898890      End
     891      If \rc_task Then
     892         Do
     893            Call _sleepanimated sleep
     894            Call Checkforevent
     895         End
    899896   End
    900897Else
    901898   Call _sayout 'SysQuerySwitchList not available, returning...', 2
    902899Trace (save_trace)
    903 Say '_WaitObj done'
    904900Return rc_task attempts
    905901
    … …  
    935931Return
    936932
     933/*:VRX         Check_startup
     934*/
     935Check_startup:
     936Procedure
     937Parse Arg auto, obj, class, startup, .
     938If auto <> '' Then
     939   test_auto = (Pos(Translate(auto), Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) = 1)
     940Else
     941   test_auto = 1
     942test_obj = WPToolsQueryObject(obj)
     943test_class = 0
     944test_startup = 0
     945If test_auto & test_obj Then
     946   Do
     947      Call SysQueryClassList 'classes.'
     948      Do x = 1 To classes.0
     949         If Abbrev(Translate(classes.x), Translate(class)),
     950            | class = '' Then
     951            Do
     952               test_class = 1
     953               If WPToolsFolderContent(startup, 'objects.') Then
     954               Do y = 1 To objects.0
     955                  If Abbrev(Translate(objects.y), Translate(obj)) Then
     956                     Do
     957                        test_startup = 1
     958                        Leave y
     959                     End
     960                  If WPToolsQueryObject(objects.y, , , 'szSetup') Then
     961                     Do
     962                        Parse Value('.' szSetup) With . 'SHADOWID=' shadow ';'
     963                        If Abbrev(Translate(Strip(shadow)), Translate(obj)) Then
     964                           Do
     965                              test_startup = 1
     966                              Leave y
     967                           End
     968                     End
     969               End
     970               Drop objects.
     971               Leave x
     972            End
     973      End
     974      Drop classes.
     975   End
     976Return (test_auto & test_obj & test_class & \test_startup)
    937977/*:VRX         CheckForEvent
    938978*/
    … …  
    951991*/
    952992Fini:
    953 Call Playpic_close
    954993window = VRWindow()
    955994Call VRSet window, "Visible", 0
    … …  
    9781017
    9791018bootdrive = Getbootdrive()
    980 Parse Value(_rxfindlines('rxautost.exe', bootdrive || '\startup.cmd')) With ,
    981    startup_line_no startup_line '|'
    982 If startup_line_no <> 0 Then
    983    Do
    984       exe_pos = Pos(':\', startup_line) - 1
    985       Parse Value Substr(startup_line, exe_pos) With startup_cmd .
    986       startup_cmd = Strip(Strip(Strip(startup_cmd, 't', "'"), 't', '"'))
    987       startup_drive = VRParseFileName(startup_cmd, "D")
    988       olddrive = VRChDrive( startup_drive )
    989       startup_path = VRParseFileName(startup_cmd, "DP")
    990       ok = VRChDir( startup_path )
    991    End
    992 Else
    993    Do
    994       msg.title = 'Error'
    995       msg.type = 'E'
    996       msg.text = 'Unable to determine path to rxautost.exe'
    997       Call _msgok
    998       Call Pb_quitnow_click
    999    End
     1019startup_cmd = InitArgs.1
     1020startup_drive = VRParseFileName(startup_cmd, "D")
     1021startup_path = VRParseFileName(startup_cmd, "DP")
     1022ok = VRChDrive( startup_drive )
     1023ok = VRChDir( startup_path )
    10001024
    10011025Call Rxfuncadd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs'
    … …  
    10031027
    10041028window = VRWindow()
    1005 /*
    1006     call VRMethod window, "CenterWindow"
    1007     call VRSet window, "Visible", 1
    1008 */
    10091029ok = VRRedirectStdIO('OFF')
    10101030Call VRMethod window, "Activate"
    10111031Drop window
    10121032Return
    1013 
    10141033/*:VRX         MenuSettings_Click
    10151034*/
    1016 MenuSettings_Click:
    1017 
    1018 return
     1035Menusettings_click:
     1036
     1037Return
    10191038
    10201039/*:VRX         PB_QuitNow_Click
    … …  
    10311050/*:VRX         PB_Shell_Click
    10321051*/
    1033 PB_Shell_Click:
    1034     ok = VRSet("RexxAutoStartMain","StatusText","Open a shell and halt RexxAutoStart temporarily")
    1035     Shell = '"'value('OS2_SHELL',,'OS2ENVIRONMENT')'"'
    1036     interpret Shell
     1052Pb_shell_click:
     1053ok = VRSet("RexxAutoStartMain","StatusText","Open a shell and halt RexxAutoStart temporarily")
     1054shell = '"'Value('OS2_SHELL',,'OS2ENVIRONMENT')'"'
     1055Interpret shell
    10371056Return
    10381057
    … …  
    10671086level = Strip(Linein(startup_path || '\rxautost.lvl'))
    10681087Call Stream startup_path || '\rxautost.lvl', 'c', 'close'
     1088level = level Stream(startup_path || '\rxautost.exe', 'c', 'query timestamp')
    10691089ok = VRSet( "RexxAutoStartMain", "Caption", "Rexx AutoStart" level )
    1070 
    1071 /* Read Parameters von Environment variable or commandline */
    1072 orgparms = VRGet("application","CommandLine")/* get commandline parameters */
    1073 cmdparms = orgparms                       /* to enable check for help */
    10741090
    10751091If _initialize() Then
    10761092   Do                          /* initialize parameters and variables */
    10771093      xrc = 0
    1078       Select
    1079          When do_help Then
    1080             Do                                           /* give help */
    1081                xrc = _helpscreen()
    1082                xrc = _cleanup(xrc)
    1083                Call Quit
    1084             End
    1085          When autoexec Then
    1086             Do                                     /* execute program */
    1087                Call _sayout exe_file 'started.', 0
    1088                Call _sayout 'Running under the' os_name, 1
    1089                Call _sayout os_comp 'at the' os_level 'level.', 2
    1090                Call _sayout "Using parameters" parms || ".", 2
    1091                If wps_wait Then
    1092                   Do                   /* wait for Desktop population */
    1093                      xrc = _wpswait()
    1094                      Call _playpicture
    1095                   End
    1096                If sc_wait Then
    1097                   Do                          /* wait for Warp Center */
    1098                      warpcenter_title = _getobjecttitle('<WP_WARPCENTER>')
    1099                      xrc = _objwait(warpcenter_title)
    1100                      Call _playpicture
    1101                   End
    1102                If tb_wait Then
    1103                   Do                              /* wait for Toolbar */
    1104                      toolbar_title = _getobjecttitle('<WP_LAUNCHPAD>')
    1105                      xrc = _objwait(toolbar_title)
    1106                      Call _playpicture
    1107                   End
    1108                If od_wait Then
    1109                   Do                       /* wait for Object Desktop */
    1110                      If od_cc Then
    1111                         Do
    1112                            controlcenter_title = _getobjecttitle('<OBJD_CONTROLCENTER>')
    1113                            xrc = _objwait(controlcenter_title)
    1114                            Call _playpicture
    1115                         End
    1116                      Else
    1117                         Call _sayout '[' || controlcenter_title || '] has not been selected for activation.', 2
    1118                      If od_tlp Then
    1119                         Do
    1120                            tablaunchpad_title = _getobjecttitle('<OBJD_TABLAUNCHPAD>')
    1121                            xrc = _objwait(tablaunchpad_title)
    1122                            Call _playpicture
    1123                         End
    1124                      Else
    1125                         Call _sayout '[' || tablaunchpad_title || '] has not been selected for activation.', 2
    1126                   End
    1127                If xc_wait Then
    1128                   Do                       /* wait for XCenter */
    1129                      If WPToolsSetObjectData('<XWP_XCENTER>', 'OPEN=DEFAULT;') Then
    1130                         Do
    1131                            xcenter_title = _getobjecttitle('<XWP_XCENTER>')
    1132                            xrc = _objwait(xcenter_title)
    1133                         End
    1134                      Call _playpicture
    1135                   End
    1136                If delay_wait <> 0 Then
    1137                   Do                      /* delay further processing */
    1138                      xrc = _delayswitch()
    1139                      Call _playpicture
    1140                   End
    1141                xrc = _autoexec()        /* open startupfolder objects */
    1142                If enablelanstart Then
    1143                   Do
    1144                      islan = _lanwaitforconnection()
    1145                      If islan Then
    1146                         Do
    1147                            xrc = _lanopenstartupfolder()
    1148                         End
    1149                      Else
    1150                         Call _sayout "Could not connect to LAN. LANStartupFolder not processed.", 2
    1151                   End
    1152                Else
    1153                   Call _sayout "LANStartupFolder disabled.", 1
    1154                xrc = _cleanup(xrc)
    1155             End
    1156          Otherwise Nop
    1157       End                                                   /* select */
     1094      If autoexec Then
     1095         Do                                        /* execute program */
     1096            Call _sayout exe_file 'started, level' level || '.', 0
     1097            Call _sayout 'Running under the' os_name, 1
     1098            Call _sayout os_comp 'at the' os_level 'level.', 2
     1099            If wps_wait Then
     1100               Do                      /* wait for Desktop population */
     1101                  xrc = _wpswait()
     1102                  Call _playpicture
     1103               End
     1104            If sc_open | sc_wait Then
     1105               Do                             /* wait for Warp Center */
     1106                  If sc_open Then
     1107                     xrc = WPToolsSetObjectData('<WP_WARPCENTER>', 'OPEN=DEFAULT;')
     1108                  warpcenter_title = _getobjecttitle('<WP_WARPCENTER>')
     1109                  xrc = _objwait(warpcenter_title)
     1110                  Call _playpicture
     1111               End
     1112            If tb_open | tb_wait Then
     1113               Do                                 /* wait for Toolbar */
     1114                  If tb_open Then
     1115                     xrc = WPToolsSetObjectData('<WP_LAUNCHPAD>', 'OPEN=DEFAULT;')
     1116                  toolbar_title = _getobjecttitle('<WP_LAUNCHPAD>')
     1117                  xrc = _objwait(toolbar_title)
     1118                  Call _playpicture
     1119               End
     1120            If xc_open | xc_wait Then
     1121               Do                                 /* wait for XCenter */
     1122                  If xc_open Then
     1123                     xrc = WPToolsSetObjectData('<XWP_XCENTER>', 'OPEN=DEFAULT;')
     1124                  xcenter_title = _getobjecttitle('<XWP_XCENTER>')
     1125                  xrc = _objwait(xcenter_title)
     1126                  Call _playpicture
     1127               End
     1128            If od_wait Then
     1129               Do                          /* wait for Object Desktop */
     1130                  If od_cc Then
     1131                     Do
     1132                        controlcenter_title = _getobjecttitle('<OBJD_CONTROLCENTER>')
     1133                        xrc = _objwait(controlcenter_title)
     1134                        Call _playpicture
     1135                     End
     1136                  Else
     1137                     Call _sayout '[' || controlcenter_title || '] has not been selected for activation.', 2
     1138                  If od_tlp Then
     1139                     Do
     1140                        tablaunchpad_title = _getobjecttitle('<OBJD_TABLAUNCHPAD>')
     1141                        xrc = _objwait(tablaunchpad_title)
     1142                        Call _playpicture
     1143                     End
     1144                  Else
     1145                     Call _sayout '[' || tablaunchpad_title || '] has not been selected for activation.', 2
     1146               End
     1147            If delay_wait <> 0 Then
     1148               Do                         /* delay further processing */
     1149                  xrc = _delayswitch()
     1150                  Call _playpicture
     1151               End
     1152            If startup_wait & VRFileExists( bootdrive || "\startup.cmd" ) Then
     1153               Do
     1154                  startup_title = VRParseFileName( bootdrive || "\startup.cmd", "NE" )
     1155                  xrc = _objdone(startup_title)
     1156                  Call _playpicture
     1157               End
     1158            xrc = _autoexec()           /* open startupfolder objects */
     1159            If enablelanstart Then
     1160               Do
     1161                  islan = _lanwaitforconnection()
     1162                  If islan Then
     1163                     Do
     1164                        xrc = _lanopenstartupfolder()
     1165                     End
     1166                  Else
     1167                     Call _sayout "Could not start and/or connect to the network. LAN StartupFolder not processed.", 2
     1168               End
     1169            Else
     1170               Call _sayout "LAN StartupFolder disabled.", 1
     1171            xrc = _cleanup(xrc)
     1172         End
    11581173   End                                                  /* if init... */
    11591174Call _playsoundevent(sound_done)

  • TabularUnified /projects/rxautost/src/rxautout.rc

    r20 r30  
    22ICON 2 RXASTRED.ICO
    33ICON 3 RXASTYEL.ICO
     4BITMAP 4 PAPER1.BMP
     5BITMAP 5 PAPER2.BMP
     6BITMAP 6 PAPER3.BMP
     7BITMAP 11 TAB11.BMP
     8BITMAP 12 TAB12.BMP
     9BITMAP 13 TAB13.BMP
     10BITMAP 14 TAB14.BMP
     11BITMAP 15 TAB15.BMP
     12BITMAP 21 TAB21.BMP
     13BITMAP 22 TAB22.BMP
     14BITMAP 23 TAB23.BMP
     15BITMAP 24 TAB24.BMP
     16BITMAP 25 TAB25.BMP

  • TabularUnified /projects/rxautost/src/rxautout.vrp

    r20 r30  
    11VX-REXX OS/2 V2.14 Build B3
    2 VRX: RXAUTOUT.VRX
    3 MacroPath: VRM:E:\Dev\REXX\VXREXX\Projects\RxAutoSt.2
     2VRX: RxAutoUt.VRX
     3MacroPath: VRM:E:\Dev\REXX\VXREXX\Projects\NewNB
    44EXEPath:
    55RunParameters:
    6 RunDirectory: e:\rxautost
    7 VRXWindow: __VREMainWindow,1,446,1747,994,4396
    8 VRXWindow: __VREFileListWindow,1,1205,8721,2665,3358
    9 VRXWindow: __VRESectionListWindow,1,4926,8432,2650,3342
    10 VRXWindow: __VREToolsWindow,1,410,-180,4996,1681
    11 VRXWindow: __VREWindListWindow,1,349,6504,2650,3150
     6RunDirectory:
     7VRXWindow: __VREMainWindow,1,1084,2108,994,7905
     8VRXWindow: __VREFileListWindow,1,1039,10298,2665,3358
     9VRXWindow: __VRESectionListWindow,1,3734,8660,5155,3342
     10VRXWindow: __VREToolsWindow,1,2846,181,7496,1669
     11VRXWindow: __VREWindListWindow,1,407,-854,2650,3150
    1212UserFile: 1
    1313UserWindow: RxAutoUtMain,1
    14 UserWindow: Page1,1
    15 UserWindow: Page4,1
    16 UserWindow: Page2,1
    17 UserWindow: AboutBox,1
    18 UserWindow: Page3,1

  • TabularUnified /projects/rxautost/src/rxautout.vrx

    r20 r30  
    77    Get the parent window.
    88*/
    9 Parse Source . calledas .
    10 parent = ""
    11 argcount = Arg()
    12 argoff = 0
    13 If( calledas \= "COMMAND" )Then
    14    Do
    15       If argcount >= 1 Then
    16          Do
    17             parent = Arg(1)
    18             argcount = argcount - 1
    19             argoff = 1
    20          End
    21    End; Else
    22    Do
    23       Call VROptions 'ImplicitNames'
    24       Call VROptions 'NoEchoQuit'
    25    End
    26 initargs.0 = argcount
    27 If( argcount > 0 )Then
    28    Do i = 1 To argcount
    29       initargs.i = Arg( i + argoff )
    30    End
    31 Drop calledas argcount argoff
     9    parse source . calledAs .
     10    parent = ""
     11    argCount = arg()
     12    argOff = 0
     13    if( calledAs \= "COMMAND" )then do
     14        if argCount >= 1 then do
     15            parent = arg(1)
     16            argCount = argCount - 1
     17            argOff = 1
     18        end
     19    end; else do
     20        call VROptions 'ImplicitNames'
     21        call VROptions 'NoEchoQuit'
     22    end
     23    InitArgs.0 = argCount
     24    if( argCount > 0 )then do i = 1 to argCount
     25        InitArgs.i = arg( i + argOff )
     26    end
     27    drop calledAs argCount argOff
    3228
    3329/*  Load the windows
    3430*/
    35 Call VRInit
    36 Parse Source . . spec
    37 _vreprimarywindowpath = ,
    38    VRParseFileName( spec, "dpn" ) || ".VRW"
    39 _vreprimarywindow = ,
    40    VRLoad( parent, _vreprimarywindowpath )
    41 Drop parent spec
    42 If( _vreprimarywindow == "" )Then
    43    Do
    44       Call VRMessage "", "Cannot load window:" VRError(), ,
    45          "Error!"
    46       _vrereturnvalue = 32000
    47       Signal _vreleavemain
    48    End
     31    call VRInit
     32    parse source . . spec
     33    _VREPrimaryWindowPath = ,
     34        VRParseFileName( spec, "dpn" ) || ".VRW"
     35    _VREPrimaryWindow = ,
     36        VRLoad( parent, _VREPrimaryWindowPath )
     37    drop parent spec
     38    if( _VREPrimaryWindow == "" )then do
     39        call VRMessage "", "Cannot load window:" VRError(), ,
     40            "Error!"
     41        _VREReturnValue = 32000
     42        signal _VRELeaveMain
     43    end
    4944
    5045/*  Process events
    5146*/
    52 Call Init
    53 Signal On Halt
    54 Do While( \ VRGet( _vreprimarywindow, "Shutdown" ) )
    55    _vreevent = VREvent()
    56    Interpret _vreevent
    57 End
    58 _vrehalt:
    59 _vrereturnvalue = Fini()
    60 Call VRDestroy _vreprimarywindow
    61 _vreleavemain:
    62 Call VRFini
    63 Exit _vrereturnvalue
    64 
    65 Vrloadsecondary:
    66 __vrlswait = Abbrev( 'WAIT', Translate(Arg(2)), 1 )
    67 If __vrlswait Then
    68    Do
    69       Call VRFlush
    70    End
    71 __vrlshwnd = VRLoad( VRWindow(), VRWindowPath(), Arg(1) )
    72 If __vrlshwnd = '' Then
    73    Signal __vrlsdone
    74 If __vrlswait \= 1 Then
    75    Signal __vrlsdone
    76 Call VRSet __vrlshwnd, 'WindowMode', 'Modal'
    77 __vrlstmp = __vrlswindows.0
    78 If( Datatype(__vrlstmp) \= 'NUM' ) Then
    79    Do
    80       __vrlstmp = 1
    81    End
    82 Else
    83    Do
    84       __vrlstmp = __vrlstmp + 1
    85    End
    86 __vrlswindows.__vrlstmp = VRWindow( __vrlshwnd )
    87 __vrlswindows.0 = __vrlstmp
    88 Do While( VRIsValidObject( VRWindow() ) = 1 )
    89    __vrlsevent = VREvent()
    90    Interpret __vrlsevent
    91 End
    92 __vrlstmp = __vrlswindows.0
    93 __vrlswindows.0 = __vrlstmp - 1
    94 Call VRWindow __vrlswindows.__vrlstmp
    95 __vrlshwnd = ''
    96 __vrlsdone:
    97 Return __vrlshwnd
    98 
    99 /*:VRX         _FirstSetup
    100 */
    101 _firstsetup:
    102 /* determine status of Warp Center */
    103 startup_warp_center = 1
    104 If WPToolsFolderContent(startupfolder_default, 'list.', 'F') Then
    105    Do i = 1 To list.0
    106       If list.i = '<WP_WARPCENTER>' Then
    107          startup_warp_center = 0
    108    End
    109 If startup_warp_center Then
    110    startup_warp_center = (Pos('WARPCENTER', Translate(autostart_line)) > 0)
    111 Call SysIni our_ini, 'warp_center', 'sc_wait', startup_warp_center
    112 parms.0 = 1
    113 parms.1 = '<WP_WARPCENTER>'
    114 Perform('RxObjTitle', 'parms.');
    115 sc_title = parms.1
    116 Call SysIni our_ini, 'warp_center', 'sc_title', sc_title
    117 Call SysIni our_ini, 'warp_center', 'sc_tries', sc_tries_default
    118 
    119 Return
    120 
    121 /*:VRX         _INIRead
    122 */
    123 _iniread:
    124 
    125 /* fully implemented settings */
    126 ini_changes = 0
    127 
    128 obj_tries = wps_wait | sc_wait | tb_wait | xc_wait | od_wait
    129 /*
    130 ok = VRSet("CB_EnableXStartUpFolder","Value", enablexstart )
    131 */
    132 /*
    133 Select
    134    When \xwpstartup & xstartup Then
    135       Do
    136          enablexstart = 1
    137          ini_changes = enablexstart <> VRGet("CB_EnableXStartupfolder","Value")
    138       End
    139    When xwpstartup & \xstartup Then
    140       Do
    141          enablexstart = 0
    142          ini_changes = enablexstart <> VRGet("CB_EnableXStartupfolder","Value")
    143       End
    144    Otherwise
    145       Do
    146          enablexstart = 0
    147          ini_changes = enablexstart <> VRGet("CB_EnableXStartupfolder","Value")
    148       End
    149 End
    150 ok = VRSet("CB_EnableXStartupfolder","Value", enablexstart )
    151 */
    152 /* partly implemented settings */
    153 Return
    154 
    155 /*
    156 
    157       If old_parms <> '' Then
    158          Do
    159             /* update from old parameters file */
    160             reply = SendMsgBox('Msg019');
    161 
    162             /* wait for WarpCenter */
    163             Parse Value('.' old_parms) With . '/SC:' sc_tries '/'.
    164             sc_tries = Strip(sc_tries)
    165             If sc_tries <> '' & Datatype(sc_tries, 'W') Then
    166                Call SysIni our_ini, 'warp_center', 'sc_tries', sc_tries
    167             /* wait for Object Desktop */
    168             /* determine which facilities to wait for */
    169             If objdesk Then
    170                Do
    171                   /* wait for Control Center */
    172                   od_cc = (Pos('/ODC', old_parms) <> 0)
    173                   If od_cc Then
    174                      Call SysIni our_ini, 'object_desktop', 'od_cc', od_cc
    175                   /* wait for Tab LaunchPad */
    176                   od_tlp = (Pos('/ODT', old_parms) <> 0)
    177                   If od_tlp Then
    178                      Call SysIni our_ini, 'object_desktop', 'od_tlp', od_tlp
    179                   /* determine number of checks for Object Desktop tasks */
    180                   Parse Value('.' old_parms) With . '/OD:' od_tries '/'.
    181                   od_tries = Strip(od_tries)
    182                   If od_tries <> '' & Datatype(od_tries, 'W') Then
    183                      Call SysIni our_ini, 'object_desktop', 'od_tries', od_tries
    184                End
    185 
    186             Parse Value('.' old_parms) With . '/D:' delay_wait '/' .
    187             delay_wait = Strip(delay_wait)
    188             If delay_wait <> '' & Datatype(delay_wait, 'W') Then
    189                Call SysIni our_ini, 'workplace_shell', 'delay_wait', delay_wait
    190 
    191             Parse Value('.' old_parms) With . '/R:' retries '/' .
    192             retries = Strip(retries)
    193             If retries <> '' & Datatype(retries, 'W') Then
    194                Call SysIni our_ini, 'objects', 'retries', retries
    195 
    196             /* object id of startup folder */
    197             f_pos = Pos('/F:', old_parms)
    198             If f_pos <> 0 Then
    199                Do
    200                   Parse Value('.' old_parms) With . + (f_pos) + 4 startupfolder '/' .
    201                   startupfolder = Strip(Strip(Strip(startupfolder), , '"'), , "'")
    202                   Call SysIni our_ini, 'folders', 'startupfolder', startupfolder
    203                End
    204 
    205             Parse Value('.' old_parms) With . '/P:' sleepsec '/' .
    206             sleepsec = Strip(sleepsec)
    207             If sleepsec <> '' & Datatype(sleepsec, 'W') Then
    208                Call SysIni our_ini, 'objects', 'sleepsec', sleepsec
    209 
    210             log_out = (Pos('/L', old_parms) <> 0)
    211             If log_out Then
    212                Call SysIni our_ini, 'debug', 'log_out', log_out
    213 
    214             verbose = (Pos('/V', old_parms) <> 0)
    215             If verbose Then
    216                Call SysIni our_ini, 'debug', 'verbose', verbose
    217          End
    218    End
    219 */
    220 /*:VRX         _INIWrite
     47    call Init
     48    signal on halt
     49    do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
     50        _VREEvent = VREvent()
     51        interpret _VREEvent
     52    end
     53_VREHalt:
     54    _VREReturnValue = Fini()
     55    call VRDestroy _VREPrimaryWindow
     56_VRELeaveMain:
     57    call VRFini
     58exit _VREReturnValue
     59
     60VRLoadSecondary:
     61    __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
     62    if __vrlsWait then do
     63        call VRFlush
     64    end
     65    __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
     66    if __vrlsHWnd = '' then signal __vrlsDone
     67    if __vrlsWait \= 1 then signal __vrlsDone
     68    call VRSet __vrlsHWnd, 'WindowMode', 'Modal'
     69    __vrlsTmp = __vrlsWindows.0
     70    if( DataType(__vrlsTmp) \= 'NUM' ) then do
     71        __vrlsTmp = 1
     72    end
     73    else do
     74        __vrlsTmp = __vrlsTmp + 1
     75    end
     76    __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
     77    __vrlsWindows.0 = __vrlsTmp
     78    do while( VRIsValidObject( VRWindow() ) = 1 )
     79        __vrlsEvent = VREvent()
     80        interpret __vrlsEvent
     81    end
     82    __vrlsTmp = __vrlsWindows.0
     83    __vrlsWindows.0 = __vrlsTmp - 1
     84    call VRWindow __vrlsWindows.__vrlsTmp
     85    __vrlsHWnd = ''
     86__vrlsDone:
     87return __vrlsHWnd
     88
     89/*:VRX         _iniwrite
    22190*/
    22291_iniwrite:
    22392ok = VRSetIni( "workplace_shell", "wps_wait", wps_wait, our_ini, "Noclose" )
    22493ok = VRSetIni( "workplace_shell", "sc_wait", sc_wait, our_ini, "Noclose" )
     94ok = VRSetIni( "workplace_shell", "sc_open", sc_open, our_ini, "Noclose" )
     95Call Update_autostart 'warpcenter', sc_wait, sc_open
    22596ok = VRSetIni( "workplace_shell", "tb_wait", tb_wait, our_ini, "Noclose" )
     97ok = VRSetIni( "workplace_shell", "tb_open", tb_open, our_ini, "Noclose" )
     98Call Update_autostart 'toolbar', tb_wait, tb_open
    22699ok = VRSetIni( "workplace_shell", "xc_wait", xc_wait, our_ini, "Noclose" )
     100ok = VRSetIni( "workplace_shell", "xc_open", xc_open, our_ini, "Noclose" )
     101ok = VRSetIni( "workplace_shell", "startup_wait", wps_wait, our_ini, "Noclose" )
    227102ok = VRSetIni( "workplace_shell", "delay_wait", delay_wait, our_ini, "Noclose" )
    228103ok = VRSetIni( "object_desktop", "od_wait", od_cc | od_tlp, our_ini, "Noclose" )
    … …  
    279154ok = VRSetIni( "sound", "sound_start", sound_start, our_ini )
    280155ini_changes = 0
     156If new_autostart <> old_autostart Then
     157   Do
     158      /* update CONFIG.SYS */
     159      Parse Value(_rxfindlines(old_autostart, config_sys)) ,
     160         With autostart_line_no autostart_line '|' autostart_line_rem
     161      If autostart_line_no <> 0 Then
     162         Do
     163            file_lines. = ''
     164            file_lines.0 = 0
     165            /* REM out the current SET AUTOSTART= line */
     166            autostart_line = 'REM' autostart_line
     167            xrc = _rxupdline(autostart_line_no, autostart_line, config_sys)
     168            /* add updated SET AUTOSTART= */
     169            new_autostart = 'SET AUTOSTART='||new_autostart
     170            xrc = _rxupdline(autostart_line_no, new_autostart, config_sys, 'insert', 'close')
     171         End
     172   End
    281173Return
    282174
    … …  
    421313Return
    422314
    423 /*:VRX         _SetPage4
    424 */
    425 _setpage4:
    426 Parse Value(_rxfindlines('restartobjects=', bootdrive || '\config.sys')) ,
    427    With line_no . '=' line '|' .
    428 current_line = Translate(Value('restartobjects', , 'os2environment'))
    429 If line_no \= 0 Then
    430    Do
    431       ok = VRSet( "DT_RestartObjects", "Caption", line )
    432       If line = current_line Then
    433          ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "" )
    434       Else
    435          Do
    436             If current_line = '' Then
    437                ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "not found" )
    438             Else
    439                Do
    440                   ok = VRSet( "DT_RestartObjects", "Caption", line "(next boot)")
    441                   ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" )
    442                End
    443          End
    444    End
    445 Else
    446    Do
    447       ok = VRSet( "DT_RestartObjects", "Caption", "not found" )
    448       If current_line \= '' Then
    449          ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" )
    450    End
    451 Parse Value(_rxfindlines('autostart=', bootdrive || '\config.sys')) ,
    452    With line_no . '=' line '|' .
    453 current_line = Translate(Value('autostart', , 'os2environment'))
    454 If line_no \= 0 Then
    455    Do
    456       ok = VRSet( "DT_AutoStart", "Caption", line )
    457       If line = current_line Then
    458          ok = VRSet( "DT_AutoStartCurrent", "Caption", "" )
    459       Else
    460          Do
    461             If current_line = '' Then
    462                ok = VRSet( "DT_AutoStartCurrent", "Caption", "not found" )
    463             Else
    464                Do
    465                   ok = VRSet( "DT_AutoStart", "Caption", line "(next boot)")
    466                   ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" )
    467                End
    468          End
    469    End
    470 Else
    471    Do
    472       ok = VRSet( "DT_AutoStart", "Caption", "not found" )
    473       If current_line \= '' Then
    474          ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" )
    475    End
    476 Parse Value(_rxfindlines('rxautost.exe', bootdrive || '\startup.cmd')) ,
    477    With rxautost_line_no line '|' .
    478 If rxautost_line_no \= 0 Then
    479    ok = VRSet( "DT_StartupCmd", "Caption", line )
    480 Else
    481    ok = VRSet( "DT_StartupCmd", "Caption", "Rexx Autostart not active" )
    482 If VRFileExists( our_log ) Then
    483    Do
    484       log_lines = 0
    485       Do While Lines(our_log)
    486          junk = Linein(our_log)
    487          log_lines = log_lines + 1
    488       End
    489       ok = VRSet( "DT_LogRecords", "Caption", log_lines "lines" )
    490    End
    491 Else
    492    ok = VRSet( "DT_LogRecords", "Caption", "does not exist" )
    493 Parse Value(_rxfindlines('restartobjects=no', bootdrive || '\config.sys')) ,
    494    With restart_line_no .
    495 If rxautost_line_no \= 0 & restart_line_no \= 0 Then
    496    Do
    497       ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart enabled" )
    498       ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 0 )
    499       ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 1 )
    500    End
    501 Else
    502    Do
    503       ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart disabled" )
    504       ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 1 )
    505       ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 0 )
    506    End
    507 drop line_no line current_line rxautost_line_no restart_line_no
    508 Return
    509 
    510 /*:VRX         AboutBox_Close
    511 */
    512 Aboutbox_close:
    513 Call Aboutbox_fini
    514 Return
    515 
    516 /*:VRX         AboutBox_Create
    517 */
    518 Aboutbox_create:
    519 Call Aboutbox_init
    520 Return
    521 
    522 /*:VRX         AboutBox_Fini
    523 */
    524 Aboutbox_fini:
    525 window = VRInfo( "Window" )
    526 Call VRDestroy window
    527 Drop window
    528 Return
    529 /*:VRX         AboutBox_Init
    530 */
    531 Aboutbox_init:
    532 window = VRInfo( "Object" )
    533 If( \VRIsChildOf( window, "Notebook" ) ) Then
    534    Do
    535       Call VRMethod window, "CenterWindow"
    536       Call VRSet window, "Visible", 1
    537       Call VRMethod window, "Activate"
    538    End
    539 Drop window
    540 Return
     315
     316/*:VRX         Activate
     317*/
     318Activate:
     319    parse arg Nr
     320    call PushbackAll
     321    CurrentPageNr = Nr
     322    /* ok = VRSet("PB_"Nr,"Font","9.WarpSans Bold") */
     323    ok = VRSet("TAB_"Nr,"Top", TabTop-8)
     324    ok = VRSet("TAB_"Nr,"Left",TabWidth*(Nr-1)+PageLeft)
     325    ok = VRSet("TAB_"Nr,"PicturePath", "#1"||Nr)
     326    ok = VRSet("TAB_"Nr,"AutoSize",1)
     327    ok = VRset("DT_PageName", "Caption", VRGet("TAB_"Nr, "UserData"))
     328    ok = VRSet("Page_"Nr,"Visible", 1)
     329    select
     330        when Nr = 1 then ok = VRSet("IPB_paper","PicturePath","#4")
     331        when Nr = Pages then ok = VRSet("IPB_paper","PicturePath","#6")
     332        otherwise ok = VRSet("IPB_paper","PicturePath","#5")
     333    end
     334return
    541335
    542336/*:VRX         CB_DELAY_Click
    … …  
    554348   End
    555349ini_changes = 1
    556 Return
    557 
     350return
    558351/*:VRX         CB_EnableLanStartUpFolder_Click
    559352*/
    … …  
    608401ini_changes = 1
    609402Return
    610 
    611403/*:VRX         CB_ODInstalled_Click
    612404*/
    … …  
    624416   od_wait = 0
    625417Return
    626 
    627418/*:VRX         CB_SimpleLogonOnly_Click
    628419*/
    … …  
    639430Return
    640431
     432/*:VRX         CB_startup_wait_Click
     433*/
     434CB_startup_wait_Click:
     435startup_wait = VRGet( "CB_startup_wait", "Set" )
     436ini_changes = 1
     437return
     438
    641439/*:VRX         CB_verbose_Click
    642440*/
    … …  
    646444Return
    647445
    648 /*:VRX         CB_xc_wait_Click
    649 */
    650 CB_xc_wait_Click:
    651 xc_wait = VRGet( "CB_xc_wait", "Set" )
    652 ini_changes = 1
    653 return
     446/*:VRX         CB_wps_wait_Click
     447*/
     448CB_wps_wait_Click:
     449wps_wait = VRGet( "CB_wps_wait", "Set" )
     450ini_changes = 1
     451return
     452
     453/*:VRX         Check_startup
     454*/
     455Check_startup:
     456Procedure Expose old_autostart
     457Parse Arg auto, obj, class, startup, .
     458If auto <> '' Then
     459   test_auto = (Pos(Translate(auto), Translate(old_autostart)) <> 0)
     460Else
     461   test_auto = 1
     462test_obj = WPToolsQueryObject(obj)
     463test_class = 0
     464test_startup = 0
     465If test_auto & test_obj Then
     466   Do
     467      Call SysQueryClassList 'classes.'
     468      Do x = 1 To classes.0
     469         If Abbrev(Translate(classes.x), Translate(class)),
     470            | class = '' Then
     471            Do
     472               test_class = 1
     473               If WPToolsFolderContent(startup, 'objects.') Then
     474               Do y = 1 To objects.0
     475                  If Abbrev(Translate(objects.y), Translate(obj)) Then
     476                     Do
     477                        test_startup = 1
     478                        Leave y
     479                     End
     480                  If WPToolsQueryObject(objects.y, , , 'szSetup') Then
     481                     Do
     482                        Parse Value('.' szSetup) With . 'SHADOWID=' shadow ';'
     483                        If Abbrev(Translate(Strip(shadow)), Translate(obj)) Then
     484                           Do
     485                              test_startup = 1
     486                              Leave y
     487                           End
     488                     End
     489               End
     490               Drop objects.
     491               Leave x
     492            End
     493      End
     494      Drop classes.
     495   End
     496Return (test_auto & test_obj & test_class & \test_startup)
     497
    654498
    655499/*:VRX         EF_LANStartUpFolder_Change
    … …  
    682526*/
    683527Fini:
    684 window = VRWindow()
    685 Call VRSet window, "Visible", 0
    686 Drop window
    687 Return 0
     528    window = VRWindow()
     529    call VRSet window, "Visible", 0
     530    drop window
     531return 0
    688532
    689533/*:VRX         GetBootDrive
    690534*/
    691 Getbootdrive:
     535GetBootDrive:
    692536/* Use SysBootDrive if possible */
    693537If Rxfuncadd('SysBootDrive', 'RexxUtil', 'SysBootDrive') Then
    … …  
    695539Else
    696540   Return SysBootDrive()
     541
     542
    697543/*:VRX         Halt
    698544*/
    699545Halt:
    700 Signal _vrehalt
    701 Return
     546    signal _VREHalt
     547return
    702548
    703549/*:VRX         Init
    704550*/
    705551Init:
     552Call Rxfuncadd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
     553Call SysLoadFuncs
     554Call Rxfuncadd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs'
     555Call WPToolsLoadFuncs
    706556ok = VRRedirectStdIO('OFF')
    707557bootdrive = Getbootdrive()
    708 file = Stream('rxautost.lvl', 'c', 'query exists')
    709 level = Strip(Linein(file))
    710 Call Stream file, 'c', 'close'
    711 ok = VRSet( "RxAutoUtMain", "Caption", "RexxAutoStart Setup Utility" level )
     558config_sys = bootdrive||'\config.sys'
     559startup_cmd = bootdrive||'\startup.cmd'
     560our_drive = VRCurrDrive()
     561our_dir = our_drive || VRCurrDir( our_drive )
     562our_ini = our_dir || '\RXAUTOST.INI'
     563our_log = our_dir || '\RXAUTOST.LOG'
     564startup_line = Translate('@START /MIN' our_dir||'\RXAUTOST.EXE' our_dir||'\RXAUTOST.EXE')
     565If VRFileExists( our_dir || '\rxautost.lvl' ) Then
     566   Do
     567      level = Strip(Linein(our_dir || '\rxautost.lvl'))
     568      Call Stream our_dir || '\rxautost.lvl', 'c', 'close'
     569      level = level Stream(our_dir || '\rxautout.exe', 'c', 'query timestamp')
     570   End
     571Else
     572   level = ''
     573caption = VRGet( "RxAutoUtMain", "Caption" )
     574ok = VRSet( "RxAutoUtMain", "Caption", caption level )
    712575window = VRWindow()
    713576Call VRMethod window, "CenterWindow"
    … …  
    715578Call VRMethod window, "Activate"
    716579Drop window
     580ini_changes = Migrate_rexxautostart(our_ini, bootdrive)
     581Parse Value(_rxfindlines('autostart=', config_sys)) ,
     582   With line_no . '=' old_autostart '|' .
     583old_autostart = Strip(old_autostart)
     584new_autostart = old_autostart
     585return
     586/*:VRX         IPB_Paper_Click
     587*/
     588IPB_Paper_Click:
     589    if VRInfo("Left") >  VRInfo("Top") then call Activate min(CurrentPageNr+1,Pages)
     590    if VRInfo("Left") <= VRInfo("Top") then call Activate max(CurrentPageNr-1,1)
     591return
     592
     593/*:VRX         Migrate_rexxautostart
     594*/
     595Migrate_rexxautostart: Procedure
     596Parse Arg our_ini, bootdrive
    717597ini_changes = 0
    718 our_ini = Stream('RxAutoSt.INI', 'c', 'query exists')
    719 our_log = Stream('RxAutoSt.LOG', 'c', 'query exists')
    720 Return
    721 
    722 /*:VRX         MenuFileExit_Click
    723 */
    724 Menufileexit_click:
     598migrated = (VRGetIni( "RexxAutoStart", "migrate", our_ini ) = 1)
     599old_parms = ''
     600If \migrated Then
     601   Do
     602      /* do we have a startup.cmd file ? */
     603      If VRFileExists( bootdrive || '\startup.cmd' ) Then
     604         Do
     605            Parse Value _rxfindlines('rxautost', bootdrive || '\startup.cmd') With ,
     606               startup_line_no startup_line '|' .
     607            /* do we have a rxautost.exe line ? */
     608            If startup_line_no <> 0 Then
     609               Do
     610                  /* get any parameters */
     611                  exe_pos = Pos('RXAUTOST', Translate(startup_line))
     612                  Parse Value Substr(startup_line, exe_pos) With . old_parms
     613               End
     614         End
     615      old_parms = Space(old_parms Value('rxautost', , 'os2environment'))
     616      If old_parms = '' Then
     617         ok = VRSetIni( "RexxAutoStart", "migrate", '1', our_ini )
     618      Else
     619         Do
     620            If VRGetIni( "workplace_shell", "wps_wait", our_ini) = '' ,
     621               & Pos('/WPS', Translate(old_parms)) <> 0 Then
     622               ok = VRSetIni( "workplace_shell", "wps_wait", '1', our_ini)
     623            If VRGetIni( "workplace_shell", "sc_wait", our_ini) = '' ,
     624               & Pos('/SC', Translate(old_parms)) <> 0 ,
     625               & Pos('WARPCENTER', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 Then
     626               ok = VRSetIni( "workplace_shell", "sc_wait", '1', our_ini)
     627            If VRGetIni( "workplace_shell", "tb_wait", our_ini) = '' ,
     628               & Pos('/TB', Translate(old_parms)) <> 0 ,
     629               & Pos('TOOLBAR', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 Then
     630               ok = VRSetIni( "workplace_shell", "tb_wait", '1', our_ini)
     631            If VRGetIni( "workplace_shell", "delay_wait", our_ini) = '' ,
     632               & Pos('/D:',Translate(old_parms)) <> 0 Then
     633               Do
     634                  Parse Value Translate('.' old_parms) With . '/D:' delay_wait '/' .
     635                  delay_wait = Strip(delay_wait)
     636                  If delay_wait <> '' & Datatype(delay_wait, 'W') Then
     637                     ok = VRSetIni( "workplace_shell", "delay_wait", delay_wait, our_ini)
     638               End
     639            If VRGetIni( "object_desktop", "od_wait", our_ini ) = '' ,
     640               & Pos('/OD ', Translate(old_parms)) <> 0 ,
     641               & VRGetIni('WPTS', 'TSMasterSetup:StartupFlags', 'User') <> '' Then
     642               ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini )
     643            If VRGetIni( "object_desktop", "od_cc", our_ini) = '' ,
     644               & Pos('/ODC ', Translate(old_parms)) <> 0 Then
     645               ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini )
     646            If VRGetIni( "object_desktop", "od_tlp", our_ini) = '' ,
     647               & Pos('/ODT ', Translate(old_parms)) <> 0 Then
     648               ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini )
     649            If VRGetIni( "object_desktop", "od_tries", our_ini) = '' ,
     650               & Pos('/OD:', Translate(old_parms)) <> 0 Then
     651               Do
     652                  Parse Value Translate('.' old_parms) With . '/OD:' od_tries '/' .
     653                  od_tries = Strip(od_tries)
     654                  If od_tries <> '' & Datatype(od_tries, 'W') Then
     655                     ok = VRSetIni( "object_desktop", "od_tries", od_tries, our_ini)
     656               End
     657            If VRGetIni( "folders", "startupfolder", our_ini) = '' ,
     658               & Pos('/F:', Translate(old_parms)) <> 0 Then
     659               Do
     660                  f_pos = Pos('/F:', Translate(old_parms))
     661                  If f_pos <> 0 Then
     662                     Do
     663                        Parse Value '.' old_parms With . + (f_pos) + 4 startupfolder '/' .
     664                        startupfolder = Strip(Strip(Strip(startupfolder), , '"'), , "'")
     665                        ok = VRSetIni( "folders", "startupfolder", startupfolder, our_ini)
     666                     End
     667               End
     668            If VRGetIni( "objects", "retries", our_ini) = '' ,
     669               & Pos('/R:', Translate(old_parms)) <> 0 Then
     670               Do
     671                  Parse Value Translate('.' old_parms) With . '/R:' retries '/' .
     672                  retries = Strip(retries)
     673                  If retries <> '' & Datatype(retries, 'W') Then
     674                     ok = VRSetIni( "objects", "retries", retries, our_ini)
     675               End
     676            If VRGetIni( "objects", "sleepsec", our_ini) = '' ,
     677               & Pos('/P:', Translate(old_parms)) <> 0 Then
     678               Do
     679                  Parse Value Translate('.' old_parms) With . '/P:' sleepsec '/' .
     680                  sleepsec = Strip(sleepsec)
     681                  If sleepsec <> '' & Datatype(sleepsec, 'W') Then
     682                     ok = VRSetIni( "objects", "sleepsec", sleepsec, our_ini)
     683               End
     684            If VRGetIni( "debug", "log_out", our_ini) = '' ,
     685               & Pos('/L', Translate(old_parms)) <> 0 Then
     686               ok = VRSetIni( "debug", "log_out", '1', our_ini)
     687            If VRGetIni( "debug", "verbose", our_ini ) = '' ,
     688               & Pos('/V', Translate(old_parms)) <> 0 Then
     689               ok = VRSetIni( "debug", "verbose", '1', our_ini)
     690            ok = VRSetIni( "RexxAutoStart", "migrate", '1', our_ini )
     691            ini_changes = 1
     692         End
     693   End
     694Return ini_changes
     695/*:VRX         Page1_Create
     696*/
     697Page1_Create:
     698Parse Arg no_init
     699p_init = (no_init = '')
     700startup_wait = VRGetIni( "workplace_shell", "startup_wait", our_ini, 'Noclose')
     701If startup_wait = '' Then
     702   Do
     703      startup_wait = VRGet("CB_startup_wait","set")
     704      ini_changes = 1
     705   End
     706ok = VRSet("CB_startup_wait","set", startup_wait, "Enabled", VRFileExists( bootdrive || "\startup.cmd" ) )
     707wps_wait = VRGetIni( "workplace_shell", "wps_wait", our_ini, 'Noclose')
     708If wps_wait = '' Then
     709   Do
     710      wps_wait = VRGet("CB_wps_wait","set")
     711      ini_changes = 1
     712   End
     713ok = VRSet("CB_wps_wait","set", wps_wait )
     714sc_test = Check_startup('WARPCENTER', '<WP_WARPCENTER>', , '<WP_START>')
     715sc_wait = VRGetIni( "workplace_shell", "sc_wait", our_ini, 'Noclose')
     716If sc_wait = '' Then
     717   Do
     718      sc_wait = sc_test
     719      ini_changes = 1
     720   End
     721sc_wait = (sc_wait & sc_test)
     722ok = VRSet( "RB_sc_wait","set", sc_wait, "Enabled", sc_test)
     723sc_test = Check_startup(, '<WP_WARPCENTER>', , '<WP_START>')
     724sc_open = VRGetIni( "workplace_shell", "sc_open", our_ini, 'Noclose')
     725If sc_open = '' Then
     726   Do
     727      sc_open = 0
     728      ini_changes = 1
     729   End
     730ok = VRSet("RB_sc_open","set",(sc_open & \sc_wait),"Enabled",sc_test)
     731tb_test = Check_startup('TOOLBAR', '<WP_LAUNCHPAD>', , '<WP_START>')
     732tb_wait = VRGetIni( "workplace_shell", "tb_wait", our_ini, 'Noclose')
     733If tb_wait = '' Then
     734   Do
     735      tb_wait = tb_test
     736      ini_changes = 1
     737   End
     738tb_wait = (tb_wait & tb_test)
     739ok = VRSet( "RB_tb_wait","set", tb_wait, "Enabled", tb_test)
     740tb_test = Check_startup(, '<WP_LAUNCHPAD>', , '<WP_START>')
     741tb_open = VRGetIni( "workplace_shell", "tb_open", our_ini, 'Noclose')
     742If tb_open = '' Then
     743   Do
     744      tb_open = 0
     745      ini_changes = 1
     746   End
     747tb_open = (tb_open & tb_test)
     748ok = VRSet( "RB_tb_open","set",(tb_open & \tb_wait),"Enabled",tb_test)
     749xc_test = Check_startup(,'<XWP_XCENTER>', 'XCenter', '<WP_START>')
     750ec_wait = VRGetIni( "workplace_shell", "ec_wait", our_ini, 'Noclose')
     751If ec_wait <> '' Then
     752   Do
     753      ok = VRDelIni( "workplace_shell", "ec_wait", our_ini, 'Noclose') Then
     754      xc_wait = (ec_wait & xc_test)
     755      ok = VRSetIni( "workplace_shell", "xc_wait", xc_wait, our_ini, 'Noclose' )
     756   End
     757xc_wait = VRGetIni( "workplace_shell", "xc_wait", our_ini, 'Noclose')
     758if xc_wait = '' then xc_wait = 0
     759xc_wait = (xc_wait & xc_test)
     760ok = VRSet( "RB_xc_wait","set",xc_wait,"Enabled",xc_test)
     761xc_open = VRGetIni( "workplace_shell", "xc_open", our_ini, 'Noclose')
     762If \Datatype(xc_open, 'B') Then
     763   Do
     764      xc_open = 0
     765      ini_changes = 1
     766   End
     767ok = VRSet( "RB_xc_open","set",xc_open,"Enabled",xc_test)
     768delay_wait = VRGetIni( "workplace_shell", "delay_wait", our_ini, 'Noclose')
     769If delay_wait = '' Then
     770   Do
     771      delay_wait = VRGet("SPIN_delay_wait", "Value")
     772      ini_changes = 1
     773   End
     774ok = VRSet("SPIN_delay_wait", "Value", delay_wait )
     775ok = VRSet("CB_delay","Set", (delay_wait > 0))
     776od_wait = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose')
     777If od_wait = '' Then
     778   Do
     779      od_wait = (VRGetIni('WPTS', 'TSMasterSetup:StartupFlags', 'User') <> '')
     780      ini_changes = 1
     781   End
     782objdesk = (VRGetIni( "WPTS", "InstallDir", "User" ) <> '')
     783ok = VRSet("CB_ODInstalled","set",objdesk)
     784If objdesk Then
     785   Do
     786      ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is installed")
     787      od_cc = VRGetIni( "object_desktop", "od_cc", our_ini, 'Noclose')
     788      If od_cc = '' Then
     789         od_cc = 0
     790      ok = VRSet("CB_od_cc", "Set", od_cc, "Enabled", WPToolsQueryObject('<OBJD_CONTROLCENTER>'))
     791      od_tlp = VRGetIni( "object_desktop", "od_tlp", our_ini )
     792      If od_tlp = '' Then
     793         od_tlp = 0
     794      ok = VRSet("CB_od_tlp", "Set", od_tlp, "Enabled", WPToolsQueryObject('<OBJD_TABLAUNCHPAD>'))
     795   End
     796Else
     797   Do
     798      ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is not installed")
     799      od_cc = 0
     800      od_tlp = 0
     801   End
     802od_tries = VRGetIni( "object_desktop", "od_tries", our_ini, 'Noclose')
     803If od_tries = '' Then
     804   Do
     805      od_tries = 30
     806      ini_changes = 1
     807   End
     808ok = VRSet("SPIN_od_tries","Value", od_tries )
     809If p_init Then
     810   Call Page1_init
     811Return
     812/*:VRX         Page1_Init
     813*/
     814Page1_Init:
     815
     816return
     817
     818/*:VRX         Page2_Create
     819*/
     820Page2_create:
     821Parse Arg no_init
     822p_init = (no_init = '')
     823startupfolder = VRGetIni( "folders", "startupfolder", our_ini, 'NoClose')
     824If startupfolder = '' Then
     825   Do
     826      startupfolder = VRGet( "EF_Startupfolder", "Value" )
     827      ini_changes = 1
     828   End
     829ok = VRSet( "EF_Startupfolder", "Value", startupfolder )
     830xwpstartupfolder = Strip(VRGetIni('XWorkplace', 'XStartupFolders', 'User'), 't', '00'x)
     831xstartupfolder = Strip(VRGetIni( "folders", "XStartupFolders", our_ini, 'NoClose'), 't', '00'x)
     832Select
     833   When xwpstartupfolder <> '' Then
     834      Do
     835         If WPToolsQueryObject('#' || xwpstartupfolder, , , 'szSetupString') Then
     836            Do
     837               Parse Value '.' szsetupstring With . 'OBJECTID=' xstartupname ';' .
     838               xstartupname = Strip(xstartupname)
     839            End
     840      End
     841   When xstartupfolder <> '' Then
     842      Do
     843         If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then
     844            Do
     845               Parse Value '.' szsetupstring With . 'OBJECTID=' xstartupname ';' .
     846               xstartupname = Strip(xstartupname)
     847            End
     848      End
     849   Otherwise
     850      xstartupname = VRGet("EF_XStartupfolder", "Value" )
     851End
     852ok = VRSet("EF_XStartupfolder","Value", xstartupname )
     853enablexstart = VRGetIni( "folders", "enablexstart", our_ini, 'NoClose')
     854If enablexstart = '' Then
     855   Do
     856      enablexstart = 0
     857      ini_changes = 1
     858   End
     859ok = VRSet("CB_EnableXStartupfolder", "Set", enablexstart,"Enabled", xwpstartupfolder <> '' | xstartupfolder <> '' )
     860retries = VRGetIni( "objects", "retries", our_ini, 'Noclose')
     861If retries = '' Then
     862   Do
     863      retries = 2
     864      ini_changes = 1
     865   End
     866ok = VRSet("SPIN_retries","Value", retries )
     867sleepsec = VRGetIni( "objects", "sleepsec", our_ini, 'Noclose')
     868If sleepsec = '' Then
     869   Do
     870      sleepsec = VRGet("SPIN_sleepsec","Value")
     871      ini_changes = 1
     872   End
     873ok = VRSet("SPIN_sleepsec","Value", sleepsec )
     874enablelanstart = VRGetIni( "folders", "enablelanstart", our_ini, 'NoClose')
     875If enablelanstart = '' Then
     876   Do
     877      enablelanstart = VRGet("CB_EnableLANStartupfolder","Set")
     878      ini_changes = 1
     879   End
     880ok = VRSet("CB_EnableLANStartupfolder","Set", enablelanstart )
     881simplelogononly = VRGetIni( "folders", "simplelogononly", our_ini, 'NoClose')
     882If simplelogononly = '' Then
     883   Do
     884      simplelogononly = VRGet("CB_SimpleLogonOnly","Set")
     885      ini_changes = 1
     886   End
     887If \enablelanstart Then
     888   Do
     889      simplelogononly = 0
     890      ini_changes = 1
     891   End
     892ok = VRSet("CB_SimpleLogonOnly","Set", simplelogononly, "Enabled", enablelanstart )
     893lanstartupfolder = VRGetIni( "folders", "lanstartupfolder", our_ini, 'NoClose')
     894If lanstartupfolder = '' Then
     895   Do
     896      lanstartupfolder = VRGet("EF_LANStartupfolder","Value")
     897      ini_changes = 1
     898   End
     899ok = VRSet("EF_LANStartupfolder","Value", lanstartupfolder,"Enabled", enablelanstart )
     900ls_sleepsec = VRGetIni( "objects", "ls_sleepsec", our_ini, 'Noclose')
     901If ls_sleepsec = '' Then
     902   Do
     903      ls_sleepsec = VRGet("SPIN_ls_sleepsec","Value")
     904      ini_changes = 1
     905   End
     906ok = VRSet("SPIN_ls_sleepsec","Value", ls_sleepsec,"Enabled", enablelanstart )
     907ls_retries = VRGetIni( "objects", "ls_retries", our_ini, 'Noclose')
     908If ls_retries = '' Then
     909   Do
     910      ls_retries = VRGet("SPIN_ls_retries","Value")
     911      ini_changes = 1
     912   End
     913ok = VRSet("SPIN_ls_retries","Value", ls_retries,"Enabled", enablelanstart )
     914If p_init Then
     915   Call Page2_init
     916Return
     917/*:VRX         Page2_init
     918*/
     919Page2_init:
     920
     921return
     922
     923/*:VRX         Page3_Create
     924*/
     925Page3_create:
     926Parse Arg no_init
     927p_init = (no_init = '')
     928log_out = VRGetIni( "debug", "log_out", our_ini, 'Noclose')
     929If log_out = '' Then
     930   Do
     931      log_out = VRGet("CB_log_out","set")
     932      ini_changes = 1
     933   End
     934ok = VRSet("CB_log_out","set", log_out )
     935verbose = VRGetIni( "debug", "verbose", our_ini, 'NoClose')
     936If verbose = '' Then
     937   Do
     938      verbose = VRGet("CB_verbose","set")
     939      ini_changes = 1
     940   End
     941ok = VRSet("CB_verbose","set", verbose )
     942sound = VRGetIni( "RexxAutoStart", "Sound", our_ini )
     943If sound = '' Then
     944   Do
     945      sound = VRGet("CB_sound","set")
     946      ini_changes = 1
     947   End
     948ok = VRSet("CB_sound","set", sound )
     949sound_open = VRGetIni( "sound", "open", our_ini )
     950If sound_open = '' Then
     951   Do
     952      sound_open = "683"
     953      ini_changes = 1
     954   End
     955sound_done = VRGetIni( "sound", "done", our_ini )
     956If sound_done = '' Then
     957   Do
     958      sound_done = "681"
     959      ini_changes = 1
     960   End
     961sound_abort = VRGetIni( "sound", "abort", our_ini )
     962If sound_abort = '' Then
     963   Do
     964      sound_abort = "682"
     965      ini_changes = 1
     966   End
     967sound_start = VRGetIni( "sound", "start", our_ini )
     968If sound_start = '' Then
     969   Do
     970      sound_start = "684"
     971      ini_changes = 1
     972   End
     973If p_init Then
     974   Call Page3_init
     975Return
     976/*:VRX         Page3_Init
     977*/
     978Page3_Init:
     979
     980return
     981
     982/*:VRX         Page4_Create
     983*/
     984Page4_Create:
     985Parse Arg no_init
     986p_init = (no_init = '')
     987Parse Value(_rxfindlines('restartobjects=', config_sys)) ,
     988   With line_no . '=' next_restart '|' .
     989current_restart = Translate(Value('restartobjects', , 'os2environment'))
     990If line_no \= 0 Then
     991   Do
     992      ok = VRSet( "DT_RestartObjects", "Caption", next_restart )
     993      If next_restart = current_restart Then
     994         ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "" )
     995      Else
     996         Do
     997            If current_restart = '' Then
     998               ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "not found" )
     999            Else
     1000               Do
     1001                  ok = VRSet( "DT_RestartObjects", "Caption", next_restart "(next boot)")
     1002                  ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_restart "(current)" )
     1003               End
     1004         End
     1005   End
     1006Else
     1007   Do
     1008      ok = VRSet( "DT_RestartObjects", "Caption", "not found" )
     1009      If current_restart \= '' Then
     1010         ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_restart "(current)" )
     1011   End
     1012Parse Value(_rxfindlines('autostart=', config_sys)) ,
     1013   With line_no . '=' next_autostart '|' .
     1014If next_autostart <> new_autostart Then
     1015   next_autostart = new_autostart
     1016current_autostart = Translate(Value('autostart', , 'os2environment'))
     1017If line_no \= 0 Then
     1018   Do
     1019      ok = VRSet( "DT_AutoStart", "Caption", next_autostart )
     1020      If next_autostart = current_autostart Then
     1021         ok = VRSet( "DT_AutoStartCurrent", "Caption", "" )
     1022      Else
     1023         Do
     1024            If current_autostart = '' Then
     1025               ok = VRSet( "DT_AutoStartCurrent", "Caption", "not found" )
     1026            Else
     1027               Do
     1028                  ok = VRSet( "DT_AutoStart", "Caption", next_autostart "(next boot)")
     1029                  ok = VRSet( "DT_AutoStartCurrent", "Caption", current_autostart "(current)" )
     1030               End
     1031         End
     1032   End
     1033Else
     1034   Do
     1035      ok = VRSet( "DT_AutoStart", "Caption", "not found" )
     1036      If current_line \= '' Then
     1037         ok = VRSet( "DT_AutoStartCurrent", "Caption", current_autostart "(current)" )
     1038   End
     1039file_lines. = ''
     1040file_lines.0 = 0
     1041Parse Value(_rxfindlines('rxautost.exe', startup_cmd)) ,
     1042   With rxautost_line_no line '|' .
     1043If rxautost_line_no \= 0 ,
     1044   & Pos(startup_line, line) = 0 Then
     1045   Do
     1046      xrc = _rxupdline(rxautost_line_no, 'REM' line, startup_cmd, 'replace', 'close')
     1047      rxautost_line_no = 0
     1048   End
     1049If rxautost_line_no \= 0 Then
     1050   ok = VRSet( "DT_StartupCmd", "Caption", line )
     1051Else
     1052   ok = VRSet( "DT_StartupCmd", "Caption", "Rexx Autostart not active" )
     1053If VRFileExists(startup_cmd) Then
     1054   Do
     1055      isrexx = Abbrev(Charin(startup_cmd, 1, 2), '/*')
     1056      Call Stream startup_cmd, 'c', 'close'
     1057   End
     1058Else
     1059   isrexx = 0
     1060If VRFileExists( our_log ) Then
     1061   Do
     1062      log_lines = 0
     1063      Do While Lines(our_log)
     1064         junk = Linein(our_log)
     1065         log_lines = log_lines + 1
     1066      End
     1067      ok = VRSet( "DT_LogRecords", "Caption", log_lines "lines" )
     1068   End
     1069Else
     1070   ok = VRSet( "DT_LogRecords", "Caption", "does not exist" )
     1071Parse Value(_rxfindlines('restartobjects=no', config_sys)) ,
     1072   With restart_line_no .
     1073If rxautost_line_no \= 0 & restart_line_no \= 0 Then
     1074   Do
     1075      ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart enabled" )
     1076      ok = VRSet( "RB_RexxAutostartActivate", "Enabled", 0 )
     1077      ok = VRSet( "RB_RexxAutostartDeactivate", "Enabled", 1 )
     1078   End
     1079Else
     1080   Do
     1081      ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart disabled" )
     1082      ok = VRSet( "RB_RexxAutostartActivate", "Enabled", 1 )
     1083      ok = VRSet( "RB_RexxAutostartDeactivate", "Enabled", 0 )
     1084   End
     1085If p_init Then
     1086   Call Page4_init
     1087Return
     1088/*:VRX         Page4_init
     1089*/
     1090Page4_init:
     1091
     1092return
     1093
     1094/*:VRX         Page5_Create
     1095*/
     1096Page5_Create:
     1097
     1098return
     1099
     1100/*:VRX         PB_Cancel_Click
     1101*/
     1102PB_Cancel_Click:
    7251103Call Quit
    726 Return
    727 
    728 /*:VRX         MenuHelp_Click
    729 */
    730 Menuhelp_click:
    731 
    732 Return
    733 
    734 /*:VRX         MenuHelpAbout_Click
    735 */
    736 Menuhelpabout_click:
    737 window = Vrloadsecondary( "AboutBox", "W" )
    738 Return
    739 
    740 /*:VRX         MenuHelpViewManual_Click
    741 */
    742 Menuhelpviewmanual_click:
     1104return
     1105
     1106/*:VRX         PB_Help_Click
     1107*/
     1108PB_Help_Click:
    7431109'view rxautost.inf'
    744 Return
    745 
    746 /*:VRX         MenuRexxAutostartActivate_Click
    747 */
    748 Menurexxautostartactivate_click: Procedure Expose bootdrive file_lines. isrexx ini_changes
    749 config_file = bootdrive || '\config.sys'
    750 startup_file = bootdrive || '\startup.cmd'
     1110return
     1111
     1112/*:VRX         PB_InstallSound_Click
     1113*/
     1114Pb_installsound_click:
     1115/* This routine is loosely based on Mr. XWPS, Ulrich M”ller's sound001.cmd */
     1116
     1117/* enable new RexxAutoStart system sound */
     1118mmini = SysBootDrive()||"\MMOS2\MMPM.INI"
     1119
     1120/* these are the titles of the sounds to be created */
     1121rexxautostart_done = "RexxAutoStart: Done"
     1122rexxautostart_abort = "RexxAutoStart: Abort"
     1123rexxautostart_open = "RexxAutoStart: Open object"
     1124rexxautostart_start = "RexxAutoStart: Start"
     1125
     1126/* Create empty sound entries */
     1127rc = SysIni(mmini, "MMPM2_AlarmSounds", "681", "#"|| rexxautostart_done ||"#70")
     1128rc = SysIni(mmini, "MMPM2_AlarmSounds", "682", "#"|| rexxautostart_abort||"#70")
     1129rc = SysIni(mmini, "MMPM2_AlarmSounds", "683", "#"|| rexxautostart_open ||"#70")
     1130rc = SysIni(mmini, "MMPM2_AlarmSounds", "684", "#"|| rexxautostart_start ||"#70")
     1131
     1132/* open WP_SOUND */
     1133ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
     1134Return
     1135
     1136/*:VRX         PB_Set_Click
     1137*/
     1138PB_Set_Click:
     1139    Call _iniwrite
     1140    buttons.1 = "OK"
     1141    buttons.0 = 1
     1142    id = VRMessage( VRWindow(), "Saving of options to RxAutoSt.INI complete", "Saving RexxAutoStart options", "Information", "Buttons.", 1, 1 )
     1143return
     1144
     1145/*:VRX         PB_SoundConfig_Click
     1146*/
     1147Pb_soundconfig_click:
     1148/* open WP_SOUND */
     1149ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
     1150Return
     1151
     1152/*:VRX         PB_Undo_Click
     1153*/
     1154PB_Undo_Click:
     1155Call Page1_create 'no_init'
     1156Call Page2_create 'no_init'
     1157Call Page3_create 'no_init'
     1158Call Page4_create 'no_init'
     1159return
     1160
     1161/*:VRX         PB_UnInstallSound_Click
     1162*/
     1163Pb_uninstallsound_click:
     1164mmini = SysBootDrive()||"\MMOS2\MMPM.INI"
     1165Do i = 681 To 684
     1166   rc = SysIni(mmini, "MMPM2_AlarmSounds", i, "DELETE:")
     1167End
     1168
     1169/* open WP_SOUND */
     1170ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
     1171Return
     1172
     1173/*:VRX         PushbackAll
     1174*/
     1175PushbackAll:
     1176    Pages = 5
     1177    Delta = 400 /* This is the base distance between menubar an Page */
     1178
     1179    /* Tab Position */
     1180    TabWidth = VRget("TAB_1","Width")
     1181    TabHeight= VRget("TAB_1","Height")
     1182    TabTop = Delta - TabHeight
     1183
     1184    /* Page Position */
     1185    PageLeft = 120
     1186    PageTop = PageLeft + Delta
     1187
     1188    /* Page size */
     1189    PageHeight = 4000
     1190    PageWidth  = 5500
     1191    ok = VRset("DT_PageName", "Caption", "")
     1192    ok = VRSet("GB_Main","Left", 0)
     1193    ok = VRSet("GB_Main","Top", Delta - 60)
     1194
     1195    do I = 1 to Pages
     1196        ok = VRSet("TAB_"I,"Top", TabTop)
     1197        ok = VRSet("TAB_"I,"PicturePath","#2"||I)
     1198        ok = VRSet("TAB_"I,"Left",TabWidth*(I-1)+PageLeft)
     1199        ok = VRSet("TAB_"I,"Width",TabWidth)
     1200        ok = VRSet("TAB_"I,"Height",TabHeight)
     1201        ok = VRSet("Page_"I,"Height", PageHeight)
     1202        ok = VRSet("Page_"I,"Width", PageWidth)
     1203        ok = VRSet("Page_"I,"Left", PageLeft)
     1204        ok = VRSet("Page_"I,"Top", PageTop)
     1205        ok = VRSet("Page_"I,"Visible", 0)
     1206        ok = VRSet("Page_"I,"BackColor", "<default>")
     1207    end
     1208return
     1209
     1210/*:VRX         Quit
     1211*/
     1212Quit:
     1213    call QuitRxAutoUt
     1214    window = VRWindow()
     1215    call VRSet window, "Shutdown", 1
     1216    drop window
     1217return
     1218
     1219/*:VRX         QuitRxAutoUt
     1220*/
     1221QuitRxAutoUt:
     1222If ini_changes Then
     1223   Do
     1224      buttons.1 = "Yes"
     1225      buttons.2 = "Discard"
     1226      buttons.3 = "Cancel"
     1227      buttons.0 = 3
     1228      id = VRMessage( VRWindow(), "Save changes made before exiting RexxAutoStart Setup Utility?", "Save RexxAutoStart Options", "Query", "Buttons.", 1, 3 )
     1229      If id = 1 Then
     1230         Call _INIWrite
     1231      If id = 3 Then
     1232         Return
     1233   End
     1234return
     1235
     1236/*:VRX         RB_RexxAutostartActivate_Click
     1237*/
     1238RB_rexxautostartactivate_click: Procedure Expose bootdrive file_lines. isrexx ini_changes startup_line
     1239config_sys = bootdrive || '\config.sys'
     1240startup_cmd = bootdrive || '\startup.cmd'
    7511241/* update CONFIG.SYS */
    752 Parse Value(_rxfindlines('restartobjects=no', config_file)) ,
     1242Parse Value(_rxfindlines('restartobjects=no', config_sys)) ,
    7531243   With restart_line_no restart_line '|' restart_line_rem
    7541244If restart_line_no = 0 Then
    … …  
    7561246      file_lines. = ''
    7571247      file_lines.0 = 0
    758       Parse Value(_rxfindlines('restartobjects=', config_file)) ,
     1248      Parse Value(_rxfindlines('restartobjects=', config_sys)) ,
    7591249         With restart_line_no restart_line '|' .
    7601250      /* REM out the current SET RESTARTOBJECTS= line */
    7611251      restart_line = 'REM' restart_line
    762       xrc = _rxupdline(restart_line_no, restart_line, config_file)
     1252      xrc = _rxupdline(restart_line_no, restart_line, config_sys)
    7631253      /* do we have a SET RESTARTOBJECTS=NO line? */
    7641254      save_restart_line_no = restart_line_no
    … …  
    7751265            action = 'insert'
    7761266         End
    777       xrc = _rxupdline(restart_line_no, restart_line, config_file, action, 'close')
     1267      xrc = _rxupdline(restart_line_no, restart_line, config_sys, action, 'close')
    7781268   End
    7791269Else
    … …  
    7851275      file_lines. = ''
    7861276      file_lines.0 = 0
    787       startup_line = '@START /MIN' Directory() || '\RxAutoSt.EXE'
    7881277      If isrexx Then
    7891278         startup_line = 'Address cmd' '"' || startup_line || '"'
    790       /* do we have a startup.cmd file? */
    791       If Stream(startup_file, 'c', 'query exists') \= '' Then
    792          Do
    793             Parse Value(_rxfindlines('rxautost.exe', startup_file)) With ,
    794                startup_line_no . '|' startup_line_rem
     1279      /* do we have a startup.cmd file ? */
     1280      If Stream(startup_cmd, 'c', 'query exists') \= '' Then
     1281         Do
     1282            Parse Value(_rxfindlines('rxautost.exe', startup_cmd)) With ,
     1283               startup_line_no startup_line_current '|' startup_line_rem
    7951284            /* do we have a rxautost.exe line? */
    7961285            If startup_line_no = 0 Then
    … …  
    8071296                        startup_line_no = 0
    8081297                     End
    809                   xrc = _rxupdline(startup_line_no, startup_line, startup_file, action, 'close')
     1298                  xrc = _rxupdline(startup_line_no, startup_line, startup_cmd, action, 'close')
    8101299               End
     1300            Else
     1301               Do
     1302                  If Pos(startup_line, startup_line_current) = 0 Then
     1303                     xrc = _rxupdline(startup_line_no, startup_line, startup_cmd, 'replace', 'close')
     1304               End
    8111305         End
    8121306      Else
    8131307         Do
    814             xrc = _rxupdline(0, 'REM * * * added by RxAutoUt * * *', startup_file, 'insert')
    815             xrc = _rxupdline(1, startup_line, startup_file, 'insert')
    816             xrc = _rxupdline(2, 'EXIT', startup_file, 'insert', 'close')
    817          End
    818    End
    819 Else
    820    id = VRMessage( VRWindow(), "Update of" startup_file "bypassed due to failure to update" config_file, "", "Information", "", , )
    821 Call _setpage4
    822 ini_changes = 1
    823 Return
    824 
    825 /*:VRX         MenuRexxAutostartDeactivate_Click
    826 */
    827 Menurexxautostartdeactivate_click: Procedure Expose bootdrive file_lines. isrexx ,
     1308            xrc = _rxupdline(0, 'REM * * * added by RxAutoUt * * *', startup_cmd, 'insert')
     1309            xrc = _rxupdline(1, startup_line, startup_cmd, 'insert')
     1310            xrc = _rxupdline(2, 'EXIT', startup_cmd, 'insert', 'close')
     1311         End
     1312   End
     1313Else
     1314   id = VRMessage( VRWindow(), "Update of" startup_cmd "bypassed due to failure to update" config_sys, "", "Information", "", , )
     1315Call Page4_create 'no_init'
     1316ini_changes = 1
     1317Return
     1318/*:VRX         RB_RexxAutostartDeActivate_Click
     1319*/
     1320RB_rexxautostartdeactivate_click: Procedure Expose bootdrive file_lines. isrexx ,
    8281321   enablexstart ini_changes
    829 config_file = bootdrive || '\config.sys'
    830 startup_file = bootdrive || '\startup.cmd'
     1322config_sys = bootdrive || '\config.sys'
     1323startup_cmd = bootdrive || '\startup.cmd'
    8311324/* update CONFIG.SYS */
    832 Parse Value(_rxfindlines('restartobjects=no', config_file)) With ,
     1325Parse Value(_rxfindlines('restartobjects=no', config_sys)) With ,
    8331326   restart_line_no restart_line '|' restart_line_rem
    8341327If restart_line_no \= 0 Then
    … …  
    8381331      /* REM out the SET RESTARTOBJECTS=NO line */
    8391332      restart_line = 'REM' restart_line
    840       xrc = _rxupdline(restart_line_no, restart_line, config_file)
     1333      xrc = _rxupdline(restart_line_no, restart_line, config_sys)
    8411334      save_restart_line_no = restart_line_no
    8421335      /* do we have a SET RESTARTOBJECTS=STARTUPFOLDERSONLY line? */
    843       Parse Value(_rxfindlines('restartobjects=startupfoldersonly', config_file)) With ,
     1336      Parse Value(_rxfindlines('restartobjects=startupfoldersonly',config_sys)) With ,
    8441337         restart_line_no restart_line '|' restart_line_rem
    8451338      If Words(restart_line_rem) \= 0 Then
    … …  
    8551348            action = 'insert'
    8561349         End
    857       xrc = _rxupdline(restart_line_no, restart_line, config_file, action, 'close')
     1350      xrc = _rxupdline(restart_line_no, restart_line, config_sys, action, 'close')
    8581351   End
    8591352Else
    … …  
    8651358      file_lines. = ''
    8661359      file_lines.0 = 0
    867       Parse Value(_rxfindlines('rxautost.exe', startup_file)) With ,
     1360      Parse Value(_rxfindlines('rxautost.exe', startup_cmd)) With ,
    8681361         startup_line_no startup_line '|' startup_line_rem
    8691362      If startup_line_no \= 0 Then
    … …  
    8731366            Else
    8741367               startup_line = '/*' startup_line '*/'
    875             xrc = _rxupdline(startup_line_no, startup_line, startup_file, , 'close')
     1368            xrc = _rxupdline(startup_line_no, startup_line, startup_cmd, , 'close')
    8761369         End
    8771370      xrc = 1
    8781371   End
    8791372Else
    880    id = VRMessage( VRWindow(), "Update of" startup_file "bypassed due to failure to update" config_file, "", "Information", "", , )
    881 Call _setpage4
     1373   id = VRMessage( VRWindow(), "Update of" startup_cmd "bypassed due to failure to update" config_sys, "", "Information", "", , )
     1374Call Page4_create 'no_init'
    8821375If enablexstart Then
    8831376   enablexstart = 0
    8841377ini_changes = 1
    8851378Return 0
    886 
    887 /*:VRX         Page1_Close
    888 */
    889 Page1_close:
    890 Call Page1_fini
    891 Return
    892 
    893 /*:VRX         Page1_Create
    894 */
    895 Page1_create:
    896 Parse Arg no_init
    897 p_init = (no_init = '')
    898 wps_wait = VRGetIni( "workplace_shell", "wps_wait", our_ini, 'Noclose')
    899 If wps_wait = '' Then
    900    Do
    901       wps_wait = VRGet("CB_wps_wait","set")
    902       ini_changes = 1
    903    End
    904 ok = VRGet("CB_wps_wait","set", wps_wait )
    905 sc_wait = VRGetIni( "workplace_shell", "sc_wait", our_ini, 'Noclose')
    906 If sc_wait = '' Then
    907    Do
    908       sc_wait = Pos('WARPCENTER', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0
    909       ini_changes = 1
    910    End
    911 ok = VRSet("CB_sc_wait","set", sc_wait )
    912 ok = VRSet( "CB_sc_wait", "Enabled", sc_wait )
    913 tb_wait = VRGetIni( "workplace_shell", "tb_wait", our_ini, 'Noclose')
    914 If tb_wait = '' Then
    915    Do
    916       tb_wait = Pos('TOOLBAR', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0
    917       ini_changes = 1
    918    End
    919 ok = VRSet( "CB_tb_wait","set", tb_wait )
    920 ok = VRSet( "CB_tb_wait", "Enabled", tb_wait )
    921 xc_wait = VRGetIni( "workplace_shell", "xc_wait", our_ini, 'Noclose')
    922 If xc_wait = '' Then
    923    Do
    924       xc_wait = VRGet("CB_xc_wait", "Set")
    925       ini_changes = 1
    926    End
    927 ok = VRSet( "CB_xc_wait","set", xc_wait )
    928 ok = VRSet( "CB_xc_wait", "Enabled", WPToolsQueryObject('<XWP_XCENTER>') )
    929 delay_wait = VRGetIni( "workplace_shell", "delay_wait", our_ini, 'Noclose')
    930 If delay_wait = '' Then
    931    Do
    932       delay_wait = VRGet("SPIN_delay_wait", "Value")
    933       ini_changes = 1
    934    End
    935 ok = VRSet("SPIN_delay_wait", "Value", delay_wait )
    936 ok = VRSet("CB_delay","Set", (delay_wait > 0))
    937 od_wait = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose')
    938 If od_wait = '' Then
    939    Do
    940       od_wait = 0
    941       ini_changes = 1
    942    End
    943 objdesk = VRGetIni( "WPTS", "InstallDir", "User" ) <> ''
    944 ok = VRSet("CB_ODInstalled","set",objdesk)
    945 If objdesk Then
    946    Do
    947       ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is installed")
    948       od_cc = VRGetIni( "object_desktop", "od_cc", our_ini, 'Noclose')
    949       If od_cc = '' Then
    950          od_cc = 0
    951       ok = VRSet("CB_od_cc", "Set", od_cc)
    952       ok = VRSet("CB_od_cc", "Enabled", WPToolsQueryObject('<OBJD_CONTROLCENTER>'))
    953       od_tlp = VRGetIni( "object_desktop", "od_tlp", our_ini )
    954       If od_tlp = '' Then
    955          od_tlp = 0
    956       ok = VRSet("CB_od_tlp", "Set", od_tlp)
    957       ok = VRSet("CB_od_tlp", "Enabled", WPToolsQueryObject('<OBJD_TABLAUNCHPAD>'))
    958    End
    959 Else
    960    ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is not installed")
    961 od_tries = VRGetIni( "object_desktop", "od_tries", our_ini, 'Noclose')
    962 If od_tries = '' Then
    963    Do
    964       od_tries = 30
    965       ini_changes = 1
    966    End
    967 ok = VRSet("SPIN_od_tries","Value", od_tries )
    968 od_wait = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose')
    969 If p_init Then
    970    Call Page1_init
    971 Return
    972 
    973 /*:VRX         Page1_Fini
    974 */
    975 Page1_fini:
    976 window = VRInfo( "Window" )
    977 Call VRDestroy window
    978 Drop window
    979 Return
    980 /*:VRX         Page1_Init
    981 */
    982 Page1_init:
    983 window = VRInfo( "Object" )
    984 If( \VRIsChildOf( window, "Notebook" ) ) Then
    985    Do
    986       Call VRMethod window, "CenterWindow"
    987       Call VRSet window, "Visible", 1
    988       Call VRMethod window, "Activate"
    989    End
    990 Drop window
    991 Return
    992 
    993 /*:VRX         Page2_Close
    994 */
    995 Page2_close:
    996 Call Page1_fini
    997 Return
    998 
    999 /*:VRX         Page2_Create
    1000 */
    1001 Page2_create:
    1002 Parse Arg no_init
    1003 p_init = (no_init = '')
    1004 startupfolder = VRGetIni( "folders", "startupfolder", our_ini, 'NoClose')
    1005 If startupfolder = '' Then
    1006    Do
    1007       startupfolder = VRGet( "EF_Startupfolder", "Value" )
    1008       ini_changes = 1
    1009    End
    1010 ok = VRSet( "EF_Startupfolder", "Value", startupfolder )
    1011 xwpstartupfolder = Strip(VRGetIni('XWorkplace', 'XStartupFolders', 'User'), 't', '00'x)
    1012 xstartupfolder = Strip(VRGetIni( "folders", "XStartupFolders", our_ini, 'NoClose'), 't', '00'x)
    1013 Select
    1014    When xwpstartupfolder <> '' Then
    1015       Do
    1016          If WPToolsQueryObject('#' || xwpstartupfolder, , , 'szSetupString') Then
    1017             Do
    1018                Parse Value '.' szSetupString With . 'OBJECTID=' xstartupname ';' .
    1019                xstartupname = Strip(xstartupname)
    1020             End
    1021       End
    1022    When xstartupfolder <> '' Then
    1023       Do
    1024          If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then
    1025             Do
    1026                Parse Value '.' szSetupString With . 'OBJECTID=' xstartupname ';' .
    1027                xstartupname = Strip(xstartupname)
    1028             End
    1029       End
    1030    Otherwise
    1031       xstartupname = VRGet("EF_XStartupfolder", "Value" )
    1032 End
    1033 ok = VRSet("EF_XStartupfolder","Value", xstartupname )
    1034 enablexstart = VRGetIni( "folders", "enablexstart", our_ini, 'NoClose')
    1035 If enablexstart = '' Then
    1036    Do
    1037       enablexstart = 0
    1038       ini_changes = 1
    1039    End
    1040 ok = VRSet("CB_EnableXStartupfolder", "Set", enablexstart )
    1041 ok = VRSet("CB_EnableXStartupfolder","Enabled", xwpstartupfolder <> '' | xstartupfolder <> '' )
    1042 retries = VRGetIni( "objects", "retries", our_ini, 'Noclose')
    1043 If retries = '' Then
    1044    Do
    1045       retries = 2
    1046       ini_changes = 1
    1047    End
    1048 ok = VRSet("SPIN_retries","Value", retries )
    1049 sleepsec = VRGetIni( "objects", "sleepsec", our_ini, 'Noclose')
    1050 If sleepsec = '' Then
    1051    Do
    1052       sleepsec = VRGet("SPIN_sleepsec","Value")
    1053       ini_changes = 1
    1054    End
    1055 ok = VRSet("SPIN_sleepsec","Value", sleepsec )
    1056 enablelanstart = VRGetIni( "folders", "enablelanstart", our_ini, 'NoClose')
    1057 If enablelanstart = '' Then
    1058    Do
    1059       enablelanstart = VRGet("CB_EnableLANStartupfolder","Set")
    1060       ini_changes = 1
    1061    End
    1062 ok = VRSet("CB_EnableLANStartupfolder","Set", enablelanstart )
    1063 simplelogononly = VRGetIni( "folders", "simplelogononly", our_ini, 'NoClose')
    1064 If simplelogononly = '' Then
    1065    Do
    1066       simplelogononly = VRGet("CB_SimpleLogonOnly","Set")
    1067       ini_changes = 1
    1068    End
    1069 If \enablelanstart Then
    1070    Do
    1071       simplelogononly = 0
    1072       ini_changes = 1
    1073    End
    1074 ok = VRSet("CB_SimpleLogonOnly","Set", simplelogononly)
    1075 ok = VRSet( "CB_SimpleLogonOnly", "Enabled", enablelanstart )
    1076 lanstartupfolder = VRGetIni( "folders", "lanstartupfolder", our_ini, 'NoClose')
    1077 If lanstartupfolder = '' Then
    1078    Do
    1079       lanstartupfolder = VRGet("EF_LANStartupfolder","Value")
    1080       ini_changes = 1
    1081    End
    1082 ok = VRSet("EF_LANStartupfolder","Value", lanstartupfolder )
    1083 ok = VRSet("EF_LANStartupfolder","Enabled", enablelanstart )
    1084 ls_sleepsec = VRGetIni( "objects", "ls_sleepsec", our_ini, 'Noclose')
    1085 If ls_sleepsec = '' Then
    1086    Do
    1087       ls_sleepsec = VRGet("SPIN_ls_sleepsec","Value")
    1088       ini_changes = 1
    1089    End
    1090 ok = VRSet("SPIN_ls_sleepsec","Value", ls_sleepsec )
    1091 ok = VRSet("SPIN_ls_sleepsec","Enabled", enablelanstart )
    1092 ls_retries = VRGetIni( "objects", "ls_retries", our_ini, 'Noclose')
    1093 If ls_retries = '' Then
    1094    Do
    1095       ls_retries = VRGet("SPIN_ls_retries","Value")
    1096       ini_changes = 1
    1097    End
    1098 ok = VRSet("SPIN_ls_retries","Value", ls_retries )
    1099 ok = VRSet("SPIN_ls_retries","Enabled", enablelanstart )
    1100 If p_init Then
    1101    Call Page2_init
    1102 Return
    1103 
    1104 /*:VRX         Page2_Fini
    1105 */
    1106 Page2_fini:
    1107 window = VRInfo( "Window" )
    1108 Call VRDestroy window
    1109 Drop window
    1110 Return
    1111 /*:VRX         Page2_Init
    1112 */
    1113 Page2_init:
    1114 window = VRInfo( "Object" )
    1115 If( \VRIsChildOf( window, "Notebook" ) ) Then
    1116    Do
    1117       Call VRMethod window, "CenterWindow"
    1118       Call VRSet window, "Visible", 1
    1119       Call VRMethod window, "Activate"
    1120    End
    1121 Drop window
    1122 Return
    1123 
    1124 /*:VRX         Page3_Close
    1125 */
    1126 Page3_close:
    1127 Call Page3_fini
    1128 Return
    1129 
    1130 /*:VRX         Page3_Create
    1131 */
    1132 Page3_create:
    1133 Parse Arg no_init
    1134 p_init = (no_init = '')
    1135 log_out = VRGetIni( "debug", "log_out", our_ini, 'Noclose')
    1136 If log_out = '' Then
    1137    Do
    1138       log_out = VRGet("CB_log_out","set")
    1139       ini_changes = 1
    1140    End
    1141 ok = VRSet("CB_log_out","set", log_out )
    1142 verbose = VRGetIni( "debug", "verbose", our_ini, 'NoClose')
    1143 If verbose = '' Then
    1144    Do
    1145       verbose = VRGet("CB_verbose","set")
    1146       ini_changes = 1
    1147    End
    1148 ok = VRSet("CB_verbose","set", verbose )
    1149 sound = VRGetIni( "RexxAutoStart", "Sound", our_ini )
    1150 If sound = '' Then
    1151    Do
    1152       sound = VRGet("CB_sound","set")
    1153       ini_changes = 1
    1154    End
    1155 ok = VRSet("CB_sound","set", sound )
    1156 sound_open = VRGetIni( "sound", "open", our_ini )
    1157 If sound_open = '' Then
    1158    Do
    1159       sound_open = "683"
    1160       ini_changes = 1
    1161    End
    1162 sound_done = VRGetIni( "sound", "done", our_ini )
    1163 If sound_done = '' Then
    1164    Do
    1165       sound_done = "681"
    1166       ini_changes = 1
    1167    End
    1168 sound_abort = VRGetIni( "sound", "abort", our_ini )
    1169 If sound_abort = '' Then
    1170    Do
    1171       sound_abort = "682"
    1172       ini_changes = 1
    1173    End
    1174 sound_start = VRGetIni( "sound", "start", our_ini )
    1175 If sound_start = '' Then
    1176    Do
    1177       sound_start = "684"
    1178       ini_changes = 1
    1179    End
    1180 If p_init Then
    1181    Call Page3_init
    1182 Return
    1183 
    1184 /*:VRX         Page3_Fini
    1185 */
    1186 Page3_fini:
    1187 window = VRInfo( "Window" )
    1188 Call VRDestroy window
    1189 Drop window
    1190 Return
    1191 /*:VRX         Page3_Init
    1192 */
    1193 Page3_init:
    1194 window = VRInfo( "Object" )
    1195 If( \VRIsChildOf( window, "Notebook" ) ) Then
    1196    Do
    1197       Call VRMethod window, "CenterWindow"
    1198       Call VRSet window, "Visible", 1
    1199       Call VRMethod window, "Activate"
    1200    End
    1201 Drop window
    1202 Return
    1203 
    1204 /*:VRX         Page4_Close
    1205 */
    1206 Page4_close:
    1207 Call Page4_fini
    1208 Return
    1209 
    1210 /*:VRX         Page4_Create
    1211 */
    1212 Page4_create:
    1213 Parse Arg no_init
    1214 p_init = (no_init = '')
    1215 Parse Value(_rxfindlines('restartobjects=', bootdrive || '\config.sys')) ,
    1216    With line_no . '=' line '|' .
    1217 current_line = Translate(Value('restartobjects', , 'os2environment'))
    1218 If line_no \= 0 Then
    1219    Do
    1220       ok = VRSet( "DT_RestartObjects", "Caption", line )
    1221       If line = current_line Then
    1222          ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "" )
    1223       Else
    1224          Do
    1225             If current_line = '' Then
    1226                ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "not found" )
    1227             Else
    1228                Do
    1229                   ok = VRSet( "DT_RestartObjects", "Caption", line "(next boot)")
    1230                   ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" )
    1231                End
    1232          End
    1233    End
    1234 Else
    1235    Do
    1236       ok = VRSet( "DT_RestartObjects", "Caption", "not found" )
    1237       If current_line \= '' Then
    1238          ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" )
    1239    End
    1240 Parse Value(_rxfindlines('autostart=', bootdrive || '\config.sys')) ,
    1241    With line_no . '=' line '|' .
    1242 current_line = Translate(Value('autostart', , 'os2environment'))
    1243 If line_no \= 0 Then
    1244    Do
    1245       ok = VRSet( "DT_AutoStart", "Caption", line )
    1246       If line = current_line Then
    1247          ok = VRSet( "DT_AutoStartCurrent", "Caption", "" )
    1248       Else
    1249          Do
    1250             If current_line = '' Then
    1251                ok = VRSet( "DT_AutoStartCurrent", "Caption", "not found" )
    1252             Else
    1253                Do
    1254                   ok = VRSet( "DT_AutoStart", "Caption", line "(next boot)")
    1255                   ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" )
    1256                End
    1257          End
    1258    End
    1259 Else
    1260    Do
    1261       ok = VRSet( "DT_AutoStart", "Caption", "not found" )
    1262       If current_line \= '' Then
    1263          ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" )
    1264    End
    1265 Parse Value(_rxfindlines('rxautost.exe', bootdrive || '\startup.cmd')) ,
    1266    With rxautost_line_no line '|' .
    1267 If rxautost_line_no \= 0 Then
    1268    ok = VRSet( "DT_StartupCmd", "Caption", line )
    1269 Else
    1270    ok = VRSet( "DT_StartupCmd", "Caption", "Rexx Autostart not active" )
    1271 If VRFileExists( bootdrive || "\startup.cmd" ) Then
    1272    isrexx = Abbrev(Charin(bootdrive || "\startup.cmd", 1, 2), '/*')
    1273 Else
    1274    isrexx = 0
    1275 If VRFileExists( our_log ) Then
    1276    Do
    1277       log_lines = 0
    1278       Do While Lines(our_log)
    1279          junk = Linein(our_log)
    1280          log_lines = log_lines + 1
    1281       End
    1282       ok = VRSet( "DT_LogRecords", "Caption", log_lines "lines" )
    1283    End
    1284 Else
    1285    ok = VRSet( "DT_LogRecords", "Caption", "does not exist" )
    1286 Parse Value(_rxfindlines('restartobjects=no', bootdrive || '\config.sys')) ,
    1287    With restart_line_no .
    1288 If rxautost_line_no \= 0 & restart_line_no \= 0 Then
    1289    Do
    1290       ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart enabled" )
    1291       ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 0 )
    1292       ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 1 )
    1293    End
    1294 Else
    1295    Do
    1296       ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart disabled" )
    1297       ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 1 )
    1298       ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 0 )
    1299    End
    1300 If p_init Then
    1301    Call Page4_init
    1302 Call _iniread
    1303 Return
    1304 
    1305 /*:VRX         Page4_Fini
    1306 */
    1307 Page4_fini:
    1308 window = VRInfo( "Window" )
    1309 Call VRDestroy window
    1310 Drop window
    1311 Return
    1312 /*:VRX         Page4_Init
    1313 */
    1314 Page4_init:
    1315 window = VRInfo( "Object" )
    1316 If( \VRIsChildOf( window, "Notebook" ) ) Then
    1317    Do
    1318       Call VRMethod window, "CenterWindow"
    1319       Call VRSet window, "Visible", 1
    1320       Call VRMethod window, "Activate"
    1321    End
    1322 Drop window
    1323 Return
    1324 
    1325 /*:VRX         ParkingLot
    1326 */
    1327 Parkinglot:
    1328 Say 'RxAutoSt.EXE in PATH?'
    1329 Say 'Envar RxAutoSt set?'
    1330 Say 'RESTARTOBJECTS set?'
    1331 Say 'AUTOSTART set?'
    1332 Say 'RxAutoSt.EXE in STARTUP.CMD?'
    1333 /* SET AUTOSTART=PROGRAMS,TASKLIST,FOLDERS
    1334    SET RESTARTOBJECTS=STARTUPFOLDERSONLY
    1335    SET RXAUTOST=/WPS /D:20 /X /E */
    1336 Return
    1337 
    1338 /*:VRX         PB_AboutBox_OK_Click
    1339 */
    1340 Pb_aboutbox_ok_click:
    1341 Call Aboutbox_close
    1342 Return
    1343 
    1344 /*:VRX         PB_Cancel_Click
    1345 */
    1346 Pb_cancel_click:
    1347 Call Quit
    1348 Return
    1349 
    1350 /*:VRX         PB_InstallSound_Click
    1351 */
    1352 Pb_installsound_click:
    1353 /* This routine is loosely based on Mr. XWPS, Ulrich M”ller's sound001.cmd */
    1354 
    1355 /* enable new RexxAutoStart system sound */
    1356 mmini = SysBootDrive()||"\MMOS2\MMPM.INI"
    1357 
    1358 /* these are the titles of the sounds to be created */
    1359 rexxautostart_done = "RexxAutoStart: Done"
    1360 rexxautostart_abort = "RexxAutoStart: Abort"
    1361 rexxautostart_open = "RexxAutoStart: Open object"
    1362 rexxautostart_start = "RexxAutoStart: Start"
    1363 
    1364 /* Create empty sound entries */
    1365 rc = SysIni(mmini, "MMPM2_AlarmSounds", "681", "#"|| rexxautostart_done ||"#70")
    1366 rc = SysIni(mmini, "MMPM2_AlarmSounds", "682", "#"|| rexxautostart_abort||"#70")
    1367 rc = SysIni(mmini, "MMPM2_AlarmSounds", "683", "#"|| rexxautostart_open ||"#70")
    1368 rc = SysIni(mmini, "MMPM2_AlarmSounds", "684", "#"|| rexxautostart_start ||"#70")
    1369 
    1370 /* open WP_SOUND */
    1371 ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
    1372 Return
    1373 
    1374 /*:VRX         PB_Set_Click
    1375 */
    1376 Pb_set_click:
    1377 Call _iniwrite
    1378 buttons.1 = "OK"
    1379 buttons.0 = 1
    1380 id = VRMessage( VRWindow(), "Saving of options to RxAutoSt.INI complete", "Saving RexxAutoStart options", "Information", "Buttons.", 1, 1 )
    1381 
    1382 Return
    1383 /*:VRX         PB_SoundConfig_Click
    1384 */
    1385 Pb_soundconfig_click:
    1386 /* open WP_SOUND */
    1387 ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
    1388 Return
    1389 
    1390 /*:VRX         PB_Undo_Click
    1391 */
    1392 Pb_undo_click:
    1393 Call Page1_Create no_load
    1394 Call Page2_Create no_load
    1395 Call Page3_Create no_load
    1396 Call Page4_Create no_load
    1397 Call _iniread
    1398 Return
    1399 
    1400 /*:VRX         PB_UnInstallSound_Click
    1401 */
    1402 Pb_uninstallsound_click:
    1403 mmini = SysBootDrive()||"\MMOS2\MMPM.INI"
    1404 Do i = 681 To 684
    1405    rc = SysIni(mmini, "MMPM2_AlarmSounds", i, "DELETE:")
    1406 End
    1407 
    1408 /* open WP_SOUND */
    1409 ok = SysOpenObject("<WP_SOUND>","DEFAULT",1)
    1410 Return
    1411 
    1412 /*:VRX         Quit
    1413 */
    1414 Quit:
    1415 If ini_changes Then
    1416    Do
    1417       buttons.1 = "Yes"
    1418       buttons.2 = "Discard"
    1419       buttons.3 = "Cancel"
    1420       buttons.0 = 3
    1421       id = VRMessage( VRWindow(), "Save changes made before exiting RexxAutoStart Setup Utility?", "Save RexxAutoStart Options", "Query", "Buttons.", 1, 3 )
    1422       If id = 1 Then
    1423          Call _INIWrite
    1424       If id = 3 Then
    1425          Return
    1426    End
    1427 window = VRWindow()
    1428 Call VRSet window, "Shutdown", 1
    1429 Drop window
    1430 Return
     1379/*:VRX         RB_sc_open_Click
     1380*/
     1381RB_sc_open_Click:
     1382sc_wait = VRGet("RB_sc_wait", "Set")
     1383sc_open = VRGet("RB_sc_open","Set")
     1384Call Update_autostart 'warpcenter', sc_wait, sc_open
     1385ini_changes = 1
     1386return
     1387
     1388/*:VRX         RB_sc_wait_Click
     1389*/
     1390RB_sc_wait_Click:
     1391sc_wait = VRGet("RB_sc_wait", "Set")
     1392sc_open = VRGet("RB_sc_open","Set")
     1393Call Update_autostart 'warpcenter', sc_wait, sc_open
     1394ini_changes = 1
     1395return
     1396
     1397/*:VRX         RB_tb_open_Click
     1398*/
     1399RB_tb_open_Click:
     1400tb_wait = VRGet("RB_tb_wait", "Set")
     1401tb_open = VRGet("RB_tb_open","Set")
     1402Call Update_autostart 'toolbar', tb_wait, tb_open
     1403ini_changes = 1
     1404return
     1405
     1406/*:VRX         RB_tb_wait_Click
     1407*/
     1408RB_tb_wait_Click:
     1409tb_wait = VRGet("RB_tb_wait", "Set")
     1410tb_open = VRGet("RB_tb_open","Set")
     1411Call Update_autostart 'toolbar', tb_wait, tb_open
     1412ini_changes = 1
     1413return
     1414
     1415/*:VRX         RB_xc_open_Click
     1416*/
     1417RB_xc_open_Click:
     1418xc_wait = VRGet("RB_xc_wait", "Set")
     1419xc_open = VRGet("RB_xc_open","Set")
     1420ini_changes = 1
     1421return
     1422
     1423/*:VRX         RB_xc_wait_Click
     1424*/
     1425RB_xc_wait_Click:
     1426xc_wait = VRGet("RB_xc_wait","Set")
     1427xc_open = VRGet("RB_xc_open","Set")
     1428ini_changes = 1
     1429return
    14311430
    14321431/*:VRX         RxAutoUtMain_Close
    14331432*/
    1434 Rxautoutmain_close:
    1435 Call Quit
    1436 Return
     1433RxAutoUtMain_Close:
     1434    call Quit
     1435return
    14371436
    14381437/*:VRX         RxAutoUtMain_Create
    14391438*/
    1440 Rxautoutmain_create:
    1441 Return
     1439RxAutoUtMain_Create:
     1440    ok = VRMethod("PB_Set","SetFocus")
     1441    call PushbackAll
     1442    call TAB_1_Click
     1443    call Page1_Create
     1444    call Page2_Create
     1445    call Page3_Create
     1446    call Page4_Create
     1447    call RxAutoUtMain_Resize
     1448    ok = VRSet("RxAutoUtMain", "Visible", 1)
     1449    call TAB_1_Click
     1450    call TAB_1_Click
     1451return
     1452
     1453/*:VRX         RxAutoUtMain_Resize
     1454*/
     1455RxAutoUtMain_Resize:
     1456    MainWin = "RxAutoUtMain"
     1457    ok = VRset(MainWin,"Visible", 0)
     1458    ok = VRSet(MainWin,"Width",max(VRget(MainWin,"Width"),Pages*TabWidth+300))
     1459    ok = VRset("GB_Main","width",VRget(MainWin,"Width")-150)
     1460    ok = VRset("GB_Main","Height",VRget(MainWin,"Height")-1175)
     1461    ok = VRset("GB_Main2","width",VRget("GB_Main","Width")-260)
     1462    ok = VRset("GB_Main2","Height",VRget("GB_Main","Height")-275)
     1463    ok = VRset("GB_VerticalLine","Left",VRget("GB_Main2","Width")-60)
     1464    ok = VRset("GB_VerticalLine","Height",VRget("GB_Main2","Height")-410)
     1465    ok = VRset("IPB_Paper","Left",VRget("GB_Main2","width")-510)
     1466    ok = VRset("GB_HorLineTop","Width",VRget("GB_Main2","width")-480)
     1467    ok = VRset("GB_HorLineTop","Width",VRget("GB_Main2","width")-480)
     1468    ok = VRset("GB_LineSubtitle","Width",VRget("GB_Main2","width")-480)
     1469    do I = 1 to Pages
     1470        ok = VRSet("Page_"I,"Height", min(PageHeight,VRget("GB_Main2","Height")-600))
     1471        ok = VRSet("Page_"I,"Width", min(PageWidth,VRget("GB_Main2","Width")-450))
     1472    end
     1473    ok = VRSEt("PB_Set","top",VRGet("GB_Main","Height")+365)
     1474    ok = VRSEt("PB_Undo","top",VRGet("GB_Main","Height")+365)
     1475    ok = VRSEt("PB_Cancel","top",VRGet("GB_Main","Height")+365)
     1476    ButtonDist= 1080
     1477    ButtonNr  = 4
     1478    ButtonPos = max((VRget(MainWin,"Width")-ButtonDist*ButtonNr)/2,0)
     1479    ok = VRSEt("PB_Set","Left",ButtonPos+ButtonDist*(ButtonNr-4))
     1480    ok = VRSEt("PB_Undo","left",ButtonPos+ButtonDist*(ButtonNr-3))
     1481    ok = VRSEt("PB_Cancel","left",ButtonPos+ButtonDist*(ButtonNr-2))
     1482    ok = VRSEt("PB_Help","left",ButtonPos+ButtonDist*(ButtonNr-1))
     1483    ok = VRset(MainWin,"Visible", 1)
     1484return
    14421485
    14431486/*:VRX         SPIN_delay_wait_Change
    … …  
    14821525Return
    14831526
     1527/*:VRX         TAB_1_Click
     1528*/
     1529TAB_1_Click:
     1530    call Activate 1
     1531return
     1532
     1533/*:VRX         TAB_2_Click
     1534*/
     1535TAB_2_Click:
     1536    call Activate 2
     1537return
     1538
     1539/*:VRX         TAB_3_Click
     1540*/
     1541TAB_3_Click:
     1542    call Activate 3
     1543return
     1544
     1545/*:VRX         TAB_4_Click
     1546*/
     1547TAB_4_Click:
     1548    call Activate 4
     1549return
     1550
     1551/*:VRX         TAB_5_Click
     1552*/
     1553TAB_5_Click:
     1554    call Activate 5
     1555return
     1556
     1557/*:VRX         update_autostart
     1558*/
     1559update_autostart:
     1560Parse Upper Arg autostart_parm, autostart_wait, autostart_open, .
     1561/* opened by rexxautostart, remove from new_autostart */
     1562If autostart_open Then
     1563   Do
     1564      If Pos(autostart_parm, new_autostart) <> 0 Then
     1565         Do
     1566            Parse Var new_autostart temp_1 (autostart_parm) temp_2 .
     1567            new_autostart = Strip(temp_1||temp_2, 't', ',')
     1568            double_comma = Pos(',,', new_autostart)
     1569            If double_comma <> 0 Then
     1570               new_autostart = Substr(new_autostart, 1, double_comma)||Substr(new_autostart, double_comma + 2)
     1571         End
     1572   End
     1573/* not opened by rexxautostart, put back in new_autostart if being waited on */
     1574Else
     1575   Do
     1576      If autostart_wait ,
     1577         & Pos(autostart_parm, new_autostart) = 0 Then
     1578         new_autostart = new_autostart||','autostart_parm
     1579   End
     1580If new_autostart <> next_autostart Then
     1581   Do
     1582      next_autostart = new_autostart
     1583      ok = VRSet( "DT_AutoStart", "Caption", next_autostart "(next boot)")
     1584   End
     1585return
     1586

  • TabularUnified /projects/rxautost/src/testurl.vrp

    r20 r30  
    77VRXWindow: __VREMainWindow,1,1156,2168,5767,8000
    88VRXWindow: __VRESectionListWindow,1,2192,4481,2650,3342
    9 VRXWindow: __VREToolsWindow,1,2252,8335,4478,1659
     9VRXWindow: __VREToolsWindow,1,2252,8335,7999,1661
    1010UserFile: 1

  • TabularUnified /projects/wpiview/1.x/WPIVIEW.IPF

    r20 r30  
    77:h1 res=100.Introduction
    88
    9 :font facename='Default' size=0x0.:lines align=center.:hp2.WPIView Version 1.0.7:elines.
     9:lines align=center.:font facename='Default' size=0x0.W:hp2.PIView Version 1.1.0:elines.
    1010:p.:ehp2.This is&comma. as the name indicates&comma. a viewer for the content of
    1111WarpIN archives. Basically WPIView acts as a frontend for
    … …  
    2222:h1 res=200.License
    2323
    24 :font facename='Default' size=0x0.:p.This is free&comma. but copyrighted software. I&comma. Herwig
     24:p.:font facename='Default' size=0x0.This is free&comma. but copyrighted software. I&comma. Herwig
    2525Bauernfeind&comma. hold the copyright for
    2626this program. This software is provided ":hp2.AS IS:ehp2." and without any express or
    … …  
    4545:h1 res=300.Installation
    4646
    47 :font facename='Default' size=0x0.:p.:hp2.Recommended Installation&colon.
     47:p.:font facename='Default' size=0x0.R:hp2.ecommended Installation&colon.
    4848:ul.
    4949:li.:ehp2.Put WPIView.EXE into the same directory as WarpIN.EXE.
    … …  
    5353:li.Create a program object and associate *.WPI files with it.
    5454:eul.
    55 :note.RXU.DLL is not required for version 1.0.6 or higher anymore (and therefore not found in the package anymore).
     55:note.RXU.DLL is not required anymore for version 1.0.6 or better (and therefore not found in the package anymore).
    5656:p.:hp2.Alternative installation&colon.
    5757:ul.
    … …  
    6868:h1 res=400.Usage
    6969
    70 :font facename='Default' size=0x0.:p.Fonts can be individually configured using D'n'D from the font palette.
     70:p.:font facename='Default' size=0x0.Fonts can be individually configured using D'n'D from the font palette.
    7171
    7272:p.Hovering with the mouse cursor over elements of the window display a hint in the statusline at the bottom.
    … …  
    100100:h2 res=420.Files
    101101
    102 :font facename='Default' size=0x0.:p.Shows the files within the archive
     102:p.:font facename='Default' size=0x0.Shows the files within the archive
    103103:p.Use :hp2.contextmenu:ehp2. in order to
    104104:ul.
    … …  
    123123:h2 res=430.Script
    124124
    125 :font facename='Default' size=0x0.:p.Shows the installation script of the archive
     125:p.:font facename='Default' size=0x0.Shows the installation script of the archive
    126126:p.Use :hp2.contextmenu:ehp2. to
    127127:ul.
    … …  
    142142:h2 res=440.Info
    143143
    144 :font facename='Default' size=0x0.:p.Shows the properties and capabilities of the loaded WPI archive whether the archive script
     144:p.:font facename='Default' size=0x0.Shows the properties and capabilities of the loaded WPI archive whether the archive script
    145145:ul.
    146146:li.is an installable archive
    … …  
    165165:h2 res=450.Settings
    166166
    167 :font facename='Default' size=0x0.:ul.
     167:ul.:font facename='Default' size=0x0.
    168168:li.:hp2.Open file dialog on startup
    169169:p.:ehp2.By checking this option&comma. you can decide whether WPIView should open a
    … …  
    200200:h1 res=500.Acknowledgements
    201201
    202 :font facename='Default' size=0x0.:p.Ulrich M&oe.ller&comma. Jens Beckmann&comma. Yuri Dario&comma.
     202:p.:font facename='Default' size=0x0.Ulrich M&oe.ller&comma. Jens Beckmann&comma. Yuri Dario&comma.
    203203Paul Ratcliffe (WarpIN)
    204204:p.Chris Wohlgemuth (directory picker in DRCTL017.DLL)
    … …  
    218218:h1 res=600.Author
    219219
    220 :font facename='Default' size=0x0.:p.Author&colon. Herwig Bauernfeind&comma. 2006-2008
     220:p.:font facename='Default' size=0x0.Author&colon. Herwig Bauernfeind&comma. 2006-2010
    221221:p.mailto&colon.herwig.bauernfeind@aon.at
    222222:i1.Author

  • TabularUnified /projects/wpiview/1.x/WPIView.WIS

    r20 r30  
    22<HEAD>
    33<PCK INDEX=1
    4   PACKAGEID="Herwig Bauernfeind\WPIView\Program\1\0\8\0"
     4  PACKAGEID="Herwig Bauernfeind\WPIView\Program\1\1\0\0"
    55  TARGET="$(WARPIN_DEFAULTTOOLSPATH)\WPIView"
    66  SELECT
    … …  
    4646<P>That's it, trust me.
    4747
    48 <P>Author: Herwig Bauernfeind, 2006-2008
     48<P>Author: Herwig Bauernfeind, 2006-2010
    4949<P>EMail: <U><a href="mailto:herwig.bauernfeind@aon.at">herwig.bauernfeind@aon.at</a></U>
    5050</README>
    … …  
    7272
    7373<P>You are not allowed to think nasty about the author!   
    74 
    75 <P>By using this program you agree that it is legal to post messages about
    76 eComStation in OS/2 newsgroups and vice versa (or forums or wherever), otherwise
    77 you are not allowed to use this program (Yes, there is no valid license for
    78 FUDsters!).
    7974</README>
    8075</PAGE>

  • TabularUnified /projects/wpiview/1.x/changes

    r20 r30  
    1 Version 1.1.0
     1Version 1.1.0 19.06.2010
    22                        !Added: Support new date and time fields of WarpIN
    33                                1.0.18 or better
    … …  
    1111                        !Added: Notify user in case a search string was
    1212                                not found (anymore).
     13                        !Fixed: Do not allow modification of the script when
     14                                the WPI is loaded in read-only mode.
    1315Version 1.0.8 24.11.2008
    1416                        !Fixed: Properly initialize vendor, application,

  • TabularUnified /projects/wpiview/1.x/mkwpi.cmd

    r20 r30  
    66echo ---------------------- WIC --------------------------
    77setlocal
    8 wic wpiview%1 -v -s wpiview.WIS -a 1  wpiview.exe wpiview.hlp changes readme.wpiview 2 drctl017.dll drctl017.txt
     8wic wpiview%1.wpi -v -a 1 wpiview.exe wpiview.hlp changes readme.txt 2 drctl017.dll drctl017.txt -s wpiview.wis
    99endlocal
    1010echo ---------------------- End WIC ----------------------

  • TabularUnified /projects/wpiview/1.x/readme.11

    r20 r30  
    1 WPIView Version 1.1 Alpha-5
    2 ===========================
     1WPIView Version 1.1.0
     2=====================
    33
    44WarpIN 1.0.18 also shows date and time of the files in the archive.
    55This breaks WPIView 1.0.x.
    6 
    7 This is a 5th drop of the upcoming WPIView 1.1.
    8 
    9 Just replace previous WPIView.exe by the updated one.
    10 
    11 This alpha level software! Use at your own risk!
    12 It is only offered for testing purposes.
    136
    147Current limitations:

  • TabularUnified /projects/wpiview/1.x/readme.txt

    r20 r30  
    1 WPIView Version 1.0.8
     1WPIView Version 1.1.0
    22=====================
    33
    44This is, as the name indicates, a viewer for the content of WarpIN archives.
    5 Basically WPIView acts as a frontend for WIC.EXE, which comes with each version
    6 of WarpIN.
     5Basically WPIView acts as a frontend for WIC.EXE, which comes with each
     6version of WarpIN.
    77
    88The purpose of this program is to provide a simple tool for all those WarpIN
    … …  
    3636open the context menu which provides a context sensitive help on every page).
    3737
    38 Author: Herwig Bauernfeind, 2006-2008
     38Author: Herwig Bauernfeind, 2006-2010
    3939mailto:herwig.bauernfeind@aon.at

  • TabularUnified /projects/wpiview/1.x/wpiview.vrp

    r20 r30  
    88VRXWindow: __VREFileListWindow,1,1132,10841,2665,3358
    99VRXWindow: __VRESectionListWindow,1,4698,11130,6914,3342
    10 VRXWindow: __VREToolsWindow,1,2939,723,7490,1661
     10VRXWindow: __VREToolsWindow,1,2939,723,6987,1663
    1111UserFile: 1
    1212UserWindow: Main,1

  • TabularUnified /projects/wpiview/1.x/wpiview.vrx

    r20 r30  
    16831683*/
    16841684Page_4_ContextMenu:
     1685    ok = VRset("MLE_Script","Readonly",ReadOnlyMode)
     1686    ok = VRset("Menu_ContextScript_Update","Visible",\ReadOnlyMode)
     1687    ok = VRset("MItem_13","Visible",\ReadOnlyMode)
    16851688    ok = VRMethod( "Menu_Page_4", "Popup")
    16861689return
Note: See TracChangeset for help on using the changeset viewer.