From: SourceForge.net <no...@so...> - 2004-08-20 12:04:18
|
Bugs item #1012852, was opened at 2004-08-20 05:04 Message generated for change (Tracker Item Submitted) made by Item Submitter You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1012852&group_id=12997 Category: 11. Aqua Menus Group: None Status: Open Resolution: None Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: George B. Smith (gbjsmith) Summary: Radio Button Checkboxes fail when accelerators are used Initial Comment: TclTkAqua release 8.4.7 When menu items include radiobuttons with accelerators, the checkboxes indicating the currently selected item do not update correctly. In the following script, the menu without accelerators works correctly. In the one with accelerators, the radio item is never unchecked. set lc "black" menu .menubar . config -menu .menubar set color [menu .menubar.color -tearoff 0] set color1 [menu .menubar.color1 -tearoff 0] .menubar add cascade -label "Colors with Accelerators" - menu .menubar.color .menubar add cascade -label "Colors without Accelerators" -menu .menubar.color1 $color add radio -label "Black" -variable lc -value "black" - accelerator "Command-B" $color add radio -label "Red" -variable lc -value "red" - accelerator "Command-R" $color add radio -label "Green" -variable lc -value "green" -accelerator "Command-G" $color add radio -label "Blue" -variable lc -value "blue" - accelerator "Command-E" $color1 add radio -label "Black" -variable lc -value "black" $color1 add radio -label "Red" -variable lc -value "red" $color1 add radio -label "Green" -variable lc -value "green" $color1 add radio -label "Blue" -variable lc -value "blue" canvas .pic -width 800 -height 600 -bg white pack .pic -side top -fill both -expand 1 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1012852&group_id=12997 |