blob: c36a215ef101cd6892dc81d047d4631f902f1aeb (
plain)
1
2
3
4
5
6
7
8
9
10
|
(* $Id$ *)
open Tk
let titled ?:iconname title =
let iconname = match iconname with None -> title | Some s -> s in
let tl = Toplevel.create parent:Widget.default_toplevel () in
Wm.title_set tl :title;
Wm.iconname_set tl name:iconname;
tl
|