ref: c11957a7915d355d80ff7e6a21721ba05441ca29
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; }; };