guienv.ml 1.27 KB
Newer Older
1 2 3 4 5 6
(***********************************************************************)
(*                                                                     *)
(*                           Objective Caml                            *)
(*                                                                     *)
(*            Jun Furuse, projet Cristal, INRIA Rocquencourt           *)
(*                                                                     *)
7
(*  Copyright 1999-2004,                                               *)
8 9 10 11 12
(*  Institut National de Recherche en Informatique et en Automatique.  *)
(*  Distributed only by permission.                                    *)
(*                                                                     *)
(***********************************************************************)

13
(* $Id: guienv.ml,v 1.6.2.1 2010/05/13 13:36:09 furuse Exp $ *)
14 15 16 17 18

open Gdk;;
open GMain;;

GtkMain.Main.init ();;
19 20

let window = GWindow.window ~title: "gifanim"
21
(*    ~auto_shrink: true  *)
22
    ~allow_shrink: true 
23 24 25
    ~allow_grow: true ();;

window#connect#destroy ~callback:Main.quit;;
26

27 28 29
let visual = window#misc#visual;;
let quick_color_create = Truecolor.color_creator visual;;
let quick_color_parser = Truecolor.color_parser visual;;
30

31
let colormap = Gdk.Color.get_system_colormap ();;
32