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


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
35

include "../curses.h"
include "window.h"

# CLEAR -- Clear window and force a redraw of the screen
#
# B.Simon	01-Oct-90	Original

procedure clear ()

#--
include "window.com"

pointer	pwin

begin
	pwin = warray[STDSCR]
	WIN_CLEAR(pwin) = YES

	call werase (STDSCR)
end

procedure wclear (win)

int	win		# i: Window descriptor
#--
include "window.com"

pointer	pwin

begin
	pwin = warray[win]
	WIN_CLEAR(pwin) = YES

	call werase (win)
end