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