l4/pkg/ocaml/contrib/otherlibs/labltk/browser/jg_toplevel.ml

   1 (*************************************************************************)
   2 (*                                                                       *)
   3 (*                Objective Caml LablTk library                          *)
   4 (*                                                                       *)
   5 (*            Jacques Garrigue, Kyoto University RIMS                    *)
   6 (*                                                                       *)
   7 (*   Copyright 1999 Institut National de Recherche en Informatique et    *)
   8 (*   en Automatique and Kyoto University.  All rights reserved.          *)
   9 (*   This file is distributed under the terms of the GNU Library         *)
  10 (*   General Public License, with the special exception on linking       *)
  11 (*   described in file ../../../LICENSE.                                 *)
  12 (*                                                                       *)
  13 (*************************************************************************)
  14
  15 (* $Id: jg_toplevel.ml 4144 2001-12-07 13:41:02Z xleroy $ *)
  16
  17 open Tk
  18
  19 let titled ?iconname title  =
  20   let iconname = match iconname with None -> title | Some s -> s in
  21   let tl = Toplevel.create Widget.default_toplevel in
  22   Wm.title_set tl title;
  23   Wm.iconname_set tl iconname;
  24   Wm.group_set tl ~leader: Widget.default_toplevel;
  25   tl