From dc38f72144d7dfed730a5e8f01dff159d09bb185 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 29 Jun 2015 09:32:46 +0000 Subject: [PATCH] lcl: gtk2: less hints git-svn-id: trunk@49466 - --- lcl/interfaces/gtk2/gtk2wsmenus.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk2/gtk2wsmenus.pp b/lcl/interfaces/gtk2/gtk2wsmenus.pp index e59bc1b2c0..7c89116d70 100644 --- a/lcl/interfaces/gtk2/gtk2wsmenus.pp +++ b/lcl/interfaces/gtk2/gtk2wsmenus.pp @@ -365,7 +365,7 @@ var begin if not WSCheckMenuItem(AMenuItem, 'SetCaption') then Exit; - if gtk_is_separator_menu_item(PGTKWidget(AMenuItem.Handle)) Or (ACaption = cLineCaption) then + if gtk_is_separator_menu_item({%H-}PGTKWidget(AMenuItem.Handle)) Or (ACaption = cLineCaption) then AMenuItem.RecreateHandle else begin