Compaq AA-PWCBD-TE Instrukcja Użytkownika Pobierz pdf (Strona 136)

Sample DECTPU Procedures

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–6 Sample DECTPU Procedures

1 2 ... 131 132 133 134 135 136 137 138 139 140 141 ... 151 152

Brak uwag

Compaq AA-PWCBD-TE Instrukcja Użytkownika Strona 136