OpenEuphoria

RE: [Win] dos boxes (Kat)

• Posted by Al Getz <Xaxo at aol.com> Apr 30, 2001
• 388 views

Al Getz wrote:
> 
> Kat wrote:
> > I admit this is asking for really good gravey on my exelent mashed 
> > potatoes, 
> > but is it possible to give a dos box in win95 a name in the titlebar 
> > other than 
> > "EXW"? Since we can't multitask, i am running 8 interpreter sessions, 
> > and 
> > there is no way to tell the monitoring screens apart from one another! 
> > The 
> > properties for the dos dox don't offer a clue as to the program the 
> > interpreter 
> > is running. If winet crashes, like as if the isp drops out, the first of 
> > 
> > the 8 
> > programs to notice it will redial, but the 2nd one will apparently start 
> > 
> > building 
> > a huge disk swap file, and maybe the 3rd one as well, and the disk 
> > thrashing 
> > won't end until i kill off all 8 processes and restart them all,,, cause 
> > 
> > while i 
> > may be able to see which window display is not updating, i don't know 
> > the 
> > name of the process it is displaying, so i don't know which process to 
> > restart! Why don't i use a windoze box? cause i am having this lockup 
> > problem and i don't want to introduce my ignorance of windoze windows 
> > programming into the problem.
> > 
> > Kat
> > 
> > 
> 
> Hi again Kat,
> 
> Try putting something like this at the end of your WM_CREATE
> window event handler that is associated with the desired console:
> 
>       atom lptext,hwndC,bool
> 
>       hwndC=c_func(xGetWindow,{hwnd,2})
>       hwndC=c_func(xGetWindow,{hwndC,2})
> 
>       lptext=allocate_string("New Console Title")
>       bool=c_func(xSetWindowText,{hwndC,lptext})
>       free(lptext)
> 
> If youre using winlib, you could try putting it in your
> onOpen() routine.
<snip>

Of course even easier is:
    
      atom lptext, bool

      lptext=allocate_string("New Console Title")
      bool=c_func(xSetConsoleTitle,{lptext})
      free(lptext)

use with c code:
 xSetConsoleTitle=link_c_func(kernel32,"SetConsoleTitleA",
                     {C_POINTER},C_ULONG)