pkg/utilities/nttools/tedit/display/curses/freescreen.x


1
2
3
4
5
6
7
8
9
10
11
12
13

# FREESCREEN -- Free a window's buffer
#
# B.Simon	26-Sep-90	Original

procedure freescreen (buffer)

pointer	buffer		# i: Buffer allocated by wgetscr
#--

begin
	if (buffer != NULL)
	    call mfree (buffer, TY_CHAR)
end