diff options
Diffstat (limited to 'otherlibs/labltk/browser/viewer.ml')
| -rw-r--r-- | otherlibs/labltk/browser/viewer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/browser/viewer.ml b/otherlibs/labltk/browser/viewer.ml index eb25b9f0fa..6e2b7783c0 100644 --- a/otherlibs/labltk/browser/viewer.ml +++ b/otherlibs/labltk/browser/viewer.ml @@ -328,7 +328,7 @@ let f ?(dir=Unix.getcwd()) ?on () = pack [tl] ~expand:true ~fill:`Both; coe tl in - let menus = Menu.create tl ~name:"menubar" in + let menus = Menu.create tl ~name:"menubar" ~borderwidth:0 in Toplevel.configure (Winfo.toplevel tl) ~menu:menus; let filemenu = new Jg_menu.c "File" ~parent:menus and modmenu = new Jg_menu.c "Modules" ~parent:menus in @@ -389,7 +389,7 @@ class st_viewer ?(dir=Unix.getcwd()) ?on () = pack [tl] ~expand:true ~fill:`Both; coe tl in - let menus = Menu.create tl ~name:"menubar" in + let menus = Menu.create tl ~name:"menubar" ~borderwidth:0 in let filemenu = new Jg_menu.c "File" ~parent:menus and modmenu = new Jg_menu.c "Modules" ~parent:menus and viewmenu = new Jg_menu.c "View" ~parent:menus |