From Kbase:
P10145
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.
Regards,
Daniel
