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
36
37
38
39
40
41
42
43
44
45
46
|
Wmsrv: module{
PATH: con "/dis/lib/wmsrv.dis";
init: fn(): (chan of (string, chan of (string, ref Draw->Wmcontext)),
chan of (ref Client, chan of string),
chan of (ref Client, array of byte, Sys->Rwrite));
find: fn(p: Draw->Point): ref Client;
top: fn(): ref Client;
Window: adt {
tag: string;
r: Rect;
img: ref Draw->Image;
};
Client: adt {
kbd: chan of int;
ptr: chan of ref Draw->Pointer;
ctl: chan of string;
stop: chan of int;
flags: int; # general purpose.
cursor: string; # hack.
wins: list of ref Window;
znext: cyclic ref Client;
# private:
images: chan of (ref Draw->Point, ref Draw->Image, chan of int);
id: int; # index into clients array
fid: int;
token: int;
wmctxt: ref Draw->Wmcontext;
window: fn(c: self ref Client, tag: string): ref Window;
contains: fn(c: self ref Client, p: Draw->Point): int;
image: fn(c: self ref Client, tag: string): ref Draw->Image;
setimage: fn(c: self ref Client, tag: string, i: ref Draw->Image): int; # only in response to some msgs.
setorigin: fn(c: self ref Client, tag: string, o: Draw->Point): int; # only in response to some msgs.
top: fn(c: self ref Client); # bring to top.
bottom: fn(c: self ref Client); # send to bottom.
hide: fn(w: self ref Client); # move offscreen.
unhide: fn(w: self ref Client); # move onscreen.
remove: fn(w: self ref Client);
};
};
|
