Compaq AA-PWCBD-TE manual Restoring Terminal Width Before Exiting from Dectpu

Sample DECTPU Procedures

A.3 Restoring Terminal Width Before Exiting from DECTPU

A.3 Restoring Terminal Width Before Exiting from DECTPU

Example A–3 compares the current width of the screen with the original width. If the current width differs from the original width, the procedure restores each window to its original width. The screen is refreshed so that information is visible on the screen after you exit from DECTPU. When all of the window widths are the same, the physical screen width is changed.

Example A–3 Procedure to Restore Screen to Original Width

PROCEDURE user_restore_screen

LOCAL original_screen_width, temp_w;

original_screen_width := GET_INFO (SCREEN, "original_width");

IF original_screen_width <> GET_INFO (SCREEN, "width")

THEN

temp_w := get_info(windows,"first");

LOOP

EXITIF temp_w = 0;

SET (WIDTH, temp_w, original_screen_width);

temp_w := GET_INFO (WINDOWS, "next");

ENDLOOP;

REFRESH;

ENDIF;

ENDPROCEDURE;

!Define the key combination Ctrl/E to do an exit which

!restores the screen to its original width, repaints

!the screen, and then exits.

DEFINE_KEY ("user_restore_screen;EXIT", Ctrl_E_KEY);

A–6Sample DECTPU Procedures