From f5afee34bdf667ef1987df943fc9aec41dcb90bc Mon Sep 17 00:00:00 2001 From: ppedrot Date: Wed, 20 Mar 2013 09:47:23 +0000 Subject: Better encapsulation of MessageView git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16323 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/session.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'ide/session.ml') diff --git a/ide/session.ml b/ide/session.ml index 6342f698b..8eeb3c6f9 100644 --- a/ide/session.ml +++ b/ide/session.ml @@ -198,8 +198,6 @@ let build_layout (sn:session) = ~vpolicy:`AUTOMATIC ~hpolicy:`AUTOMATIC ~packing:proof_frame#add () in let message_frame = GBin.frame ~shadow_type:`IN ~packing:state_paned#add2 () in - let message_scroll = GBin.scrolled_window - ~vpolicy:`AUTOMATIC ~hpolicy:`AUTOMATIC ~packing:message_frame#add () in let session_tab = GPack.hbox ~homogeneous:false () in let img = GMisc.image ~icon_size:`SMALL_TOOLBAR ~packing:session_tab#pack () in @@ -229,7 +227,7 @@ let build_layout (sn:session) = session_paned#pack2 ~shrink:false ~resize:false (sn.command#frame#coerce); script_scroll#add sn.script#coerce; proof_scroll#add sn.proof#coerce; - message_scroll#add sn.messages#coerce; + message_frame#add sn.messages#coerce; session_tab#pack sn.tab_label#coerce; img#set_stock `YES; eval_paned#set_position 1; -- cgit v1.2.3