blob: 3ce0f208242c9fd2c10d3d67af579c1848a06ff6 (
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"
# LEAVEOK -- Set the leave flag for a window
#
# B.Simon 02-Oct-90 Original
procedure leaveok (win, flag)
int win # i: Window descriptor
bool flag # i: Flag value
#--
include "window.com"
pointer pwin
int btoi()
begin
pwin = warray[win]
WIN_LEAVE(pwin) = btoi (flag)
end
|
