From 9edbd4c61803f63fc0dd8beebf1691da176098fd Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 25 May 2009 09:37:04 +0000
Subject: [PATCH] gtk2: remove checkbox from menu item if Image and Check are
 not needed

git-svn-id: trunk@20195 -
---
 lcl/interfaces/gtk2/gtk2wsmenus.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2wsmenus.pp b/lcl/interfaces/gtk2/gtk2wsmenus.pp
index 82825f1162..3cdfdd4d37 100644
--- a/lcl/interfaces/gtk2/gtk2wsmenus.pp
+++ b/lcl/interfaces/gtk2/gtk2wsmenus.pp
@@ -405,7 +405,8 @@ class procedure TGtk2WSMenuItem.UpdateMenuIcon(const AMenuItem: TMenuItem;
 begin
   if not WSCheckMenuItem(AMenuItem, 'UpdateMenuIcon') then
     Exit;
-  // TODO
+  if gtk_is_check_menu_item(Pointer(AMenuItem.Handle)) <> HasIcon then
+    AMenuItem.RecreateHandle;
 end;
 
 { TGtk2WSMenu }