let sequent_viewer = MatitaMathView.sequentViewer_instance () in
let sequents_viewer = MatitaMathView.sequentsViewer_instance () in
sequent_viewer#set_href_callback
- (Some (fun uri -> (MatitaMathView.cicBrowser ())#load (`Uri uri)));
+ (Some (fun uri -> (MatitaMathView.cicBrowser ())#load (`Uri (UriManager.uri_of_string uri))));
let browser_observer _ = MatitaMathView.refresh_all_browsers () in
let sequents_observer status =
sequents_viewer#reset;
let browser = MatitaMathView.cicBrowser () in
let entry =
try
- `Uri Sys.argv.(1)
+ `Uri (UriManager.uri_of_string Sys.argv.(1))
with Invalid_argument _ -> `Dir "cic:/"
in
browser#load entry