|
From: Martin L. <mar...@ep...> - 2004-04-07 10:58:57
|
Hello,
I extended the system menu of my tcl/tk application with the following =
code:
proc topmost {} {
variable topmost;
=20
wm attributes . -topmost $topmost;
. configure -menu .main;
}
menu .main
. configure -menu .main
menu .main.system -tearoff 0;
.main.system add separator;
.main.system add checkbutton \
-label "always at the top" \
-variable topmost \
-command topmost;
.main.system add command \
-label "console" \
-command {console show};
.main add cascade -label System -menu .main.system
After changing the window attribute topmost to "true", the system menu
extensions faided away - they are not shown anymore. But the window has
still its menu structure and its menu visible!
What could be done to work around this? Or is this a bug?
Thanks a lot!
Martin Lemburg
|