X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk_gtkmathview%2Flablgtk-20000829_gtkmathview-0.2.1%2Ftest%2Ftest.ml;h=a8e184bc43e084888349e072253d73f981fb346b;hb=a0bff4c37a0e623c74d25109133c5754060664e6;hp=f54c3bb1905682388b7f895037387a95923d42f2;hpb=378d6138523fcbfdb2d6b3ef0acad648ca17ff26;p=helm.git

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml
index f54c3bb19..a8e184bc4 100644
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml
+++ b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml
@@ -23,7 +23,9 @@ let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
  let module O = Ominidom in
   print_string ("selection_changed: " ^
    (match node with
-       None -> "selection_changed on nothing"
+       None ->
+         mathview#reset_selection;
+         "selection_changed on nothing"
      | Some node ->
         try
 	  mathview#set_selection node ;