Re: problems with Aqua Tcl/Tk core_8_5_branch 2015-04-28

Here's the script:

package require Tk
option add *tearoff 0

wm title . "Menu Bug"
menu .menubar
menu .menubar.window
.menubar add cascade -menu .menubar.window -label Window
. configure -menu .menubar
button .click_me -text "Click Me" -command open_other
pack .click_me -padx 60 -pady 20

proc open_other {} {
     toplevel .other
     wm title .other "TopLevel"
     menu .other.menubar
     menu .other.menubar.window
     .other.menubar add cascade -menu .other.menubar.window -label Window
     .other configure -menu .other.menubar
     label .other.close_me -text "Close Me"
     pack .other.close_me -padx 20 -pady 10
     checkbutton .other.check -text "just checking"
     pack .other.check -padx 20 -pady 10
    }

-- 
Kevin Walzer
Code by Kevin/Mobile Code by Kevin
http://www.codebykevin.com
http://www.wtmobilesoftware.com