53 lines
1.7 KiB
Diff
53 lines
1.7 KiB
Diff
diff -ur camlimages-3.0.1.orig/examples/liv/liv.ml camlimages-3.0.1/examples/liv/liv.ml
|
|
--- camlimages-3.0.1.orig/examples/liv/liv.ml 2006-09-29 14:21:41.000000000 +0100
|
|
+++ camlimages-3.0.1/examples/liv/liv.ml 2008-11-03 17:18:02.000000000 +0000
|
|
@@ -21,14 +21,14 @@
|
|
|
|
open Livmisc;;
|
|
open Gui;;
|
|
-open Display;;
|
|
+open Livdisplay;;
|
|
open Tout;;
|
|
|
|
open Gc;;
|
|
|
|
exception Skipped;;
|
|
|
|
-let base_filters = ref ([] : Display.filter list);;
|
|
+let base_filters = ref ([] : Livdisplay.filter list);;
|
|
|
|
let r = Gc.get () in
|
|
r.max_overhead <- 0; Gc.set r;
|
|
@@ -52,15 +52,15 @@
|
|
"-root",
|
|
Arg.String
|
|
(function
|
|
- | "center" -> Display.root_mode := `CENTER
|
|
- | "random" -> Display.root_mode := `RANDOM
|
|
+ | "center" -> Livdisplay.root_mode := `CENTER
|
|
+ | "random" -> Livdisplay.root_mode := `RANDOM
|
|
| _ -> raise (Failure "root mode")),
|
|
": on root [center|random]";
|
|
"-transition",
|
|
Arg.String
|
|
(function
|
|
- | "myst" -> Display.transition := `MYST
|
|
- | "transparent" -> Display.transition := `TRANSPARENT
|
|
+ | "myst" -> Livdisplay.transition := `MYST
|
|
+ | "transparent" -> Livdisplay.transition := `TRANSPARENT
|
|
| _ -> raise (Failure "transition")),
|
|
": transition [myst|transparent]";
|
|
"-transparentborder",
|
|
diff -ur camlimages-3.0.1.orig/examples/liv/Makefile.am camlimages-3.0.1/examples/liv/Makefile.am
|
|
--- camlimages-3.0.1.orig/examples/liv/Makefile.am 2007-05-21 19:54:32.000000000 +0100
|
|
+++ camlimages-3.0.1/examples/liv/Makefile.am 2008-11-03 17:15:54.000000000 +0000
|
|
@@ -23,7 +23,7 @@
|
|
seq.ml \
|
|
tout.ml \
|
|
enhance.ml \
|
|
- display.ml \
|
|
+ livdisplay.ml \
|
|
viewer.ml \
|
|
edge.ml \
|
|
pathfind.ml \
|