diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-20 09:47:23 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-20 09:47:23 +0000 |
commit | f5afee34bdf667ef1987df943fc9aec41dcb90bc (patch) | |
tree | 63eecadcbcb88512717c0be0fa67a3fd1c89a87f /ide/session.ml | |
parent | cfe99ef73d9470ec215404d6e1b2fe69cc677cd0 (diff) |
Better encapsulation of MessageView
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16323 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/session.ml')
-rw-r--r-- | ide/session.ml | 4 |
1 files changed, 1 insertions, 3 deletions
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; |