Tk Source Code: Artifact [5b302b80]

Artifact 5b302b808b63d3779a08445b9321f0ed5365207f311b12825ec15457d9fea98c:

Attachment "test.tcl" to ticket [2d3a81c0] added by oehhar 2024-07-09 08:20:59.

pack [ttk::menubutton .b -text "Button"]
menu .b.s -tearoff 0
.b.s add checkbutton -label fStop -command selected
.b configure -menu .b.s

proc selected {} {
	destroy .b
	puts .
}