1 /* Triggers for all windows
*/
3 ON 'F12'
:U
OF {&WINDOW-NAME} ANYWHERE DO:
4 IF VALID-HANDLE( sys-mgr
) THEN
5 RUN focus-this
IN sys-mgr
( THIS-PROCEDURE ).
8 ON 'SHIFT-F12'
:U
OF {&WINDOW-NAME} ANYWHERE DO:
9 IF VALID-HANDLE( sys-mgr
) THEN
10 RUN focus-root
IN sys-mgr.
13 ON 'CTRL-F12'
:U
OF {&WINDOW-NAME} ANYWHERE DO:
14 IF VALID-HANDLE( sys-mgr
) THEN
15 RUN focus-parent
IN sys-mgr
( THIS-PROCEDURE ).
