Kbase P20509: How to change the Title of a new Procedure Editor window?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/09/2005 |
|
Status: Unverified
GOAL:
How to change the Title of a new Procedure Editor window?
FACT(s) (Environment):
Windows
Progress 8.x
Progress 9.x
FIX:
Following is a step-by-step description of how to change the title of a new procedure editor window. One could make this behavior subject to pressing F12 or some other key combination for the occasions where this behavior is not desired.
1. Create a subdirectory .\WRK\adecomm of the working directory:
- Start -> Programs -> Progress -> Proenv.
- MD adecomm.
2. Use the PROLIB utility with the -yank parameter to extract a copy of the _adeevnt.p file from the %DLC%\src\adecomm.pl library to .\WRK\adecomm.
-CD adecomm.
- 1. Create a subdirectory .\WRK\adecomm of the working directory:
3. Insert the following statement immediately after the variable definitions.
IF p_event = "New":U AND LOOKUP(p_product,"Editor":U) > 0 THEN RUN myProcedure.p.
4. Copy myProcedure.p as shown below and save it in .\WRK\adecomm.
5. Ensure that .\WRK\adecomm is in the PROPATH before %DLC%\src\adecomm.pl.
/**************************** myProcedure.p ********************************/
/* To change Procedure Editor title to value of the variable cTitleBanner */
/* This variable may be the name of the connected database(s) or some other*/
/* parameter values that may be passed to the session by the command line. */
DEFINE VARIABLE hWindowHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE cTitleBanner AS CHARACTER NO-UNDO.
ASSIGN
hWindowHandle = SESSION:FIRST-CHILD
cTitleBanner = "Some Title String".
DO WHILE VALID-HANDLE (hWindowHandle):
IF INDEX (hWindowHandle:TITLE, "Procedure Editor" )> 0 THEN
hWindowHandle:TITLE = cTitleBanner.
ELSE
hWindowHandle = hWindowHandle:NEXT-SIBLING.
END.