[TCLCORE] system menu entries and the topmost attribute

[Martin L. <mar...@ep...>]

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