Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

packing of search_frame 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3815 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2001-09-30 01:30:17 +00:00
parent 823f866fc9
commit de5a1043c9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
otherlibs/labltk/browser/viewer.ml
View File

@ -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