Kbase P101451: How to set the Section Editor's default starting size.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/02/2005 |
|
Status: Unverified
GOAL:
How to set the Section Editor's default starting size.
FACT(s) (Environment):
Windows
FIX:
The folloing solution assumed that WRK is your default Progress working directory:
1. Start a Progress Proenv session:
Start ->Programs->DLC->Proenv.
2. Create an adecomm subdirectory of your working directory:
proenv>mkdir adecomm
3. Use the Progress PROLIB utilitry to copy the source code of the file _adeevnt.p from prolib %DLC%\src\adecomm.pl to your WRK\adecomm subdirectory:
proenv>prolib %DLC%\src\adecomm.pl -extract adecomm\_adeevnt.p
4. Open the file WRK\adecomm\_adeevnt.p in the Progress Procedure Editor and add the following Internal Procedure 'SetSectionEditorSize:' at the very end of the file:
PROCEDURE setSectionEditorSize:
DEFINE INPUT PARAMETER h AS HANDLE.
ASSIGN
h:WIDTH-CHARS = 120
h:HEIGHT-CHARS = 80.
END PROCEDURE.
5. Insert the statement:
RUN setSectionEditorSize(INPUT WIDGET-HANDLE(p_other)).
in this block of code:
/* This block of code runs programs that add a toolbar to the section editor */
IF p_event = "Startup" AND p_product = "Section Editor":U
THEN DO:
RUN setSectionEditorSize(INPUT WIDGET-HANDLE(p_other)).
IF SEARCH("v91tools.pl":U) <> ? AND INDEX(PROPATH,"v91tools.pl":U) > 0
THEN DO:
RUN se-tools/_sestrt.p (INPUT WIDGET-HANDLE(p_context) ,INPUT WIDGET-HANDLE(p_other)).
END.
END.
6. Save the file WRK\adecomm\_adeevnt.p.
7. Now the Section Editor default starting size will be:
h:WIDTH-CHARS = 120
h:HEIGHT-CHARS = 80.