self#main#hintMediumImage#set_file "icons/matita-bulb-medium.png";
self#main#hintHighImage#set_file "icons/matita-bulb-high.png";
(* focus *)
- self#main#scriptTextView#misc#grab_focus ()
+ self#main#scriptTextView#misc#grab_focus ();
+ (* main win dimension *)
+ let width = Gdk.Screen.width () in
+ let height = Gdk.Screen.height () in
+ let main_w = width * 90 / 100 in
+ let main_h = height * 80 / 100 in
+ let script_w = main_w / 2 in
+ self#main#toplevel#resize ~width:main_w ~height:main_h;
+ self#main#hpaneScriptSequent#set_position script_w
method loadScript file =
let script = MatitaScript.instance () in