summaryrefslogtreecommitdiff
path: root/otherlibs/labltk/browser/jg_toplevel.ml
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