Kbase 17764: How to change the size of Procedure Editor at startup
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
How to change the size of Procedure Editor at startup
** PLEASE NOTE: What follows is a Knowledgebase entry that involves
making changes to the Progress Procedure Editor source code. Such
changes are undertaken solely at the risk of the programmer. Progress
Software Technical Support cannot support any such changes.
Consequently, THIS KNOWLEDGEBASE IS PROVIDED FOR INFORMATIONAL
PURPOSES ONLY. By utilizing the information in this document, the
programmer acknowledges full responsibility for any problems in
Procedure Editor performance which may result, and for any other
result of incorrect implementation of this information.
This document is accurate as of March, 1998. The information may not
be accurate for releases of Progress beyond this date, since Progress
Software reserves the right to change their proprietary programs.
----------------------------------------------------------------------
What follows are instructions for changing the size of the Progress
Procedure Editor at startup. It has been tested on Version 7.3D and
higher as of March, 1998.
The file to be changed is DLC/adecomm/_adeevnt.p. This is a procedure
that is called by several ADE tools to register certain ADE events.
After making the changes described below, the programmer
should recompile the file and copy the resulting r-code into the
directory DLC\Gui\Adecomm. It is strongly advised that a backup copy
of the original r-code file be retained in case of problems.
The added code allows detection of the STARTUP event for the Procedure
Editor and changes the Editor's window size. Additional code already
in the Editor detects the change and resizes the editor control within
the window accordingly.
Keep in mind that once the new r-code file has been copied to the
proper directory, the PROGRESS session should be restarted to see
the changes.
/* Code to add to adecomm/_adeevent.p */
IF p_product = "Editor" THEN
RUN EditorEvents.
PROCEDURE EditorEvents.
DEFINE VAR h_window AS HANDLE NO-UNDO.
IF p_event = "STARTUP" THEN
DO:
/* No resizing allowed on TTY screens. */
IF SESSION:WINDOW-SYSTEM = "TTY" THEN RETURN.
/* String var p_other has the window handle, so change to a real
handle. */
ASSIGN h_window = WIDGET-HANDLE(p_other) /* window widget */.
/* Resize window. Editor takes care of resizing the editor widget
and frame. */
ASSIGN h_window:WIDTH = h_window:WIDTH - 10
h_window:HEIGHT = h_window:HEIGHT - 10.
END.
END PROCEDURE.
Progress Software Technical Support Note # 17764