Commits

camlspotter committed 7631084

removed redundant opens

Comments (0)

Files changed (4)

 
 (* $Id: imagegdk.ml,v 1.2 2009/03/01 09:49:53 furuse Exp $*)
 
-open Images
-
 let initialized = ref None
 ;;
 
 
 (* $Id: oXimage.ml,v 1.1.2.1 2010/05/13 13:14:47 furuse Exp $*)
 
-open Images;;
 open OImages;;
 open Ximage;;
 open Gdk;;
 let of_image visual progress img =
   new ximage (Ximage.of_image visual progress img#image);;
 
-open GDraw;;
-
 let mask_of_image win img = (* It is really inefficient *)
   let mono_gc = get_mono_gc win in 
   let width, height = img#width, img#height in
 
 (* $Id: oXimage.mli,v 1.1.2.1 2010/05/13 13:14:47 furuse Exp $*)
 
-open Ximage;;
-
 class ximage : Ximage.t -> object
   method width : int
   method height : int
 
 (* $Id: Exp *)
 
-open Images;;
-
 type elt = int;; (* must be int32, but lablgtk uses int *)
 
 (** ximage data structure with size information *)