--- /dev/null
+--- coq-8.0pl2/ide/undo.mli~ 2005-12-10 02:08:33.000000000 +0100
++++ coq-8.0pl2/ide/undo.mli 2005-12-10 02:27:05.083226000 +0100
+@@ -10,7 +10,7 @@
+
+ (* An undoable view class *)
+
+-class undoable_view : Gtk.text_view Gtk.obj ->
++class undoable_view : [> Gtk.text_view] Gtk.obj ->
+ object
+ inherit GText.view
+ method undo : bool
+--- coq-8.0pl2/ide/undo.ml~ 2005-12-10 02:25:40.000000000 +0100
++++ coq-8.0pl2/ide/undo.ml 2005-12-10 02:26:07.331616750 +0100
+@@ -18,7 +18,7 @@
+ | Insert (s,i,l) -> Delete (s,i,l)
+ | Delete (s,i,l) -> Insert (s,i,l)
+
+-class undoable_view (tv:Gtk.text_view Gtk.obj) =
++class undoable_view (tv:[> Gtk.text_view] Gtk.obj) =
+ let undo_lock = ref true in
+ object(self)
+ inherit GText.view tv as super