🚀 go-pugleaf

In <4gb6mr$2l9@ddi2.digital.net>, jperkow@digital.net (Joseph J. Perkowski) writes:
>I somehow lost my command prompt selections in my command prompt folder.  
>Anybody have any clues how I might get them back? : )
>Joe
>

Joe, try the following:

/* Create "Command Prompts" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPFolder",,
                     "Command Prompts",,
                     "<WP_OS2SYS>",,
                     "HELPPANEL=8008;ICONRESOURCE=38,PMWP;ICONNRESOURCE=1,37,PMWP;OBJECTID=<WP_PROMPTS>"
                     "Update")
If RC Then
  Say '"Command Prompts" created successfully'
Else
  Say '"Command Prompts" could not be created'

/* Create "OS/2 Full Screen" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "OS/2 Full Screen",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=FULLSCREEN;HELPPANEL=8009;CCVIEW=YES;PARAMETERS=%;OBJECTID=<WP_OS2FS>"
                     "Update")
If RC Then
  Say '"OS/2 Full Screen" created successfully'
Else
  Say '"OS/2 Full Screen" could not be created'

/* Create "OS/2 Window" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "OS/2 Window",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=WINDOWABLEVIO;HELPPANEL=8010;CCVIEW=YES;PARAMETERS=%;OBJECTID=<WP_OS2WIN>"
                     "Update")
If RC Then
  Say '"OS/2 Window" created successfully'
Else
  Say '"OS/2 Window" could not be created'


/* Create "DOS Full Screen" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "DOS Full Screen",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=VDM;HELPPANEL=8011;CCVIEW=YES;PARAMETERS=%;OBJECTID=<WP_DOSFS>",,
                     "Update")
If RC Then
  Say '"DOS Full Screen" created successfully'
Else
  Say '"DOS Full Screen" could not be created'

/* Create "DOS Window" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "DOS Window",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=WINDOWEDVDM;HELPPANEL=8012;CCVIEW=YES;PARAMETERS=%;OBJECTID=<WP_DOSWIN>",,
                     "Update")
If RC Then
  Say '"DOS Window" created successfully'
Else
  Say '"DOS Window" could not be created'

/* Create "WIN-OS/2 Full Screen" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "WIN-OS/2 Full Screen",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=PROG_31_ENH;SET KBD_ALTHOME_BYPASS=1;SET KBD_CTRL_BYPASS=CTRL_ESC;SET VIDEO_SWITCH_NOTIFICATION=1;SET VIDEO_8514A_XGA_IOTRAP=0;SET DPMI_MEMORY_LIMIT=64;SET WIN_DDE=0;",
                  || "SET WIN_CLIPBOARD=0;HELPPANEL=8022;OBJECTID=<WP_WINFS>"
                     "Update")
If RC Then
  Say '"WIN-OS/2 Full Screen" created successfully'
Else
  Say '"WIN-OS/2 Full Screen" could not be created'

/* Create "WIN-OS/2 Window" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "WIN-OS/2 Window",,
                     "<WP_PROMPTS>",,
                     "EXENAME=PROGMAN.EXE;PROGTYPE=PROG_31_ENHSEAMLESSCOMMON;SET KBD_ALTHOME_BYPASS=1;SET KBD_CTRL_BYPASS=CTRL_ESC;SET VIDEO_SWITCH_NOTIFICATION=1;SET VIDEO_8514A_XGA_IOTRAP=0;",
                  || "SET DPMI_MEMORY_LIMIT=64;SET WIN_DDE=0;SET WIN_CLIPBOARD=0;HELPPANEL=8022;OBJECTID=<WP_WIN2WIN>"
                     "Update")
If RC Then
  Say '"WIN-OS/2 Window" created successfully'
Else
  Say '"WIN-OS/2 Window" could not be created'

/* Create "DOS from Drive A:" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "DOS from Drive A:",,
                     "<WP_PROMPTS>",,
                     "EXENAME=*;PROGTYPE=VDM;SET DOS_STARTUP_DRIVE=A:;HELPPANEL=8529;ICONRESOURCE=47,PMWP;OBJECTID=<WP_DOS_DRV_A>",,
                     "Update")
If RC Then
  Say '"DOS from Drive A:" created successfully'
Else
  Say '"DOS from Drive A:" could not be created'

/* Create "Dual Boot" Object */
If RxFuncQuery("SysLoadFuncs") Then Do
  Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  Call SysLoadFuncs
End

RC = SysCreateObject("WPProgram",,
                     "Dual Boot",,
                     "<WP_PROMPTS>",,
                     "EXENAME=BOOT.COM;PROGTYPE=WINDOWABLEVIO;PARAMETERS=/DOS;HELPPANEL=8029;ICONRESOURCE=49,PMWP;OBJECTID=<WP_DBOOT>",,
                     "Update")
If RC Then
  Say '"Dual Boot" created successfully'
Else
  Say '"Dual Boot" could not be created'



Gaylen Fraley                     \\||//  
Team OS/2                         ( .. )  
-------------------------------oOO--()--OOo----------------------------
John 3:16  "For God so loved the world, that He gave His only begotten    
Son, that whosoever believeth in Him, should not perish, but have    
everlasting life."  
-----------------------------------------------------------------------