blob: 87a6c8268c13afdf374675d1096afb9c99ad9f93 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
include "window.h"
# ENDWIN -- Finish up window routines
#
# B.Simon 28-Sep-90 Original
procedure endwin ()
#--
include "window.com"
int win
pointer pwin
begin
# Release windows that are still active
do win = 1, MAXWIN {
pwin = warray[win]
if (pwin != NULL) {
if (WIN_BUFFER(pwin) != NULL)
call freescreen (WIN_BUFFER(pwin))
if (WIN_DATA(pwin) != NULL)
call mfree (WIN_DATA(pwin), TY_STRUCT)
call mfree (pwin, TY_STRUCT)
}
}
# Reset terminal
call k_end
call ps_end
end
|
