X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaGui.ml;h=8eb54bb70c03e8e7f939b67737b30a003a04d35e;hb=66faca1dc849662e27d760b950294ef66a5741b3;hp=f849dc25f5b5e84d09e067dd759687da415a0918;hpb=f609fb258bd5c56f122af41d665f6cf79f0f54b9;p=helm.git diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml index f849dc25f..8eb54bb70 100644 --- a/helm/software/matita/matitaGui.ml +++ b/helm/software/matita/matitaGui.ml @@ -860,6 +860,7 @@ class gui () = (fun () -> MatitamakeLib.clean_development_in_bg refresh d) in ignore(clean ()))); + (* publish button hidden, use command line connect_button develList#publishButton (locker (fun () -> match get_devel_selected () with @@ -868,6 +869,8 @@ class gui () = let publish = locker (fun () -> MatitamakeLib.publish_development_in_bg refresh d) in ignore(publish ()))); + *) + develList#publishButton#misc#hide (); connect_button develList#graphButton (fun () -> match get_devel_selected () with | None -> () @@ -1144,10 +1147,13 @@ class gui () = self#updateFontSize (); (* debug menu *) main#debugMenu#misc#hide (); - (* status bar *) + (* HBUGS *) + main#hintNotebook#misc#hide (); + (* main#hintLowImage#set_file (image_path "matita-bulb-low.png"); main#hintMediumImage#set_file (image_path "matita-bulb-medium.png"); main#hintHighImage#set_file (image_path "matita-bulb-high.png"); + *) (* focus *) self#sourceView#misc#grab_focus (); (* main win dimension *)