Kbase P28302: How to send messages to the MESSAGE-AREA of a smart window f
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
6/27/2003 |
|
Status: Unverified
GOAL:
How to send messages to the MESSAGE-AREA of a smart window from a smart viewer?
FACT(s) (Environment):
Windows
FACT(s) (Environment):
Progress 9.x
FIX:
1. Override the initializeObject procedure of the smart window by adding the
following statement before the RUN SUPER statement.
CURRENT-WINDOW:MESSAGE-AREA = TRUE.
2. Define an internal procedure 'echoMessage' in the smart window to output messages to the window's MESSAGE-AREA.
DEFINE INPUT PARAMETER cMessage AS CHARACTER NO-UNDO.
MESSAGE cMessage.
END PROCEDURE.
3. Place the following code where needed in the SmartDataViewer to RUN the 'echoMessage' internal procedure in the smart window:
DEFINE VARIABLE hContainerSource AS HANDLE NO-UNDO.
/* Get the handle of container source */
ASSIGN
hContainerSource = DYNAMIC-FUNCTION('getContainerSource':U).
/* Run the message procedure in the container window */
RUN EchoMessage IN hContainerSource ("some message content").