Hello Mikko!

Sun Nov 10 1996 13:03, Mikko Hyvarinen wrote to All:

 MH> Is there a way to set the program title when running under TShell?
 MH> WinSetTitle bombs out with an exception.

Here is my example of TSHELL configuration. Titles that are in
"AddOS2Program" statements appear in the right frame of TSHELL
when programs are running. Did you want this?

You must have a PGMSHELL.EXE to run this script by issuing PGMSHELL SET_TSH.CMD

Many cases of calling Win.... functions under TSHELL cause an exception.

=== Cut === SET_TSH.CMD ===

    /* rexx program to modify tshell */

    if 'PGMSHELL'  address() then do
      say 'Expected PGMSHELL environment.'
      say 'Usage:  PGMSHELL '
      return 2
    end

    /* CShell does not spool, so reduce parallel port timeout
    from 120 to 5 seconds in case you accidentally hit print-screen
    and there is no printer hooked up. */
    /*rc = SetParallelTimeout( "LPT1", 5 )*/

    /* title text for the start list  */
    rc = SetStartTitle( "Start Group" )

    /* title text for the running list  */
    rc = SetRunningTitle( "Running Group" )

    /* Add OS2 program; arguments: title, startup dir, parameters, exe */
    rc = AddOS2Program( "OS/2 Command prompt",,,"CMD.EXE")
    rc = AddOS2Program( "File Commander",,,"e:\fc\fc.exe")
    rc = AddOS2Program("Golden
Edit","G:\FIDO\GOLDED",,"G:\FIDO\GOLDED\GED2.EXE")
    rc = AddOS2Program( "Unix Shell","H:\","/C
D:\KSHELL.CMD","CMD.EXE")
    rc = AddOS2Program( "GNU Info
Viewer","H:\","/C
h:\emx\bin\infr.cmd","CMD.EXE")
/* is configured for DOS? */
    if QueryDOSCapable() then do

      /* Add DOS program; arguments: title, startup dir, parameters, settings stem */
      drop settings
      settings.0 = "EMS_MEMORY_LIMIT=8192"
      settings.1 = "XMS_MEMORY_LIMIT=8192"
      settings.3 = "DPMI_DOS_API=ENABLED"
      settings.4 = "DPMI_MEMORY_LIMIT=8"
      rc = AddDOSProgram("Norton Commander",,"/c
c:\nc\nc.exe","settings")
      drop settings

    end

    /* add shutdown option. arguments: title, completion msg */
    rc = AddShutdown( "Shutdown", "Shutdown Complete" )
    return 0
=== Cut ===

                                     [TEAM OS/2 Member DG008]

Dmitry

--- GoldED/2 2.50.Beta5+