2001-07-12 08:32:23 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
2001-07-12 08:32:23 -07:00
|
|
|
(* *)
|
|
|
|
|
(* Pierre Weis and Jun Furuse, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 2001 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
2001-12-07 05:41:02 -08:00
|
|
|
(* under the terms of the GNU Library General Public License, with *)
|
|
|
|
|
(* the special exception on linking described in file ../../LICENSE. *)
|
2001-07-12 08:32:23 -07:00
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
|
2001-10-29 12:07:20 -08:00
|
|
|
(** Additional graphics primitives for the X Windows system. *)
|
2001-07-12 08:32:23 -07:00
|
|
|
|
|
|
|
|
type window_id = string
|
|
|
|
|
|
2001-12-04 08:59:56 -08:00
|
|
|
val window_id : unit -> window_id
|
2001-10-29 12:07:20 -08:00
|
|
|
(** Return the unique identifier of the Caml graphics window.
|
2010-01-22 04:48:24 -08:00
|
|
|
The returned string is an unsigned 32 bits integer
|
2001-10-29 12:07:20 -08:00
|
|
|
in decimal form. *)
|
2001-07-12 08:32:23 -07:00
|
|
|
|
2001-12-04 08:59:56 -08:00
|
|
|
val open_subwindow : x:int -> y:int -> width:int -> height:int -> window_id
|
2001-10-29 12:07:20 -08:00
|
|
|
(** Create a sub-window of the current Caml graphics window
|
|
|
|
|
and return its identifier. *)
|
2001-07-12 08:32:23 -07:00
|
|
|
|
|
|
|
|
val close_subwindow : window_id -> unit
|
2001-12-04 08:59:56 -08:00
|
|
|
(** Close the sub-window having the given identifier. *)
|
