blob: 9fbce77e7bf1308fc36e2a3384819922c4abda43 (
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
|
include "../curses.h"
include "window.h"
# GETSTRUCT -- Get the data structure associated with a window
procedure getstruct (structure)
pointer structure # o: Data structure
#--
begin
call wgetstruct (STDSCR, structure)
end
procedure wgetstruct (win, structure)
int win # i: Window descriptor
pointer structure # o: Data structure
#--
include "window.com"
pointer pwin
begin
pwin = warray[win]
structure = WIN_DATA(pwin)
end
|
