From 31336d11108cf516f2b58eae9b48ee9d92121716 Mon Sep 17 00:00:00 2001 From: tombo Date: Wed, 12 Sep 2007 11:02:01 +0000 Subject: [PATCH] Carbon intf.: fixed bug #0009409: Carbon Widgetset: Radio TMenuItem does not update git-svn-id: trunk@12007 - --- lcl/interfaces/carbon/carbonmenus.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/carbon/carbonmenus.pp b/lcl/interfaces/carbon/carbonmenus.pp index 653aa8206b..c4d6e4501f 100644 --- a/lcl/interfaces/carbon/carbonmenus.pp +++ b/lcl/interfaces/carbon/carbonmenus.pp @@ -530,7 +530,7 @@ begin Item := TCarbonMenu(FParentMenu.FItems[I]); if Item = Self then Continue; - if Item.LCLMenuItem.RadioItem and Item.LCLMenuItem.AutoCheck and + if Item.LCLMenuItem.RadioItem and (Item.LCLMenuItem.GroupIndex = LCLMenuItem.GroupIndex) then SetItemMark(FParentMenu.Menu, Item.GetIndex + 1, #0);