in
show_in_show_window_uri (UriManager.uri_of_string uri)
else
- prerr_endline
- "'get_action' and 'action_toggle' not yet implemented in lablgtkmathview 0.3.99"
-(* TODO commented out because not yet implemented in lablgtkmathview 0.3.99 *)
-(*
- if mmlwidget#get_action <> None then
- mmlwidget#action_toggle
-*)
+ ignore (mmlwidget#action_toggle n)
in
let _ =
mmlwidget#connect#click (show_in_show_window_callback mmlwidget)