[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference bulova::decw_jan-89_to_nov-90

Title:	DECWINDOWS 26-JAN-89 to 29-NOV-90
Notice:	See 1639.0 for VMS V5.3 kit; 2043.0 for 5.4 IFT kit
Moderator:	STAR::VATNE

Created:	Mon Oct 30 1989
Last Modified:	Mon Dec 31 1990
Last Successful Update:	Fri Jun 06 1997
Number of topics:	3726
Total number of notes:	19516

2272.0. "Keeping input focus on a particular DECTERM" by PEACHS::BELDIN () Wed Feb 14 1990 13:39

	A customer has an application that uses the DECterm_port routine
	to create several DECterms.  These DECterms recieve data via
	a $QIO of process(es) running on several other systems.  Is it 
	possible to:

		- force input focus to STAY with the window that
		  fired up the application, ie; the one that issued
		  the RUN command? She uses an escape sequence to 
		  start/stop things in the created windows....

		- to change the title of a DECterm that DOES NOT have
		  input focus?  She has a routine (set_title.c?) that
		  does this, but it requires input focus.  She notes
		  by using the DECterm_port routine she can specify
		  a customization file, but the title doesn't take
		  effect until she clicks on it...

	Yeah, yeah I know it doesn't compile with the style guide... 
	By the way, this is VMS 5.2, DECwindows V1.0.  Anything that
	may help her out in V2?  Osc strings or whatever?

	Rick Beldin

T.R Title User Personal
Name Date Lines

2272.1 STAR::MFOLEY Rebel Without a Clue Wed Feb 14 1990 14:00 33

T.R	Title	User	Personal Name	Date	Lines
2272.1		STAR::MFOLEY	Rebel Without a Clue	`Wed Feb 14 1990 14:00`	33
	Escape sequences would allow you to change the title of DECterms in VMS 5.3 / DECW V2 without having input focus.. (Many, MANY thanks to Bob Messenger and Co. for that one!) This command procedure has some stuff for you to use.. mike $ OSC[0,8] = 157 $ ST[0,8] = 156 $ Echo = "Write Sys$Output " $! $ If P1 .eqs. "ICON" then Echo OSC,"2L;",P2,ST $ If P1 .eqs. "ICON1" then Echo OSC,"2L;",F$GetSYI("NodeName"),ST $ If P1 .eqs. "BANNER" then Echo OSC,"21;",P2,ST $ If P1 .eqs. "BANNER2" then Echo OSC,"21;Node: ", F$GetSYI("NodeName")," �",F$GetJPI("","PRCNAM"),"� (",F$GetJPI("","PID"),")",ST $ If P1 .eqs. "BANNER3" then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROMENT("DEFAULT"),""," (",F$GetJPI("","PRCNAM"),")",ST $ If P1 .eqs. "BANNER4" then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROMENT("DEFAULT"),"",ST $! $!---------------------------VWS Only----------------------------------------- $! $ If P1 .eqs. "SHRINKX" then Echo OSC,"22;",P2,";",P3,ST $ If P1 .eqs. "SHRINK" then Echo OSC,"22;",P2,";",P3,ST $ If P1 .eqs. "EXPAND" then Echo OSC,"23;",P2,";",P3,ST $ If P1 .eqs. "MOVE_TERM" then Echo OSC,"24;",P2,ST $ If P1 .eqs. "MOVE_ICON" then Echo OSC,"25;",P2,ST $ If P1 .eqs. "PUSH" then Echo OSC,"29",ST $ If P1 .eqs. "POP" then Echo OSC,"2A",ST $ If P1 .eqs. "FONT" then Echo OSC,"2f;",P2,";",P3,";",P4,ST $!---------------------------------------------------------------------------- $ Exit


	Escape sequences would allow you to change the title of 
	DECterms in VMS 5.3 / DECW V2 without having input focus..
	(Many, MANY thanks to Bob Messenger and Co. for that one!)

	This command procedure has some stuff for you to use..

							mike

$ OSC[0,8] = 157
$ ST[0,8]  = 156
$ Echo = "Write Sys$Output "
$!
$ If P1 .eqs. "ICON"     then Echo OSC,"2L;",P2,ST
$ If P1 .eqs. "ICON1"     then Echo OSC,"2L;",F$GetSYI("NodeName"),ST
$ If P1 .eqs. "BANNER"     then Echo OSC,"21;",P2,ST
$ If P1 .eqs. "BANNER2"    then Echo OSC,"21;Node: ", F$GetSYI("NodeName"),"  �",F$GetJPI("","PRCNAM"),"�  (",F$GetJPI("","PID"),")",ST
$ If P1 .eqs. "BANNER3"    then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROMENT("DEFAULT"),"","   (",F$GetJPI("","PRCNAM"),")",ST
$ If P1 .eqs. "BANNER4"    then Echo OSC,"21;",F$GetSYI("NodeName"),"::",F$ENVIROMENT("DEFAULT"),"",ST
$!
$!---------------------------VWS Only-----------------------------------------
$!
$ If P1 .eqs. "SHRINKX"    then Echo OSC,"22;",P2,";",P3,ST
$ If P1 .eqs. "SHRINK"     then Echo OSC,"22;",P2,";",P3,ST
$ If P1 .eqs. "EXPAND"     then Echo OSC,"23;",P2,";",P3,ST
$ If P1 .eqs. "MOVE_TERM"  then Echo OSC,"24;",P2,ST
$ If P1 .eqs. "MOVE_ICON"  then Echo OSC,"25;",P2,ST
$ If P1 .eqs. "PUSH"       then Echo OSC,"29",ST
$ If P1 .eqs. "POP"        then Echo OSC,"2A",ST
$ If P1 .eqs. "FONT"       then Echo OSC,"2f;",P2,";",P3,";",P4,ST
$!----------------------------------------------------------------------------
$ Exit