aboutsummaryrefslogtreecommitdiff
path: root/pkg/utilities/nttools/tedit/display/curses/scrollok.x
blob: dfbb331776f03f95338afe0c065c318d2e74902f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
include "window.h"

# SCROLLOK -- Set the scroll flag for a window
#
# B.Simon	02-Oct-90	Original

procedure scrollok (win, flag)

int	win		# i: Window descriptor
bool	flag		# i: Flag value
#--
include "window.com"

pointer	pwin
int	btoi()

begin
	pwin = warray[win]
	WIN_SCROLL(pwin) = btoi (flag)

end