/*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "0" Enabled "1" SystemMenu "1" Create "CALL RxAutoUtMain_Create" MinimizeButton "1" MaximizeButton "0" BorderType "dialog" WindowMode "Modal" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "1" DBCSConversionBar "0" WindowListTitle "" Height "6504" Left "1626" Top "2012" Width "6203" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "CALL RxAutoUtMain_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "RexxAutoStart Setup Utility" Font "9.WarpSans" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "Bottom" ShowHints "1" StatusFont "9.WarpSans" WindowIcon "$1" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "RxAutoUtMain" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRNotebook Binding "Spiral" BackPages "TopRight" MajorTabPos "Top" TabShape "Rounded" TabTextAlignment "Left" StatusTextAlignment "Left" InitialPageList ";Page1+Wait for...;Page2+Startup folder;Page3+Style;Page4+Status;" Height "4950" Left "0" Top "0" Width "5914" Visible "1" TabStop "0" Enabled "1" EventList binary lines 0 checksum 0 PageSelected "" NewPageSize "" PageDeleted "" PageLoad "" PreloadPages "1" TabIndex "0" Font "9.WarpSans" Click "" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "NB_Main" UserData binary lines 1 checksum 1593 "3b50616765342b436f6e66696720696e666f" HelpText "" HelpTag "" HintText "" END BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "602" Top "5059" Width "1039" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "~Save" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "3" Click "CALL PB_Set_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_Set" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "2168" Top "5059" Width "1039" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "~Reload" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "4" Click "CALL PB_Undo_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_Undo" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "3734" Top "5059" Width "1039" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "E~xit" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "5" Click "CALL PB_Cancel_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_Cancel" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRTimer Delay "3000" Enabled "1" Justification "Left" VertJustification "Top" WordBreak "0" Height "211" Left "120" Top "5059" Width "407" Visible "0" EventList binary lines 0 checksum 0 Trigger "" Autosize "1" Caption "Timer" Font "" ClipSiblings "0" TabIndex "6" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "TM_Animator" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRMenuBar Enabled "1" EventList binary lines 0 checksum 0 Name "MB_1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRMenu Caption "~File" Visible "1" EventList binary lines 0 checksum 0 Enabled "1" DefaultItem "" Click "" Name "MenuFile" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRMenuItem Accelerator "{Alt}A" Caption "~Activate Rexx Autostart" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "CALL MenuRexxAutostartActivate_Click" Name "MenuRexxAutostartActivate" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Update CONFIG.SYS and STARTUP.CMD" END BEGIN VRMenuItem Accelerator "{Alt}D" Caption "~Deactivate Rexx Autostart" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "CALL MenuRexxAutostartDeactivate_Click" Name "MenuRexxAutostartDeactivate" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Update CONFIG.SYS and STARTUP.CMD" END BEGIN VRMenuItem Accelerator "{Alt}X" Caption "E~xit" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "CALL MenuFileExit_Click" Name "MenuFileExit" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END END BEGIN VRMenu Caption "~Help" Visible "1" EventList binary lines 0 checksum 0 Enabled "1" DefaultItem "" Click "CALL MenuHelp_Click" Name "MenuHelp" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRMenuItem Accelerator "" Caption "~View manual" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "CALL MenuHelpViewManual_Click" Name "MenuHelpViewManual" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRMenuItem Accelerator "" Caption "-" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "" Name "MenuHelpSep1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRMenuItem Accelerator "" Caption "~About" Visible "1" EventList binary lines 0 checksum 0 Checked "0" Enabled "1" Click "CALL MenuHelpAbout_Click" Name "MenuHelpAbout" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END END END END /*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "0" Enabled "1" SystemMenu "0" Create "CALL Page1_Create" MinimizeButton "0" MaximizeButton "0" BorderType "sizeable" WindowMode "Modeless" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "0" DBCSConversionBar "0" WindowListTitle "" Height "3945" Left "1867" Top "5143" Width "5706" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "CALL Page1_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "" Font "" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "None" ShowHints "0" StatusFont "" WindowIcon "" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "Page1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRGroupBox BorderType "Captioned" Height "3614" Left "120" Top "0" Width "5194" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "Options" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "9.WarpSans Bold" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_Options" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRGroupBox BorderType "Captioned" Height "1822" Left "120" Top "120" Width "4954" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_3" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "361" Top "1050" Width "1325" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for XCenter" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "18" Click "CALL CB_xc_wait_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_xc_wait" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "361" Top "800" Width "1686" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for Toolbar object" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "2" Click "" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_tb_wait" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until the Toolbar has opened before continuing" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "1" NumericOnly "0" PadWithZeros "0" FastSpin "0" InitialList "!1!2!3!4!5!6!7!8!9!10!11!12!13!14!15!20!25!30!40!50!60" Height "271" Left "1686" Top "1445" Width "617" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_delay_wait_Change" Value "1" AlwaysUpdate "0" Index "1" BackColor "" ForeColor "" Font "" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "17" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_delay_wait" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "361" Top "550" Width "1987" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for WarpCenter object" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "3" Click "" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_sc_wait" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until Warp Center has opened before continuing" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "2409" Top "1476" Width "964" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "more seconds." Font "9.WarpSans" ClipSiblings "0" TabIndex "12" DragDrop "" ForeColor "Black" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "120" Top "1445" Width "1460" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Delay execution by" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "1" Click "CALL CB_DELAY_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_DELAY" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "General delay before continuing" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "120" Top "241" Width "2665" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "1" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait until Workplace Shell is populated" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "7" Click "" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_wps_wait" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until the Workplace Shell is open before continuing" Query "" QueryColumns "" END END BEGIN VRGroupBox BorderType "Captioned" Height "979" Left "120" Top "1942" Width "4954" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_4" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "2409" Top "602" Width "2138" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for TabLaunchPad object" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "5" Click "CALL CB_od_tlp_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_od_tlp" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until the Object Desktop TabLaunchPad has opened before continuing" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "120" Top "226" Width "1897" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Object Desktop is installed" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "4" Click "CALL CB_ODInstalled_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_ODInstalled" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "2409" Top "241" Width "2108" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for Control Center object" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "6" Click "CALL CB_od_cc_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_od_cc" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until the Object Desktop Control Center has opened before continuing" Query "" QueryColumns "" END END BEGIN VRGroupBox BorderType "Captioned" Height "550" Left "120" Top "2920" Width "4954" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_5" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "226" Width "422" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Check" Font "9.WarpSans" ClipSiblings "0" TabIndex "9" DragDrop "" ForeColor "Black" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_od_tries1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "1325" Top "226" Width "2258" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "times whether an object has opened" Font "9.WarpSans" ClipSiblings "0" TabIndex "11" DragDrop "" ForeColor "Black" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_od_tries2" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Applies to objects enabled on this page" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "1" NumericOnly "0" PadWithZeros "0" FastSpin "0" InitialList "!0!5!10!15!20!25!30!35" Height "271" Left "602" Top "196" Width "617" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_od_tries_Change" Value "30" AlwaysUpdate "0" Index "7" BackColor "" ForeColor "" Font "9.WarpSans Bold" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "16" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_od_tries" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END END END END /*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "1" Enabled "1" SystemMenu "0" Create "CALL Page4_Create" MinimizeButton "0" MaximizeButton "0" BorderType "sizeable" WindowMode "Modeless" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "0" DBCSConversionBar "0" WindowListTitle "" Height "3809" Left "434" Top "1168" Width "5586" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "CALL Page4_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "" Font "9.WarpSans" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "None" ShowHints "0" StatusFont "" WindowIcon "" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "Page4" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "This page displays info from CONFIG.SYS and STARTUP.CMD" BEGIN VRGroupBox BorderType "Captioned" Height "3084" Left "120" Top "0" Width "5191" Visible "1" Enabled "0" EventList binary lines 0 checksum 0 Caption "CONFIG.SYS, STARTUP.CMD, and RxAutoSt.LOG Info" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "9.WarpSans Bold" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_Info" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "241" Width "1460" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "RESTARTOBJECTS=" Font "9.WarpSans" ClipSiblings "0" TabIndex "22" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_14" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "964" Width "1054" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "AUTOSTART=" Font "9.WarpSans" ClipSiblings "0" TabIndex "21" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_15" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "1686" Width "1129" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "STARTUP.CMD:" Font "9.WarpSans" ClipSiblings "0" TabIndex "20" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_16" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "482" Width "1596" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "RESTARTOBJECTS=" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "23" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_RestartObjects" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "1205" Width "1521" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "SET AUTOSTART=" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "25" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_AutoStart" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "1927" Width "1265" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "STARTUP.CMD" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "24" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_StartupCmd" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "711" Width "2590" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "RESTARTOBJECTS= (CURRENT)" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "27" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_RestartObjectsCurrent" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "1445" Width "2514" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "SET AUTOSTART= (CURRENT)" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "26" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_AutoStartCurrent" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "2168" Width "1024" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "RxAutoSt.LOG:" Font "9.WarpSans" ClipSiblings "0" TabIndex "28" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_2" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "361" Top "2409" Width "1159" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "LOG RECORDS" Font "9.WarpSans Bold" ClipSiblings "0" TabIndex "30" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_LogRecords" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "120" Top "3252" Width "1430" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Rexx Autostart status" Font "" ClipSiblings "0" TabIndex "31" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_RexxAutostartStatus" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END END /*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "0" Enabled "1" SystemMenu "0" Create "CALL Page2_Create" MinimizeButton "0" MaximizeButton "0" BorderType "sizeable" WindowMode "Modeless" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "0" DBCSConversionBar "0" WindowListTitle "" Height "3945" Left "4963" Top "1421" Width "5830" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "CALL Page2_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "" Font "" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "None" ShowHints "0" StatusFont "" WindowIcon "" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "Page2" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRGroupBox BorderType "Captioned" Height "3626" Left "120" Top "120" Width "5553" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "Startup folders" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "9.WarpSans Bold" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_StartUpFolders" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VREntryField Autoscroll "1" Border "1" ReadOnly "0" Masked "0" Justification "Left" Autotab "0" Height "316" Left "241" Top "361" Width "2665" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" TextLimit "255" Value "" Font "9.WarpSans Bold" Change "CALL EF_StartUpFolder_Change" TabGroup "0" ClipSiblings "0" TabIndex "2" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "EF_StartUpFolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VREntryField Autoscroll "1" Border "1" ReadOnly "0" Masked "0" Justification "Left" Autotab "0" Height "316" Left "241" Top "2650" Width "2665" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" TextLimit "255" Value "" Font "9.WarpSans Bold" Change "CALL EF_LANStartUpFolder_Change" TabGroup "0" ClipSiblings "0" TabIndex "1" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "EF_LANStartUpFolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "3011" Top "407" Width "1430" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Startup folder object id" Font "9.WarpSans" ClipSiblings "0" TabIndex "6" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_Startupfolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "3011" Top "2698" Width "1927" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "LAN Startup/2 folder object id" Font "9.WarpSans" ClipSiblings "0" TabIndex "3" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_Startupfolder1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "1" NumericOnly "0" PadWithZeros "0" FastSpin "0" InitialList "!1!2!3!4!5!6!7!8!9!10!11!12!13!14!15!20!30!45!60" Height "271" Left "723" Top "1566" Width "497" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_retries_Change" Value "2" AlwaysUpdate "0" Index "2" BackColor "" ForeColor "" Font "" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "14" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_retries" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "241" Top "1596" Width "271" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Try" Font "9.WarpSans" ClipSiblings "0" TabIndex "19" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_4" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "/R:n switch" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "1325" Top "1596" Width "2424" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "times to open objects in startup folders" Font "9.WarpSans" ClipSiblings "0" TabIndex "21" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_5" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "241" Top "1939" Width "391" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Insert" Font "9.WarpSans" ClipSiblings "0" TabIndex "18" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_Insert" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "/P:n switch" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "1" NumericOnly "0" PadWithZeros "0" FastSpin "0" InitialList "!0.10!0.25!0.50!0.55!0.60!0.65!0.70!0.75!1.00!2.00!3.00!4.00!5.00!6.00!7.00!8.00!9.00!10.0!11.0!12.0!13.0!14.0!15.0!20.0!30.0!45.0!60.0" Height "271" Left "723" Top "1897" Width "738" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_sleepsec_Change" Value "2.00" AlwaysUpdate "0" Index "10" BackColor "" ForeColor "" Font "" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "11" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_sleepsec" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "1566" Top "1927" Width "3583" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "seconds between the opening of objects in startup folders" Font "9.WarpSans" ClipSiblings "0" TabIndex "20" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_12" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "241" Top "2289" Width "1882" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Enable LAN startup folder" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "23" Click "CALL CB_EnableLanStartUpFolder_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_EnableLanStartUpFolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Open objects in LAN startup folder after network services have started" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "241" Top "3264" Width "391" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Insert" Font "9.WarpSans" ClipSiblings "0" TabIndex "15" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_Insert1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "/P:n switch" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "1" NumericOnly "1" PadWithZeros "0" FastSpin "0" InitialList "!1!2!3!4!5" Height "241" Left "723" Top "3252" Width "626" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_ls_sleepsec_Change" Value "3" AlwaysUpdate "0" Index "3" BackColor "" ForeColor "" Font "" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "7" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_ls_sleepsec" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Number of attempts to query network status" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "1566" Top "3252" Width "2168" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "seconds between network checks" Font "9.WarpSans" ClipSiblings "0" TabIndex "16" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_17" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "1566" Top "3011" Width "2454" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "times for network startup and/or logon" Font "9.WarpSans" ClipSiblings "0" TabIndex "17" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_6" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRSpinButton Border "1" Justification "Center" ReadOnly "0" NumericOnly "1" PadWithZeros "0" FastSpin "0" InitialList "!30!40!50!60!70!80!90!100" Height "241" Left "723" Top "2987" Width "626" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 TextLimit "255" Change "CALL SPIN_ls_retries_Change" Value "60" AlwaysUpdate "0" Index "4" BackColor "" ForeColor "" Font "" BoundPart "EntryField" TabGroup "0" ClipSiblings "0" TabIndex "9" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "SPIN_ls_retries" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Number of time to query network status" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "241" Top "3011" Width "422" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Check" Font "9.WarpSans" ClipSiblings "0" TabIndex "13" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_7" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "/R:n switch" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "3011" Top "2289" Width "1129" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Wait for logon" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "22" Click "CALL CB_SimpleLogonOnly_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_SimpleLogonOnly" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Wait until logged on to domain before opening objects in LAN startup folder " Query "" QueryColumns "" END BEGIN VREntryField Autoscroll "1" Border "1" ReadOnly "0" Masked "0" Justification "Left" Autotab "0" Height "316" Left "241" Top "795" Width "2662" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Autosize "1" TextLimit "255" Value "Not installed" Font "9.WarpSans Bold" Change "" TabGroup "0" ClipSiblings "0" TabIndex "24" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" Verify "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "EF_XStartUpFolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Left" VertJustification "Top" WordBreak "1" Height "211" Left "3011" Top "843" Width "1807" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "XWP Startup folder object id" Font "9.WarpSans" ClipSiblings "0" TabIndex "4" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_Startupfolder2" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "241" Top "1205" Width "2063" Visible "1" TabStop "1" Enabled "0" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Integrate XWP startup folder" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "25" Click "CALL CB_EnableXStartUpFolder_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_EnableXStartUpFolder" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END END END /*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "0" Enabled "1" SystemMenu "1" Create "CALL AboutBox_Create" MinimizeButton "0" MaximizeButton "0" BorderType "sizeable" WindowMode "Modeless" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "1" DBCSConversionBar "0" WindowListTitle "" Height "2590" Left "2457" Top "2277" Width "4878" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "call AboutBox_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "About this program" Font "" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "None" ShowHints "0" StatusFont "" WindowIcon "" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "AboutBox" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "376" Left "1694" Top "1566" Width "1340" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "OK" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "1" Click "CALL PB_AboutBox_OK_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_AboutBox_OK" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" END BEGIN VRDescriptiveText Justification "Center" VertJustification "Center" WordBreak "0" Height "452" Left "241" Top "241" Width "4246" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "RexxAutoStart Setup Utility" Font "18.Times New Roman Bold Italic" ClipSiblings "0" TabIndex "2" DragDrop "" ForeColor "Blue" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_10" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Center" VertJustification "Center" WordBreak "0" Height "241" Left "384" Top "843" Width "3960" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Written (c) 1999-2002 by Herwig Bauernfeind" Font "" ClipSiblings "0" TabIndex "6" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_11" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRDescriptiveText Justification "Center" VertJustification "Center" WordBreak "0" Height "241" Left "226" Top "1205" Width "4276" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Autosize "1" Caption "Contains code (c) 1999-2002 by Chuck McKinnis" Font "" ClipSiblings "0" TabIndex "4" DragDrop "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "DT_13" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END END /*:VRW */ VRX OS/2 v2.14 B3 BEGIN Window Visible "0" Enabled "1" SystemMenu "0" Create "call Page3_Create" MinimizeButton "0" MaximizeButton "0" BorderType "sizeable" WindowMode "Modeless" MoveWithParent "1" LayoutStyle "None" HideButton "0" TitleBar "0" DBCSConversionBar "0" WindowListTitle "" Height "3809" Left "530" Top "4746" Width "5586" EventList binary lines 0 checksum 0 HorizGridSpacing "120" VertGridSpacing "120" GridVisible "1" GridAlign "1" Close "call Page3_Close" DoubleClick "" Destroy "" Resize "" Activate "" Deactivate "" Caption "" Font "" BackColor "" PicturePath "" HelpFile "" HelpTitle "" StatusArea "None" ShowHints "0" StatusFont "" WindowIcon "" Help "" Click "" DragDrop "" KeyPress "" ForeColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "Page3" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRGroupBox BorderType "Captioned" Height "1581" Left "120" Top "120" Width "5194" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "Output" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "9.WarpSans Bold" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_1" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "241" Top "361" Width "1189" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "1" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Verbose mode" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "16" Click "CALL CB_verbose_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_verbose" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Verbose output" Query "" QueryColumns "" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "241" Top "723" Width "1114" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "0" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Logging mode" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "13" Click "CALL CB_log_out_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_log_out" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Log results to RxAutoSt.LOG" Query "" QueryColumns "" END END BEGIN VRGroupBox BorderType "Captioned" Height "1701" Left "120" Top "1700" Width "5194" Visible "1" Enabled "1" EventList binary lines 0 checksum 0 Caption "Sound" BackColor "" ForeColor "" DoubleClick "" LayoutStyle "None" Font "9.WarpSans Bold" Click "" DragDrop "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "GB_2" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "2770" Top "723" Width "2200" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "Configure sounds" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "23" Click "CALL PB_SoundConfig_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_SoundConfig" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Open OS/2's sound object" END BEGIN VRCheckBox NoPointerFocus "0" Height "271" Left "241" Top "361" Width "2289" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Set "1" BoundSetValue "" BoundUnsetValue "" Autosize "1" Caption "Enable sounds in RexxAutoStart" Font "9.WarpSans" TabGroup "0" ClipSiblings "0" TabIndex "15" Click "CALL CB_Sound_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "CB_Sound" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "" Query "" QueryColumns "" END BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "2770" Top "241" Width "2200" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "Install/reset sounds" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "25" Click "CALL PB_InstallSound_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_InstallSound" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Install or reset sound events for RexxAutoStart" END BEGIN VRPushButton Default "0" Border "1" NoPointerFocus "0" Height "400" Left "2770" Top "1205" Width "2200" Visible "1" TabStop "1" Enabled "1" EventList binary lines 0 checksum 0 Cancel "0" BorderColor "" Autosize "0" Caption "Uninstall sounds" Font "9.WarpSans Bold" TabGroup "0" ClipSiblings "0" TabIndex "24" Click "CALL PB_UnInstallSound_Click" DragDrop "" GotFocus "" LostFocus "" KeyPress "" ForeColor "" BackColor "" ContextMenu "" DragTarget "All" AllowDrag "0" DragStart "" DragIcon "" DragDiscard "" DragPrint "" Name "PB_UnInstallSound" UserData binary lines 0 checksum 0 HelpText "" HelpTag "" HintText "Remove the RexxAutoStart sound events from OS/2's sound object" END END END /*:VRX Main */ /* Main */ Main: /* Process the arguments. Get the parent window. */ Parse Source . calledas . parent = "" argcount = Arg() argoff = 0 If( calledas \= "COMMAND" )Then Do If argcount >= 1 Then Do parent = Arg(1) argcount = argcount - 1 argoff = 1 End End; Else Do Call VROptions 'ImplicitNames' Call VROptions 'NoEchoQuit' End initargs.0 = argcount If( argcount > 0 )Then Do i = 1 To argcount initargs.i = Arg( i + argoff ) End Drop calledas argcount argoff /* Load the windows */ Call VRInit Parse Source . . spec _vreprimarywindowpath = , VRParseFileName( spec, "dpn" ) || ".VRW" _vreprimarywindow = , VRLoad( parent, _vreprimarywindowpath ) Drop parent spec If( _vreprimarywindow == "" )Then Do Call VRMessage "", "Cannot load window:" VRError(), , "Error!" _vrereturnvalue = 32000 Signal _vreleavemain End /* Process events */ Call Init Signal On Halt Do While( \ VRGet( _vreprimarywindow, "Shutdown" ) ) _vreevent = VREvent() Interpret _vreevent End _vrehalt: _vrereturnvalue = Fini() Call VRDestroy _vreprimarywindow _vreleavemain: Call VRFini Exit _vrereturnvalue Vrloadsecondary: __vrlswait = Abbrev( 'WAIT', Translate(Arg(2)), 1 ) If __vrlswait Then Do Call VRFlush End __vrlshwnd = VRLoad( VRWindow(), VRWindowPath(), Arg(1) ) If __vrlshwnd = '' Then Signal __vrlsdone If __vrlswait \= 1 Then Signal __vrlsdone Call VRSet __vrlshwnd, 'WindowMode', 'Modal' __vrlstmp = __vrlswindows.0 If( Datatype(__vrlstmp) \= 'NUM' ) Then Do __vrlstmp = 1 End Else Do __vrlstmp = __vrlstmp + 1 End __vrlswindows.__vrlstmp = VRWindow( __vrlshwnd ) __vrlswindows.0 = __vrlstmp Do While( VRIsValidObject( VRWindow() ) = 1 ) __vrlsevent = VREvent() Interpret __vrlsevent End __vrlstmp = __vrlswindows.0 __vrlswindows.0 = __vrlstmp - 1 Call VRWindow __vrlswindows.__vrlstmp __vrlshwnd = '' __vrlsdone: Return __vrlshwnd /*:VRX _INIWrite */ _iniwrite: ok = VRSetIni( "workplace_shell", "wps_wait", wps_wait, our_ini, "Noclose" ) ok = VRSetIni( "workplace_shell", "sc_wait", sc_wait, our_ini, "Noclose" ) ok = VRSetIni( "workplace_shell", "tb_wait", tb_wait, our_ini, "Noclose" ) ok = VRSetIni( "workplace_shell", "xc_wait", xc_wait, our_ini, "Noclose" ) ok = VRSetIni( "workplace_shell", "delay_wait", delay_wait, our_ini, "Noclose" ) ok = VRSetIni( "object_desktop", "od_wait", od_cc | od_tlp, our_ini, "Noclose" ) ok = VRSetIni( "object_desktop", "od_cc", od_cc, our_ini, "Noclose" ) ok = VRSetIni( "object_desktop", "od_tlp", od_tlp, our_ini, "NoClose" ) ok = VRSetIni( "object_desktop", "od_tries", od_tries, our_ini, "Noclose" ) ok = VRSetIni( "folders", "startupfolder", startupfolder, our_ini ) If enablexstart Then Do folder_id = VRGetIni('XWorkplace', 'XStartupFolders', 'User') If folder_id <> '' Then Do If VRSetIni( "folders", "XStartupFolders", folder_id, our_ini ) Then ok = VRDelIni('XWorkplace', 'XStartupFolders', 'User') End folder_id = VRGetIni('XWorkplace', 'XSavedStartupFolders', 'User') If folder_id <> '' Then Do If VRSetIni( "folders", "XSavedStartupFolders", folder_id, our_ini ) Then ok = VRDelIni('XWorkplace', 'XSavedStartupFolders', 'User') End End Else Do folder_id = VRGetIni('folders', 'XStartupFolders', our_ini) If folder_id <> '' Then Do If VRSetIni( "XWorkplace", "XStartupFolders", folder_id, "User" ) Then ok = VRDelIni('folders', 'XStartupFolders', our_ini) End folder_id = VRGetIni('folders', 'XSavedStartupFolders', our_ini) If folder_id <> '' Then Do If VRSetIni( "XWorkplace", "XSavedStartupFolders", folder_id, "User" ) Then ok = VRDelIni('folders', 'XSavedStartupFolders', our_ini) End End ok = VRSetIni( "folders", "enablexstart", enablexstart, our_ini, "Noclose" ) ok = VRSetIni( "objects", "sleepsec", sleepsec, our_ini, "Noclose" ) ok = VRSetIni( "objects", "retries", retries, our_ini, "Noclose" ) ok = VRSetIni( "folders", "enablelanstart", enablelanstart, our_ini, "Noclose" ) ok = VRSetIni( "folders", "simplelogononly", simplelogononly, our_ini, "Noclose" ) ok = VRSetIni( "folders", "lanstartupfolder", lanstartupfolder, our_ini, "Noclose" ) ok = VRSetIni( "objects", "ls_sleepsec", ls_sleepsec, our_ini, "Noclose" ) ok = VRSetIni( "objects", "ls_retries", ls_retries, our_ini, "Noclose" ) ok = VRSetIni( "debug", "log_out", log_out, our_ini, "Noclose" ) ok = VRSetIni( "debug", "verbose", verbose, our_ini, "Noclose" ) ok = VRSetIni( "RexxAutoStart", "Sound", sound, our_ini, "Noclose" ) ok = VRSetIni( "sound", "sound_open", sound_open, our_ini, "Noclose" ) ok = VRSetIni( "sound", "sound_done", sound_done, our_ini, "Noclose" ) ok = VRSetIni( "sound", "sound_abort", sound_abort, our_ini, "Noclose" ) ok = VRSetIni( "sound", "sound_start", sound_start, our_ini ) ini_changes = 0 Return /*:VRX _RxFindLines */ _rxfindlines: Procedure /* find a phrase in a file and return the line number, line, and all remmed out lines containing the phrase */ Parse Arg phrase, file found_line_no = 0 found_line = '' line_rem_no = '' If phrase <> '' & Stream(file, 'c', 'query exists') <> '' Then Do Call Stream file, 'c', 'close' xrc = SysFileSearch(phrase, file, 'lines.', 'N') If xrc = 0 & lines.0 <> 0 Then Do i = 1 To lines.0 Parse Var lines.i line_no line line_test = Strip(Strip(Translate(line), , "'"), , '"') If Abbrev(line_test, 'REM') , | Abbrev(line_test, '/*') , | Abbrev(line_test, ';') Then Do line_rem_no = line_rem_no line_no Iterate i End Else Do found_line_no = line_no found_line = line End End End Return found_line_no found_line '|' Strip(line_rem_no) /*:VRX _RxReadLines */ _rxreadlines: Procedure Expose file_lines. Parse Arg file Call Stream file, 'c', 'open read' file_lines. = '' file_lines.0 = 0 Do i = 1 While Lines(file) > 0 file_lines.i = Linein(file) End file_lines.0 = i Call Stream file, 'c', 'close' Return /*:VRX _RxUpdLine */ _rxupdline: Procedure Expose file_lines. Parse Arg line_no, line, file, action, close xrc = 1 replace = 0 insert = Abbrev(Translate(action), 'I') If \insert Then replace = 1 close = Abbrev(Translate(close), 'C') If file_lines.0 = 0 Then Call _rxreadlines file If replace Then file_lines.line_no = line Else /* insert a new line */ Do Do i = file_lines.0 To (line_no + 1) By -1 j = i + 1 file_lines.j = file_lines.i End j = line_no + 1 file_lines.j = line file_lines.0 = file_lines.0 + 1 End If close Then Do xrc = 0 save_file = SysTempFileName(VRParseFileName( file, "DPN" ) || '.???') buttons.1 = "OK" buttons.2 = "Cancel" buttons.0 = 2 id = VRMessage( VRWindow(), "Ready to rewrite" file, "", "Query", "Buttons.", , ) If id = 1 Then Do ok = VRCopyFile( file, save_file ) If ok Then Do ok = VRDeleteFile( file ) If ok Then Do Call _rxwritelines file xrc = 1 lines.1 = "Updated" file lines.2 = file "was saved as" save_file lines.0 = 2 id = VRMessageStem( VRWindow(), "Lines.", "", "Information", , , ) End Else Do error = VRError() id = VRMessage( VRWindow(), error, "", "Information", , , ) xrc = 0 lines.1 = "Deletion of" file "failed" lines.2 = file "was saved as" save_file lines.0 = 2 id = VRMessageStem( VRWindow(), "Lines.", "", "Information", , , ) End End Else Do error = VRError() id = VRMessage( VRWindow(), error, "", "Information", , , ) xrc = 0 lines.1 = "Unable to copy" file lines.2 = file "should be intact" lines.0 = 2 id = VRMessageStem( VRWindow(), "Lines.", "", "Information", , , ) End End Else Do xrc = 0 id = VRMessage( VRWindow(), "Update of" file "aborted", "", "Information", , , ) End file_lines. = '' file_lines.0 = 0 End Return xrc /*:VRX _RxWriteLines */ _rxwritelines: Procedure Expose file_lines. Parse Arg file Call Stream file, 'c', 'open write' Do i = 1 To file_lines.0 Call Lineout file, file_lines.i End Call Stream file, 'c', 'close' Return /*:VRX AboutBox_Close */ Aboutbox_close: Call Aboutbox_fini Return /*:VRX AboutBox_Create */ Aboutbox_create: Call Aboutbox_init Return /*:VRX AboutBox_Fini */ Aboutbox_fini: window = VRInfo( "Window" ) Call VRDestroy window Drop window Return /*:VRX AboutBox_Init */ Aboutbox_init: window = VRInfo( "Object" ) If( \VRIsChildOf( window, "Notebook" ) ) Then Do Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" End Drop window Return /*:VRX CB_DELAY_Click */ Cb_delay_click: If VRGet("CB_DELAY","set") Then Do ok = VRSet("SPIN_delay_wait","Enabled", 1) delay_wait = VRGet("SPIN_delay_wait","Value") End Else Do ok = VRSet("SPIN_delay_wait","Value", 0) ok = VRSet("SPIN_delay_wait","Enabled", 0) End ini_changes = 1 Return /*:VRX CB_EnableLanStartUpFolder_Click */ Cb_enablelanstartupfolder_click: enablelanstart = VRGet("CB_EnableLanStartUpFolder","set") If \enablelanstart Then simplelogononly = 0 ok = VRSet("CB_SimpleLogonOnly","Set", simplelogononly) ok = VRSet( "CB_SimpleLogonOnly", "Enabled", enablelanstart ) ok = VRSet("EF_LANStartupfolder","Enabled", enablelanstart ) ok = VRSet("SPIN_ls_sleepsec","Enabled", enablelanstart ) ok = VRSet("SPIN_ls_retries","Enabled", enablelanstart ) ini_changes = 1 Return /*:VRX CB_EnableXStartUpFolder_Click */ CB_EnableXStartUpFolder_Click: enablexstart = VRGet("CB_EnableXStartUpFolder","Set") xwpstartup = (VRGetIni('XWorkplace', 'XStartupFolders', 'User') <> '') xstartup = (VRGetIni( "folders", "xstartupfolder", our_ini ) <> '') ok = VRSet("CB_EnableXStartupfolder","Enabled", xwpstartup | xstartup ) ini_changes = 1 return /*:VRX CB_log_out_Click */ Cb_log_out_click: log_out = VRGet("CB_log_out","set") ini_changes = 1 Return /*:VRX CB_od_cc_Click */ Cb_od_cc_click: od_cc = VRGet("CB_od_cc","set") If (od_cc | od_tlp) & objdesk Then od_wait = 1 Else od_wait = 0 ini_changes = 1 Return /*:VRX CB_od_tlp_Click */ Cb_od_tlp_click: od_tlp = VRGet("CB_od_tlp","set") If (od_cc | od_tlp) & objdesk Then od_wait = 1 Else od_wait = 0 ini_changes = 1 Return /*:VRX CB_ODInstalled_Click */ Cb_odinstalled_click: ok = SysIni('USER', 'WPTS','ALL:',appstem.) objdesk = (appstem.0 > 0) ok = VRSet("CB_ODInstalled","set",objdesk) If objdesk Then ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is installed") Else ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is not installed") If (od_cc | od_tlp) & objdesk Then od_wait = 1 Else od_wait = 0 Return /*:VRX CB_SimpleLogonOnly_Click */ Cb_simplelogononly_click: simplelogononly = VRGet("CB_SimpleLogonOnly","set") ini_changes = 1 Return /*:VRX CB_Sound_Click */ Cb_sound_click: sound = VRGet("CB_Sound","set") ini_changes = 1 Return /*:VRX CB_verbose_Click */ Cb_verbose_click: verbose = VRGet("CB_verbose","set") ini_changes = 1 Return /*:VRX CB_xc_wait_Click */ CB_xc_wait_Click: xc_wait = VRGet( "CB_xc_wait", "Set" ) ini_changes = 1 return /*:VRX EF_LANStartUpFolder_Change */ Ef_lanstartupfolder_change: ini_changes = (lanstartupfolder <> VRGet("EF_LANstartUpFolder","Value")) lanstartupfolder = VRGet("EF_LANstartUpFolder","Value") If Left(lanstartupfolder,1) \= '<' | Right(lanstartupfolder,1) \= '>' Then Do ok = VRSet("EF_LANstartUpFolder","BackColor","Red") End Else ok = VRSet("EF_LANstartUpFolder","BackColor","") Return /*:VRX EF_StartUpFolder_Change */ Ef_startupfolder_change: ini_changes = (startupfolder <> VRGet("EF_StartUpFolder","Value")) startupfolder = VRGet("EF_StartUpFolder","Value") If Left(startupfolder,1) \= '<' | Right(startupfolder,1) \= '>' Then Do ok = VRSet("EF_StartUpFolder","BackColor","Red") End Else ok = VRSet("EF_StartUpFolder","BackColor","") Return /*:VRX Fini */ Fini: window = VRWindow() Call VRSet window, "Visible", 0 Drop window Return 0 /*:VRX GetBootDrive */ Getbootdrive: /* Use SysBootDrive if possible */ If Rxfuncadd('SysBootDrive', 'RexxUtil', 'SysBootDrive') Then Return Left(Value('RUNWORKPLACE',,'OS2ENVIRONMENT'),2) Else Return SysBootDrive() /*:VRX Halt */ Halt: Signal _vrehalt Return /*:VRX Init */ Init: Call Rxfuncadd 'SysLoadFuncs','Rexxutil','SysLoadFuncs' Call SysLoadFuncs Call Rxfuncadd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs' Call WPToolsLoadFuncs ok = VRRedirectStdIO('OFF') bootdrive = Getbootdrive() our_drive = VRCurrDrive() our_dir = our_drive || VRCurrDir( our_drive ) our_ini = our_dir || '\RXAUTOST.INI' our_log = our_dir || '\RXAUTOST.LOG' If VRFileExists( our_dir || '\rxautost.lvl' ) Then Do level = Strip(Linein(our_dir || '\rxautost.lvl')) Call Stream our_dir || '\rxautost.lvl', 'c', 'close' level = level Stream(our_dir || '\rxautout.exe', 'c', 'query timestamp') End Else level = '' caption = VRGet( "RxAutoUtMain", "Caption" ) ok = VRSet( "RxAutoUtMain", "Caption", caption level ) window = VRWindow() Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" Drop window ini_changes = Migrate_rexxautostart(our_ini, bootdrive) Return /*:VRX MenuFileExit_Click */ Menufileexit_click: Call Quit Return /*:VRX MenuHelp_Click */ Menuhelp_click: Return /*:VRX MenuHelpAbout_Click */ Menuhelpabout_click: window = Vrloadsecondary( "AboutBox", "W" ) Return /*:VRX MenuHelpViewManual_Click */ Menuhelpviewmanual_click: 'view rxautost.inf' Return /*:VRX MenuRexxAutostartActivate_Click */ Menurexxautostartactivate_click: Procedure Expose bootdrive file_lines. isrexx ini_changes config_file = bootdrive || '\config.sys' startup_file = bootdrive || '\startup.cmd' /* update CONFIG.SYS */ Parse Value(_rxfindlines('restartobjects=no', config_file)) , With restart_line_no restart_line '|' restart_line_rem If restart_line_no = 0 Then Do file_lines. = '' file_lines.0 = 0 Parse Value(_rxfindlines('restartobjects=', config_file)) , With restart_line_no restart_line '|' . /* REM out the current SET RESTARTOBJECTS= line */ restart_line = 'REM' restart_line xrc = _rxupdline(restart_line_no, restart_line, config_file) /* do we have a SET RESTARTOBJECTS=NO line? */ save_restart_line_no = restart_line_no If Words(restart_line_rem) \= 0 Then Do restart_line_no = Word(restart_line_rem, 1) restart_line = 'SET RESTARTOBJECTS=NO' action = 'replace' End Else Do restart_line_no = save_restart_line_no restart_line = 'SET RESTARTOBJECTS=NO' action = 'insert' End xrc = _rxupdline(restart_line_no, restart_line, config_file, action, 'close') End Else xrc = 1 /* update STARTUP.CMD */ If xrc Then Do file_lines. = '' file_lines.0 = 0 startup_line = '@START /MIN' Directory() || '\RxAutoSt.EXE' If isrexx Then startup_line = 'Address cmd' '"' || startup_line || '"' /* do we have a startup.cmd file ? */ If Stream(startup_file, 'c', 'query exists') \= '' Then Do Parse Value(_rxfindlines('rxautost.exe', startup_file)) With , startup_line_no . '|' startup_line_rem /* do we have a rxautost.exe line? */ If startup_line_no = 0 Then Do /* is it REMed out? */ If Words(startup_line_rem) \= 0 Then Do action = 'replace' startup_line_no = Word(startup_line_rem, 1) End Else Do action = 'insert' startup_line_no = 0 End xrc = _rxupdline(startup_line_no, startup_line, startup_file, action, 'close') End End Else Do xrc = _rxupdline(0, 'REM * * * added by RxAutoUt * * *', startup_file, 'insert') xrc = _rxupdline(1, startup_line, startup_file, 'insert') xrc = _rxupdline(2, 'EXIT', startup_file, 'insert', 'close') End End Else id = VRMessage( VRWindow(), "Update of" startup_file "bypassed due to failure to update" config_file, "", "Information", "", , ) Call Page4_create 'no_init' ini_changes = 1 Return /*:VRX MenuRexxAutostartDeactivate_Click */ Menurexxautostartdeactivate_click: Procedure Expose bootdrive file_lines. isrexx , enablexstart ini_changes config_file = bootdrive || '\config.sys' startup_file = bootdrive || '\startup.cmd' /* update CONFIG.SYS */ Parse Value(_rxfindlines('restartobjects=no', config_file)) With , restart_line_no restart_line '|' restart_line_rem If restart_line_no \= 0 Then Do file_lines. = '' file_lines.0 = 0 /* REM out the SET RESTARTOBJECTS=NO line */ restart_line = 'REM' restart_line xrc = _rxupdline(restart_line_no, restart_line, config_file) save_restart_line_no = restart_line_no /* do we have a SET RESTARTOBJECTS=STARTUPFOLDERSONLY line? */ Parse Value(_rxfindlines('restartobjects=startupfoldersonly', config_file)) With , restart_line_no restart_line '|' restart_line_rem If Words(restart_line_rem) \= 0 Then Do restart_line_no = Word(restart_line_rem, 1) restart_line = 'SET RESTARTOBJECTS=STARTUPFOLDERSONLY' action = 'replace' End Else Do restart_line_no = save_restart_line_no restart_line = 'SET RESTARTOBJECTS=STARTUPFOLDERSONLY' action = 'insert' End xrc = _rxupdline(restart_line_no, restart_line, config_file, action, 'close') End Else xrc = 1 /* update STARTUP.CMD */ If xrc Then Do file_lines. = '' file_lines.0 = 0 Parse Value(_rxfindlines('rxautost.exe', startup_file)) With , startup_line_no startup_line '|' startup_line_rem If startup_line_no \= 0 Then Do If \isrexx Then startup_line = 'REM' startup_line Else startup_line = '/*' startup_line '*/' xrc = _rxupdline(startup_line_no, startup_line, startup_file, , 'close') End xrc = 1 End Else id = VRMessage( VRWindow(), "Update of" startup_file "bypassed due to failure to update" config_file, "", "Information", "", , ) Call Page4_create 'no_init' If enablexstart Then enablexstart = 0 ini_changes = 1 Return 0 /*:VRX Migrate_rexxautostart */ Migrate_rexxautostart: Procedure Parse Arg our_ini, bootdrive ini_changes = 0 migrated = (VRGetIni( "RexxAutoStart", "migrate", our_ini ) = 1) old_parms = '' If \migrated Then Do /* do we have a startup.cmd file ? */ If VRFileExists( bootdrive || '\startup.cmd' ) Then Do Parse Value _rxfindlines('rxautost', bootdrive || '\startup.cmd') With , startup_line_no startup_line '|' . /* do we have a rxautost.exe line ? */ If startup_line_no <> 0 Then Do /* get any parameters */ exe_pos = Pos('RXAUTOST', Translate(startup_line)) Parse Value Substr(startup_line, exe_pos) With . old_parms End End old_parms = Space(old_parms Value('rxautost', , 'os2environment')) If old_parms = '' Then ok = VRSetIni( "RexxAutoStart", "migrate", '1', our_ini ) Else Do If VRGetIni( "workplace_shell", "wps_wait", our_ini) = '' , & Pos('/WPS', Translate(old_parms)) <> 0 Then ok = VRSetIni( "workplace_shell", "wps_wait", '1', our_ini) If VRGetIni( "workplace_shell", "sc_wait", our_ini) = '' , & Pos('/SC', Translate(old_parms)) <> 0 , & Pos('WARPCENTER', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 Then ok = VRSetIni( "workplace_shell", "sc_wait", '1', our_ini) If VRGetIni( "workplace_shell", "tb_wait", our_ini) = '' , & Pos('/TB', Translate(old_parms)) <> 0 , & Pos('TOOLBAR', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 Then ok = VRSetIni( "workplace_shell", "tb_wait", '1', our_ini) If VRGetIni( "workplace_shell", "delay_wait", our_ini) = '' , & Pos('/D:',Translate(old_parms)) <> 0 Then Do Parse Value Translate('.' old_parms) With . '/D:' delay_wait '/' . delay_wait = Strip(delay_wait) If delay_wait <> '' & Datatype(delay_wait, 'W') Then ok = VRSetIni( "workplace_shell", "delay_wait", delay_wait, our_ini) End If VRGetIni( "object_desktop", "od_wait", our_ini) = '' , & Pos('/OD ', Translate(old_parms)) <> 0 , & VRGetIni('WPTS', 'TSMasterSetup:StartupFlags', 'User') <> '' Then ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini ) If VRGetIni( "object_desktop", "od_cc", our_ini) = '' , & Pos('/ODC ', Translate(old_parms)) <> 0 Then ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini ) If VRGetIni( "object_desktop", "od_tlp", our_ini) = '' , & Pos('/ODT ', Translate(old_parms)) <> 0 Then ok = VRSetIni( "object_desktop", "od_wait", '1', our_ini ) If VRGetIni( "object_desktop", "od_tries", our_ini) = '' , & Pos('/OD:', Translate(old_parms)) <> 0 Then Do Parse Value Translate('.' old_parms) With . '/OD:' od_tries '/' . od_tries = Strip(od_tries) If od_tries <> '' & Datatype(od_tries, 'W') Then ok = VRSetIni( "object_desktop", "od_tries", od_tries, our_ini) End If VRGetIni( "folders", "startupfolder", our_ini) = '' , & Pos('/F:', Translate(old_parms)) <> 0 Then Do f_pos = Pos('/F:', Translate(old_parms)) If f_pos <> 0 Then Do Parse Value '.' old_parms With . + (f_pos) + 4 startupfolder '/' . startupfolder = Strip(Strip(Strip(startupfolder), , '"'), , "'") ok = VRSetIni( "folders", "startupfolder", startupfolder, our_ini) End End If VRGetIni( "objects", "retries", our_ini) = '' , & Pos('/R:', Translate(old_parms)) <> 0 Then Do Parse Value Translate('.' old_parms) With . '/R:' retries '/' . retries = Strip(retries) If retries <> '' & Datatype(retries, 'W') Then ok = VRSetIni( "objects", "retries", retries, our_ini) End If VRGetIni( "objects", "sleepsec", our_ini) = '' , & Pos('/P:', Translate(old_parms)) <> 0 Then Do Parse Value Translate('.' old_parms) With . '/P:' sleepsec '/' . sleepsec = Strip(sleepsec) If sleepsec <> '' & Datatype(sleepsec, 'W') Then ok = VRSetIni( "objects", "sleepsec", sleepsec, our_ini) End If VRGetIni( "debug", "log_out", our_ini) = '' , & Pos('/L', Translate(old_parms)) <> 0 Then ok = VRSetIni( "debug", "log_out", '1', our_ini) If VRGetIni( "debug", "verbose", our_ini ) = '' , & Pos('/V', Translate(old_parms)) <> 0 Then ok = VRSetIni( "debug", "verbose", '1', our_ini) ok = VRSetIni( "RexxAutoStart", "migrate", '1', our_ini ) ini_changes = 1 End End Return ini_changes /*:VRX Page1_Close */ Page1_close: Call Page1_fini Return /*:VRX Page1_Create */ Page1_create: Parse Arg no_init p_init = (no_init = '') wps_wait = VRGetIni( "workplace_shell", "wps_wait", our_ini, 'Noclose') If wps_wait = '' Then Do wps_wait = VRGet("CB_wps_wait","set") ini_changes = 1 End ok = VRSet("CB_wps_wait","set", wps_wait ) sc_wait = VRGetIni( "workplace_shell", "sc_wait", our_ini, 'Noclose') If sc_wait = '' Then Do sc_wait = Pos('WARPCENTER', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 ini_changes = 1 End ok = VRSet("CB_sc_wait","set", sc_wait, "Enabled", sc_wait ) tb_wait = VRGetIni( "workplace_shell", "tb_wait", our_ini, 'Noclose') If tb_wait = '' Then Do tb_wait = Pos('TOOLBAR', Translate(Value('AUTOSTART', , 'OS2ENVIRONMENT'))) <> 0 ini_changes = 1 End ok = VRSet( "CB_tb_wait","set", tb_wait, "Enabled", tb_wait ) xc_wait = VRGetIni( "workplace_shell", "xc_wait", our_ini, 'Noclose') If xc_wait = '' Then Do xc_wait = VRGet("CB_xc_wait", "Set") ini_changes = 1 End ok = VRSet( "CB_xc_wait","set", xc_wait, "Enabled", WPToolsQueryObject('')) delay_wait = VRGetIni( "workplace_shell", "delay_wait", our_ini, 'Noclose') If delay_wait = '' Then Do delay_wait = VRGet("SPIN_delay_wait", "Value") ini_changes = 1 End ok = VRSet("SPIN_delay_wait", "Value", delay_wait ) ok = VRSet("CB_delay","Set", (delay_wait > 0)) od_wait = VRGetIni( "object_desktop", "od_wait", our_ini, 'Noclose') If od_wait = '' Then Do od_wait = (VRGetIni('WPTS', 'TSMasterSetup:StartupFlags', 'User') <> '') ini_changes = 1 End objdesk = (VRGetIni( "WPTS", "InstallDir", "User" ) <> '') ok = VRSet("CB_ODInstalled","set",objdesk) If objdesk Then Do ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is installed") od_cc = VRGetIni( "object_desktop", "od_cc", our_ini, 'Noclose') If od_cc = '' Then od_cc = 0 ok = VRSet("CB_od_cc", "Set", od_cc, "Enabled", WPToolsQueryObject('')) od_tlp = VRGetIni( "object_desktop", "od_tlp", our_ini ) If od_tlp = '' Then od_tlp = 0 ok = VRSet("CB_od_tlp", "Set", od_tlp, "Enabled", WPToolsQueryObject('')) End Else Do ok = VRSet("CB_ODInstalled", "caption", "Object Desktop is not installed") od_cc = 0 od_tlp = 0 End od_tries = VRGetIni( "object_desktop", "od_tries", our_ini, 'Noclose') If od_tries = '' Then Do od_tries = 30 ini_changes = 1 End ok = VRSet("SPIN_od_tries","Value", od_tries ) If p_init Then Call Page1_init Return /*:VRX Page1_Fini */ Page1_fini: window = VRInfo( "Window" ) Call VRDestroy window Drop window Return /*:VRX Page1_Init */ Page1_init: window = VRInfo( "Object" ) If( \VRIsChildOf( window, "Notebook" ) ) Then Do Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" End Drop window Return /*:VRX Page2_Close */ Page2_close: Call Page1_fini Return /*:VRX Page2_Create */ Page2_create: Parse Arg no_init p_init = (no_init = '') startupfolder = VRGetIni( "folders", "startupfolder", our_ini, 'NoClose') If startupfolder = '' Then Do startupfolder = VRGet( "EF_Startupfolder", "Value" ) ini_changes = 1 End ok = VRSet( "EF_Startupfolder", "Value", startupfolder ) xwpstartupfolder = Strip(VRGetIni('XWorkplace', 'XStartupFolders', 'User'), 't', '00'x) xstartupfolder = Strip(VRGetIni( "folders", "XStartupFolders", our_ini, 'NoClose'), 't', '00'x) Select When xwpstartupfolder <> '' Then Do If WPToolsQueryObject('#' || xwpstartupfolder, , , 'szSetupString') Then Do Parse Value '.' szsetupstring With . 'OBJECTID=' xstartupname ';' . xstartupname = Strip(xstartupname) End End When xstartupfolder <> '' Then Do If WPToolsQueryObject('#' || xstartupfolder, , , 'szSetupString') Then Do Parse Value '.' szsetupstring With . 'OBJECTID=' xstartupname ';' . xstartupname = Strip(xstartupname) End End Otherwise xstartupname = VRGet("EF_XStartupfolder", "Value" ) End ok = VRSet("EF_XStartupfolder","Value", xstartupname ) enablexstart = VRGetIni( "folders", "enablexstart", our_ini, 'NoClose') If enablexstart = '' Then Do enablexstart = 0 ini_changes = 1 End ok = VRSet("CB_EnableXStartupfolder", "Set", enablexstart,"Enabled", xwpstartupfolder <> '' | xstartupfolder <> '' ) retries = VRGetIni( "objects", "retries", our_ini, 'Noclose') If retries = '' Then Do retries = 2 ini_changes = 1 End ok = VRSet("SPIN_retries","Value", retries ) sleepsec = VRGetIni( "objects", "sleepsec", our_ini, 'Noclose') If sleepsec = '' Then Do sleepsec = VRGet("SPIN_sleepsec","Value") ini_changes = 1 End ok = VRSet("SPIN_sleepsec","Value", sleepsec ) enablelanstart = VRGetIni( "folders", "enablelanstart", our_ini, 'NoClose') If enablelanstart = '' Then Do enablelanstart = VRGet("CB_EnableLANStartupfolder","Set") ini_changes = 1 End ok = VRSet("CB_EnableLANStartupfolder","Set", enablelanstart ) simplelogononly = VRGetIni( "folders", "simplelogononly", our_ini, 'NoClose') If simplelogononly = '' Then Do simplelogononly = VRGet("CB_SimpleLogonOnly","Set") ini_changes = 1 End If \enablelanstart Then Do simplelogononly = 0 ini_changes = 1 End ok = VRSet("CB_SimpleLogonOnly","Set", simplelogononly, "Enabled", enablelanstart ) lanstartupfolder = VRGetIni( "folders", "lanstartupfolder", our_ini, 'NoClose') If lanstartupfolder = '' Then Do lanstartupfolder = VRGet("EF_LANStartupfolder","Value") ini_changes = 1 End ok = VRSet("EF_LANStartupfolder","Value", lanstartupfolder,"Enabled", enablelanstart ) ls_sleepsec = VRGetIni( "objects", "ls_sleepsec", our_ini, 'Noclose') If ls_sleepsec = '' Then Do ls_sleepsec = VRGet("SPIN_ls_sleepsec","Value") ini_changes = 1 End ok = VRSet("SPIN_ls_sleepsec","Value", ls_sleepsec,"Enabled", enablelanstart ) ls_retries = VRGetIni( "objects", "ls_retries", our_ini, 'Noclose') If ls_retries = '' Then Do ls_retries = VRGet("SPIN_ls_retries","Value") ini_changes = 1 End ok = VRSet("SPIN_ls_retries","Value", ls_retries,"Enabled", enablelanstart ) If p_init Then Call Page2_init Return /*:VRX Page2_Fini */ Page2_fini: window = VRInfo( "Window" ) Call VRDestroy window Drop window Return /*:VRX Page2_Init */ Page2_init: window = VRInfo( "Object" ) If( \VRIsChildOf( window, "Notebook" ) ) Then Do Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" End Drop window Return /*:VRX Page3_Close */ Page3_close: Call Page3_fini Return /*:VRX Page3_Create */ Page3_create: Parse Arg no_init p_init = (no_init = '') log_out = VRGetIni( "debug", "log_out", our_ini, 'Noclose') If log_out = '' Then Do log_out = VRGet("CB_log_out","set") ini_changes = 1 End ok = VRSet("CB_log_out","set", log_out ) verbose = VRGetIni( "debug", "verbose", our_ini, 'NoClose') If verbose = '' Then Do verbose = VRGet("CB_verbose","set") ini_changes = 1 End ok = VRSet("CB_verbose","set", verbose ) sound = VRGetIni( "RexxAutoStart", "Sound", our_ini ) If sound = '' Then Do sound = VRGet("CB_sound","set") ini_changes = 1 End ok = VRSet("CB_sound","set", sound ) sound_open = VRGetIni( "sound", "open", our_ini ) If sound_open = '' Then Do sound_open = "683" ini_changes = 1 End sound_done = VRGetIni( "sound", "done", our_ini ) If sound_done = '' Then Do sound_done = "681" ini_changes = 1 End sound_abort = VRGetIni( "sound", "abort", our_ini ) If sound_abort = '' Then Do sound_abort = "682" ini_changes = 1 End sound_start = VRGetIni( "sound", "start", our_ini ) If sound_start = '' Then Do sound_start = "684" ini_changes = 1 End If p_init Then Call Page3_init Return /*:VRX Page3_Fini */ Page3_fini: window = VRInfo( "Window" ) Call VRDestroy window Drop window Return /*:VRX Page3_Init */ Page3_init: window = VRInfo( "Object" ) If( \VRIsChildOf( window, "Notebook" ) ) Then Do Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" End Drop window Return /*:VRX Page4_Close */ Page4_close: Call Page4_fini Return /*:VRX Page4_Create */ Page4_create: Parse Arg no_init p_init = (no_init = '') Parse Value(_rxfindlines('restartobjects=', bootdrive || '\config.sys')) , With line_no . '=' line '|' . current_line = Translate(Value('restartobjects', , 'os2environment')) If line_no \= 0 Then Do ok = VRSet( "DT_RestartObjects", "Caption", line ) If line = current_line Then ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "" ) Else Do If current_line = '' Then ok = VRSet( "DT_RestartObjectsCurrent", "Caption", "not found" ) Else Do ok = VRSet( "DT_RestartObjects", "Caption", line "(next boot)") ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" ) End End End Else Do ok = VRSet( "DT_RestartObjects", "Caption", "not found" ) If current_line \= '' Then ok = VRSet( "DT_RestartObjectsCurrent", "Caption", current_line "(current)" ) End Parse Value(_rxfindlines('autostart=', bootdrive || '\config.sys')) , With line_no . '=' line '|' . current_line = Translate(Value('autostart', , 'os2environment')) If line_no \= 0 Then Do ok = VRSet( "DT_AutoStart", "Caption", line ) If line = current_line Then ok = VRSet( "DT_AutoStartCurrent", "Caption", "" ) Else Do If current_line = '' Then ok = VRSet( "DT_AutoStartCurrent", "Caption", "not found" ) Else Do ok = VRSet( "DT_AutoStart", "Caption", line "(next boot)") ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" ) End End End Else Do ok = VRSet( "DT_AutoStart", "Caption", "not found" ) If current_line \= '' Then ok = VRSet( "DT_AutoStartCurrent", "Caption", current_line "(current)" ) End Parse Value(_rxfindlines('rxautost.exe', bootdrive || '\startup.cmd')) , With rxautost_line_no line '|' . If rxautost_line_no \= 0 Then ok = VRSet( "DT_StartupCmd", "Caption", line ) Else ok = VRSet( "DT_StartupCmd", "Caption", "Rexx Autostart not active" ) If VRFileExists( bootdrive || "\startup.cmd" ) Then Do isrexx = Abbrev(Charin(bootdrive || "\startup.cmd", 1, 2), '/*') Call Stream bootdrive || "\startup.cmd", 'c', 'close' End Else isrexx = 0 If VRFileExists( our_log ) Then Do log_lines = 0 Do While Lines(our_log) junk = Linein(our_log) log_lines = log_lines + 1 End ok = VRSet( "DT_LogRecords", "Caption", log_lines "lines" ) End Else ok = VRSet( "DT_LogRecords", "Caption", "does not exist" ) Parse Value(_rxfindlines('restartobjects=no', bootdrive || '\config.sys')) , With restart_line_no . If rxautost_line_no \= 0 & restart_line_no \= 0 Then Do ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart enabled" ) ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 0 ) ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 1 ) End Else Do ok = VRSet( "DT_RexxAutostartStatus", "Caption", "Rexx Autostart disabled" ) ok = VRSet( "MenuRexxAutostartActivate", "Enabled", 1 ) ok = VRSet( "MenuRexxAutostartDeactivate", "Enabled", 0 ) End If p_init Then Call Page4_init Return /*:VRX Page4_Fini */ Page4_fini: window = VRInfo( "Window" ) Call VRDestroy window Drop window Return /*:VRX Page4_Init */ Page4_init: window = VRInfo( "Object" ) If( \VRIsChildOf( window, "Notebook" ) ) Then Do Call VRMethod window, "CenterWindow" Call VRSet window, "Visible", 1 Call VRMethod window, "Activate" End Drop window Return /*:VRX ParkingLot */ Parkinglot: Say 'RxAutoSt.EXE in PATH?' Say 'Envar RxAutoSt set?' Say 'RESTARTOBJECTS set?' Say 'AUTOSTART set?' Say 'RxAutoSt.EXE in STARTUP.CMD?' /* SET AUTOSTART=PROGRAMS,TASKLIST,FOLDERS SET RESTARTOBJECTS=STARTUPFOLDERSONLY SET RXAUTOST=/WPS /D:20 /X /E */ Return /*:VRX PB_AboutBox_OK_Click */ Pb_aboutbox_ok_click: Call Aboutbox_close Return /*:VRX PB_Cancel_Click */ Pb_cancel_click: Call Quit Return /*:VRX PB_InstallSound_Click */ Pb_installsound_click: /* This routine is loosely based on Mr. XWPS, Ulrich M”ller's sound001.cmd */ /* enable new RexxAutoStart system sound */ mmini = SysBootDrive()||"\MMOS2\MMPM.INI" /* these are the titles of the sounds to be created */ rexxautostart_done = "RexxAutoStart: Done" rexxautostart_abort = "RexxAutoStart: Abort" rexxautostart_open = "RexxAutoStart: Open object" rexxautostart_start = "RexxAutoStart: Start" /* Create empty sound entries */ rc = SysIni(mmini, "MMPM2_AlarmSounds", "681", "#"|| rexxautostart_done ||"#70") rc = SysIni(mmini, "MMPM2_AlarmSounds", "682", "#"|| rexxautostart_abort||"#70") rc = SysIni(mmini, "MMPM2_AlarmSounds", "683", "#"|| rexxautostart_open ||"#70") rc = SysIni(mmini, "MMPM2_AlarmSounds", "684", "#"|| rexxautostart_start ||"#70") /* open WP_SOUND */ ok = SysOpenObject("","DEFAULT",1) Return /*:VRX PB_Set_Click */ Pb_set_click: Call _iniwrite buttons.1 = "OK" buttons.0 = 1 id = VRMessage( VRWindow(), "Saving of options to RxAutoSt.INI complete", "Saving RexxAutoStart options", "Information", "Buttons.", 1, 1 ) Return /*:VRX PB_SoundConfig_Click */ Pb_soundconfig_click: /* open WP_SOUND */ ok = SysOpenObject("","DEFAULT",1) Return /*:VRX PB_Undo_Click */ Pb_undo_click: Call Page1_create 'no_init' Call Page2_create 'no_init' Call Page3_create 'no_init' Call Page4_create 'no_init' Return /*:VRX PB_UnInstallSound_Click */ Pb_uninstallsound_click: mmini = SysBootDrive()||"\MMOS2\MMPM.INI" Do i = 681 To 684 rc = SysIni(mmini, "MMPM2_AlarmSounds", i, "DELETE:") End /* open WP_SOUND */ ok = SysOpenObject("","DEFAULT",1) Return /*:VRX Quit */ Quit: If ini_changes Then Do buttons.1 = "Yes" buttons.2 = "Discard" buttons.3 = "Cancel" buttons.0 = 3 id = VRMessage( VRWindow(), "Save changes made before exiting RexxAutoStart Setup Utility?", "Save RexxAutoStart Options", "Query", "Buttons.", 1, 3 ) If id = 1 Then Call _INIWrite If id = 3 Then Return End window = VRWindow() Call VRSet window, "Shutdown", 1 Drop window Return /*:VRX RxAutoUtMain_Close */ Rxautoutmain_close: Call Quit Return /*:VRX RxAutoUtMain_Create */ Rxautoutmain_create: Return /*:VRX SPIN_delay_wait_Change */ Spin_delay_wait_change: delay_wait = VRGet("SPIN_delay_wait","Value") Return /*:VRX SPIN_ls_retries_Change */ Spin_ls_retries_change: ls_retries = VRGet("SPIN_ls_retries","Value") ini_changes = 1 Return /*:VRX SPIN_ls_sleepsec_Change */ Spin_ls_sleepsec_change: ls_sleepsec = VRGet("SPIN_ls_sleepsec","Value") ini_changes = 1 Return /*:VRX SPIN_od_tries_Change */ Spin_od_tries_change: ini_changes = (od_tries <> VRGet("SPIN_od_tries","Value")) od_tries = VRGet("SPIN_od_tries","Value") Return /*:VRX SPIN_retries_Change */ Spin_retries_change: retries = VRGet("SPIN_retries","Value") ini_changes = 1 Return /*:VRX SPIN_sleepsec_Change */ Spin_sleepsec_change: sleepsec = VRGet("SPIN_sleepsec","Value") ini_changes = 1 Return