let keyBindingBoxes = (* event boxes which should receive global key events *)
[ toolbar#toolBarEventBox; proof#proofWinEventBox ]
in
+ let console = MatitaConsole.console ~packing:main#scrolledConsole#add () in
+ let _ =
+ console#echo_message "message";
+ console#echo_error "error";
+ console#echo_prompt ()
+ in
object (self)
initializer
(* glade's check widgets *)
dialog#check_widgets ();
dialog
- method newTextDialog () =
- let dialog = new textDialog ~file () in
+ method newEmptyDialog () =
+ let dialog = new emptyDialog ~file () in
dialog#check_widgets ();
dialog