diff options
| -rw-r--r-- | otherlibs/labltk/browser/editor.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/browser/viewer.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/labltk/browser/editor.ml b/otherlibs/labltk/browser/editor.ml index bfcd69fdc2..a750f087b9 100644 --- a/otherlibs/labltk/browser/editor.ml +++ b/otherlibs/labltk/browser/editor.ml @@ -650,7 +650,7 @@ let editor ?file ?(pos=0) ?(reuse=false) () = false then () else let top = Jg_toplevel.titled "Editor" in - let menus = Menu.create top ~name:"menubar" in + let menus = Menu.create top ~name:"menubar" ~borderwidth:0 in Toplevel.configure top ~menu:menus; let ed = new editor ~top ~menus in already_open := !already_open @ [ed]; 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 |