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
_______________________________________________
Tkinter-discuss mailing list
Tkinter-discuss@python.org
https://mail.python.org/mailman/listinfo/tkinter-discuss
