diff options
| author | jnarboux | 2008-06-03 12:45:38 +0000 |
|---|---|---|
| committer | jnarboux | 2008-06-03 12:45:38 +0000 |
| commit | 18b38dbeaedb2fb036d590b0f3a7314878663916 (patch) | |
| tree | ace9969df28a96a19f9a4e627ad47ae41656f6e5 | |
| parent | a8b99e40e954ff7c1ff4858b44ffa362c225928b (diff) | |
try to reduce the size of the queries pane
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11042 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/command_windows.ml | 16 | ||||
| -rw-r--r-- | ide/coqide.ml | 3 |
2 files changed, 9 insertions, 10 deletions
diff --git a/ide/command_windows.ml b/ide/command_windows.ml index c9eb8ad2d0..ab65fa1439 100644 --- a/ide/command_windows.ml +++ b/ide/command_windows.ml @@ -18,18 +18,18 @@ class command_window () = let frame = GBin.frame ~label:"Command Pane" ~shadow_type:`IN () in let _ = frame#misc#hide () in let _ = GtkData.AccelGroup.create () in - let vbox = GPack.vbox ~homogeneous:false ~packing:frame#add () in + let hbox = GPack.hbox ~homogeneous:false ~packing:frame#add () in let toolbar = GButton.toolbar - ~orientation:`HORIZONTAL - ~style:`BOTH + ~orientation:`VERTICAL + ~style:`ICONS ~tooltips:true - ~packing:(vbox#pack + ~packing:(hbox#pack ~expand:false ~fill:false) () in let notebook = GPack.notebook ~scrollable:true - ~packing:(vbox#pack + ~packing:(hbox#pack ~expand:true ~fill:true ) @@ -39,7 +39,7 @@ class command_window () = toolbar#insert_button ~tooltip:"Hide Commands Pane" ~text:"Hide Pane" - ~icon:(Ideutils.stock_to_widget ~size:`LARGE_TOOLBAR `CLOSE) + ~icon:(Ideutils.stock_to_widget `CLOSE) ~callback:frame#misc#hide () in @@ -47,7 +47,7 @@ class command_window () = toolbar#insert_button ~tooltip:"New Page" ~text:"New Page" - ~icon:(Ideutils.stock_to_widget ~size:`LARGE_TOOLBAR `NEW) + ~icon:(Ideutils.stock_to_widget `NEW) () in @@ -55,7 +55,7 @@ class command_window () = toolbar#insert_button ~tooltip:"Delete Page" ~text:"Delete Page" - ~icon:(Ideutils.stock_to_widget ~size:`LARGE_TOOLBAR `DELETE) + ~icon:(Ideutils.stock_to_widget `DELETE) ~callback:(fun () -> notebook#remove_page notebook#current_page) () in diff --git a/ide/coqide.ml b/ide/coqide.ml index 29b34d28ad..c8a38b7789 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -3195,8 +3195,7 @@ with _ := Induction for _ Sort _.\n",61,10, Some GdkKeysyms._S); ~packing:(fr_b#add) () in let command_object = Command_windows.command_window() in let queries_frame = command_object#frame in - queries_pane#pack2 ~shrink:true ~resize:true (queries_frame#coerce); - + queries_pane#pack2 ~shrink:false ~resize:false (queries_frame#coerce); let lower_hbox = GPack.hbox ~homogeneous:false ~packing:vbox#pack () in let status_bar = GMisc.statusbar ~packing:(lower_hbox#pack ~expand:true) () in |