1. camlspotter
  2. camlimages

Commits

camlspotter  committed 7631084

removed redundant opens

  • Participants
  • Parent commits b4e0095
  • Branches default

Comments (0)

Files changed (4)

File src/imagegdk.ml

View file
  • Ignore whitespace
 
 (* $Id: imagegdk.ml,v 1.2 2009/03/01 09:49:53 furuse Exp $*)
 
-open Images
-
 let initialized = ref None
 ;;
 

File src/oXimage.ml

View file
  • Ignore whitespace
 
 (* $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

File src/oXimage.mli

View file
  • Ignore whitespace
 
 (* $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

File src/ximage.mli

View file
  • Ignore whitespace
 
 (* $Id: Exp *)
 
-open Images;;
-
 type elt = int;; (* must be int32, but lablgtk uses int *)
 
 (** ximage data structure with size information *)