Smart scrolling during script advancement implemented.

[helm.git] / helm / matita / matita.ml

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 2ff07613a786b13c3288fb028538ea0499f765b3..db0fd2b18e7ec0be350aecbea58d29dc16745933 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -73,7 +73,7 @@ let _ =
 
 let script =
   MatitaScript.script 
-    ~buffer:gui#sourceView#buffer
+    ~view:(gui#sourceView :> GText.view)
     ~init:(Lazy.force MatitaEngine.initial_status) 
     ~mathviewer:(MatitaMathView.mathViewer ())
     ~urichooser:(fun uris ->