From de5a1043c97c0ddbf9b2b3e6a7abe8aa4f84686a Mon Sep 17 00:00:00 2001 From: Jacques Garrigue Date: Sun, 30 Sep 2001 01:30:17 +0000 Subject: [PATCH] packing of search_frame git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3815 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/labltk/browser/viewer.ml | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/otherlibs/labltk/browser/viewer.ml b/otherlibs/labltk/browser/viewer.ml index 10142851f..ee8625b49 100644 --- a/otherlibs/labltk/browser/viewer.ml +++ b/otherlibs/labltk/browser/viewer.ml @@ -473,9 +473,7 @@ object (self) begin fun () -> let v = Textvariable.get show_search in if v = "1" then begin - Pack.forget [boxes_frame]; - pack [search_frame] ~fill:`X ~expand:true; - pack [boxes_frame] ~fill:`Both ~expand:true + pack [search_frame] ~after:menus ~fill:`X end else Pack.forget [search_frame] end; @@ -493,9 +491,9 @@ object (self) ~side:`Left ~ipadx:5 ~anchor:`W; pack [helpmenu#button] ~side:`Right ~anchor:`E ~ipadx:5; pack [menus] ~fill:`X; - pack [search_frame] ~fill:`X ~expand:true; + pack [search_frame] ~fill:`X; pack [boxes_frame] ~fill:`Both ~expand:true; - pack [buttons] ~fill:`X ~side:`Bottom ~expand:false; + pack [buttons] ~fill:`X ~side:`Bottom; pack [view] ~fill:`Both ~side:`Bottom ~expand:true; reset_modules mbox