From 94d6dff18cffdc05ae2dc5947b89aef401fcf715 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 2 Nov 2005 13:43:53 +0000
Subject: [PATCH] simplified TGtkWSMenuItem.SetRadioItem

git-svn-id: trunk@8035 -
---
 lcl/interfaces/gtk/gtkwsmenus.pp | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkwsmenus.pp b/lcl/interfaces/gtk/gtkwsmenus.pp
index 7a891b160b..750dce636b 100644
--- a/lcl/interfaces/gtk/gtkwsmenus.pp
+++ b/lcl/interfaces/gtk/gtkwsmenus.pp
@@ -228,15 +228,8 @@ end;
 
 function TGtkWSMenuItem.SetRadioItem(const AMenuItem: TMenuItem;
   const RadioItem: boolean): boolean;
-var
-  LCLMenuItem: TMenuItem;
 begin
-  LCLMenuItem:=TMenuItem(GetLCLObject(Pointer(hndMenu)));
-  if LCLMenuItem<>nil then begin
-    LCLMenuItem.RecreateHandle;
-    Result:=true;
-  end else
-    Result := false;
+  AMenuItem.RecreateHandle;
 end;
 
 function TGtkWSMenuItem.SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean;