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 (***********************************************************************)
14 (* $Id: graphicsX11.mli 4144 2001-12-07 13:41:02Z xleroy $ *)
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. *)