1Titlebar: module{ 2 PATH: con "/dis/lib/titlebar.dis"; 3 4 Resize, 5 Hide, 6 Help, 7 OK, 8 Popup, 9 Plain: con 1 << iota; 10 Appl: con Resize | Hide; 11 12 init: fn(); 13 new: fn(top: ref Tk->Toplevel, buts: int): chan of string; 14 minsize: fn(top: ref Tk->Toplevel): Draw->Point; 15 title: fn(top: ref Tk->Toplevel): string; 16 settitle: fn(top: ref Tk->Toplevel, title: string): string; 17 sendctl: fn(top: ref Tk->Toplevel, c: string); 18}; 19