ref: a7080788265dd441b5446bea5c4d31fccf7dea1f
dir: /module/wmclient.m/
Wmclient: module
{
PATH: con "/dis/lib/wmclient.dis";
Resize,
Hide,
Help,
OK,
Popup,
Plain: con 1 << iota;
Appl: con Resize | Hide;
init: fn();
makedrawcontext: fn(): ref Draw->Context;
window: fn(ctxt: ref Draw->Context, title: string, buts: int): ref Window;
snarfput: fn(buf: string);
snarfget: fn(): string;
cursorspec: fn(img: ref Draw->Image): string;
Window: adt{
display: ref Draw->Display;
r: Draw->Rect; # full rectangle of window, including titlebar.
image: ref Draw->Image;
displayr: Draw->Rect;
ctxt: ref Draw->Wmcontext;
bd: int;
focused: int;
ctl: chan of string;
# private from here:
titlebar: ref Tk->Toplevel; # XXX i wish this didn't have to be visible to the application...
tbsize: Draw->Point; # size requested by titlebar.
tbrect: Draw->Rect;
screen: ref Draw->Screen;
buttons: int;
ptrfocus: int;
saved: Draw->Point; # saved origin before task
startinput: fn(w: self ref Window, devs: list of string);
wmctl: fn(w: self ref Window, request: string): string;
settitle: fn(w: self ref Window, name: string): string;
reshape: fn(w: self ref Window, r: Draw->Rect);
onscreen: fn(w: self ref Window, how: string);
screenr: fn(w: self ref Window, sr: Draw->Rect): Draw->Rect;
imager: fn(w: self ref Window, ir: Draw->Rect): Draw->Rect;
pointer: fn(w: self ref Window, p: Draw->Pointer): int;
};
};