[MACTCL] Another problem on the Mac

[<Ge...@Or...>]

Hi. The last post I made was regarding "pack forget" not
working properly. 

There was not a single reply, email or list. 

Is this because it is on MacOS 9.1? 

Clients are hard to come by, and the client is running 9.1,
and so am I. I don't plan on using MacOS X until a number
of releases in the future. 

So I'd really appreciate it if someone would look at this bug.
The previous bug I worked around by not using "pack forget", and
using two top-level windows instead. 

 ---- 

This time, still under a fresh install of ActiveState 8.3.4,
the menubutton is flaky. 

Out of ten times clicking on it, either holding the mouse button
down, or releasing it, the pop-up menu appears then <POOF> it's gone. 

I've isolated it down to a very few lines of code, enclosed. 

Please, someone tell me if this problem happens for you,
and what might be done about it. 

I source the file to execute it under wish. (The entry box that
used variable ::lce to display the chosen menu entry is chopped
out too, to no avail.) 

 ---- 

   wm geometry . 746x536+24+21 

   set ::Canvas2a        [frame .f]
   set ::COUNTRY_menu    $::Canvas2a.mb
   set ::COUNTRY_menu_mb $::COUNTRY_menu.mb 

   menubutton $::COUNTRY_menu -text Country -menu $::COUNTRY_menu_mb
   set mb [menu $::COUNTRY_menu_mb -tearoff 0] 

   foreach {country value} {U.S.A. USA UK UK Canada Canada Japan Japan  \
       Germany Germany E.E.C EEC Italy Italy Australia Australia  \
       {New Zealand} {New Zealand} Mexico Mexico Brazil Brazil  \
       {South America} {South America}}  { 

       $mb add radio -label $country ;# -variable ::lce  -value $value
   } 

   pack $::COUNTRY_menu -side left  -fill x
   pack $::Canvas2a -side top