Kbase P51612: Is it possible to change the V6DISPLAY attribute programmati
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
03/11/2003 |
|
Status: Unverified
GOAL:
Is it possible to change the V6DISPLAY attribute programmatically?
GOAL:
How to toggle the V6DISPLAY attribute on and off
GOAL:
How can the V6DISPLAY attribute be changed?
FIX:
The following code allows the V6DISPLAY attribute to be turned on and off in a Progress session:
DEFINE VARIABLE win AS HANDLE NO-UNDO.
/*
hide all visible windows and mark them so we know which ones to view after changing the value of SESSION:V6DISPLAY
*/
win = SESSION:FIRST-CHILD.
DO WHILE (win <> ?):
IF win:VISIBLE = TRUE THEN DO:
HIDE win.
win:PRIVATE-DATA = "x".
END.
win = win:NEXT-SIBLING.
END.
/* flip session:v6display */
SESSION:V6DISPLAY = NOT SESSION:V6DISPLAY.
MESSAGE SESSION:V6DISPLAY
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/* now view the windows which we hid above */
win = SESSION:FIRST-CHILD.
DO WHILE (win <> ?):
IF win:PRIVATE-DATA = "x" THEN DO:
/* unhide the window and clear our marker */
VIEW win.
win:PRIVATE-DATA = "".
END.
win = win:NEXT-SIBLING.
END.