Commits

camlspotter  committed 10632f2 Merge
  • Participants
  • Parent commits cce7fb2, 7631084

Comments (0)

Files changed (12)

File examples/liv/display.ml

 (* $Id: display.ml,v 1.36.2.1 2010/05/13 13:36:09 furuse Exp $ *)
 
 open Livmisc;;
-open Color;;
 open Gui;;
 open Tout;;
 
 open Gdk;;
-open GDraw;;
-open GMain;;
 
 type filter = [ `SIZE of int * int * [ `ATMOST | `ATLEAST | `NOASPECT ] ];;
 

File examples/liv/icon.ml

 
 open Images;;
 open OImages;;
-open Livshtype;;
 open Geometry;;
-open Ximage;;
 open OXimage;;
 
 let xvmode = ref false;;

File examples/liv/jWidget.ml

-open Gdk
 open GMain
 
 class status_bar ?packing ?show () =

File examples/liv/liv.ml

 module D = Display
 open D
 
-open Gc
+(* open Gc *)
 open Unix
 open LargeFile
-open Gdk
-open GDraw
 open GMain
 
 open Livmisc

File examples/liv/livsh.ml

 
 (* $Id: livsh.ml,v 1.10 2008/02/19 12:44:04 furuse Exp $ *)
 
-open OImages;;
-open GBin;;
 open GPack;;
-open Ximage;;
 open Gui;;
 open Livshtype;;
 open Livmisc;;

File examples/liv/livshtype.ml

 open Mstring;;
 open Unix;;
 open Images;;
-open Info;;
+(* open Info;; *)
 
 type typ =
    | ContentType of string

File examples/liv/tout.ml

 (* $Id: tout.ml,v 1.14 2004/09/21 18:15:46 weis Exp $ *)
 
 open Livmisc;;
-open Gdk;;
-open GDraw;;
+(* open Gdk;; *)
+(* open GDraw;; *)
 open GMain;;
 
 let wait = ref 0.0;;

File examples/liv/viewer.ml

 
 open Gdk;;
 open Gtk;;
-open GObj;;
-open Gui;;
 
 (* image viewer widget *)
 

File src/imagegdk.ml

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

File src/oXimage.ml

 
 (* $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

 
 (* $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

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