]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.ml
Fixing the selections
[helm.git] / helm / DEVEL / lablgtk_gtkmathview / lablgtk-20000829_gtkmathview-0.2.0 / test / test.ml
index 4f9af18e55a346b4599efa879e4b1f6ba311248d..1550a06421584f08217cc983b059d8c87bd509f9 100644 (file)
@@ -32,9 +32,12 @@ let jump node =
 let selection_changed node =
  let module M = Minidom in
   print_string ("selection_changed: " ^
-   (match M.node_get_name node with
-       None   -> "selection_changed on nothing" 
-     | Some s -> "selection changed on " ^ M.string_of_mDOMString s
+   (match node with
+       None -> "selection_changed on nothing"
+     | Some node ->
+        match M.node_get_name node with
+           None   -> "selection_changed on a node without name" 
+         | Some s -> "selection changed on " ^ M.string_of_mDOMString s
    ) ^ "\n");
   flush stdout
 ;;
@@ -70,10 +73,9 @@ let load mathview () =
 
 let get_selection mathview () =
  let selection =
-(*  match !mathview#get_selection with
+  match !mathview#get_selection with
      None -> "NO SELECTION"
    | Some node ->
-*) let node = !mathview#get_selection in
       match Minidom.node_get_name node with
         None   -> "selection is on nothing" 
       | Some s -> "selection is on " ^ Minidom.string_of_mDOMString s
@@ -85,14 +87,13 @@ let get_selection mathview () =
 let set_selection mathview () =
  begin
   try
-(*   match !mathview#get_selection with
+   match !mathview#get_selection with
       None -> raise Not_found
     | Some node ->
-*) let node = !mathview#get_selection in
        match Minidom.node_get_parent node with
           None -> raise Not_found
         | Some node ->
-           !mathview#set_selection node ;
+           !mathview#set_selection (Some node) ;
            print_string "set_selection: SEEMS TO WORK\n"
   with
    Not_found ->