1 (***********************************************************************)
5 (* Pierre Weis and Jun Furuse, projet Cristal, INRIA Rocquencourt *)
7 (* Copyright 2001 Institut National de Recherche en Informatique et *)
8 (* en Automatique. All rights reserved. This file is distributed *)
9 (* under the terms of the GNU Library General Public License, with *)
10 (* the special exception on linking described in file ../../LICENSE. *)
12 (***********************************************************************)
16 (** Additional graphics primitives for the X Windows system. *)
18 type window_id
= string
20 val window_id
: unit -> window_id
21 (** Return the unique identifier of the Caml graphics window.
22 The returned string is an unsigned 32 bits integer
25 val open_subwindow
: x
:int -> y
:int -> width
:int -> height
:int -> window_id
26 (** Create a sub-window of the current Caml graphics window
27 and return its identifier. *)
29 val close_subwindow
: window_id
-> unit
30 (** Close the sub-window having the given identifier. *)