From: Luca Padovani <luca.padovani@unito.it>
Date: Thu, 30 Nov 2000 15:47:05 +0000 (+0000)
Subject: test/test.ml: added a call to reset_selection
X-Git-Tag: nogzip~129
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ec7900ebc4b63319255164860415dfb1a26eeb53;p=helm.git

test/test.ml: added a call to reset_selection
---

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 ;