1Tkclient: module 2{ 3 PATH: con "/dis/lib/tkclient.dis"; 4 5 Resize, 6 Hide, 7 Help, 8 OK, 9 Popup, # XXX is this useful? 10 Plain: con 1 << iota; 11 12 Appl: con Resize | Hide; 13 14 init: fn(); 15 makedrawcontext: fn(): ref Draw->Context; 16 toplevel: fn(ctxt: ref Draw->Context, topconfig: string, 17 title: string, buts: int): (ref Tk->Toplevel, chan of string); 18 onscreen: fn(top: ref Tk->Toplevel, how: string); 19 startinput: fn(top: ref Tk->Toplevel, devs: list of string); 20 wmctl: fn(top: ref Tk->Toplevel, request: string): string; 21 settitle: fn(top: ref Tk->Toplevel, name: string): string; 22 handler: fn(top: ref Tk->Toplevel, stop: chan of int); 23 24 snarfput: fn(buf: string); 25 snarfget: fn(): string; 26}; 27