include	 "wmlib.m";
wmlib:= load Wmlib Wmlib->PATH;
Resize,
Hide,
Help,
OK:          con 1 << iota;
Appl:        con Resize | Hide;
init:        fn();
titlebar: fn(t: ref Tk->Toplevel,title: string, buts: int)
                                       : chan of string;
titlectl:    fn(t: ref Tk->Toplevel, request: string);
taskbar:     fn(t: ref Tk->Toplevel, name:    string)
                                       : string;
getfilename: fn(screen: ref Draw->Screen,
                parent: ref Tk->Toplevel,
                title, pat, dir: string)      : string;
geom:        fn(t: ref Tk->Toplevel)          : string;
snarfput:    fn(buf: string);
snarfget:    fn(): string;

init ( )

titlebar (t, title, buts)

An application is informed of Tk events by a channel that is returned by titlebar. (See Tk -graphics toolkit in Chapter 13). Messages received on it should be processed by the application. The messages that may arrive on the returned channel are:

exit	The Exit button was activated. The window should be closed.
ok	The OK button was activated. The window should be closed.
help	The Help button was activated.
task	The Hide button was activated. The window can be hidden by sending a task request via the titlectl function.
size	The Resize button was pressed.

In some cases the appropriate response is to make the received message the request argument to the titlectl function.

titlectl (t, request)

taskbar (t, name)

getfilename (screen, parent, title, pat, dir)

The returned string is the name of the selected file, or the empty string if no file was selected.

geom (t)

snarfget ( ) and snarfput (buf)

Files

/chan/wm	Interface with wm for the titlectl function's handling of move and size requests.
/chan/snarf	Interface with wm for the snarfget and snarfput functions.