From f97c282b0d49d8b92ca0959e54208b49df5d7592 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 10 Jun 2013 21:25:29 +0000 Subject: [PATCH] lcl: gtk2: less hints git-svn-id: trunk@41669 - --- lcl/interfaces/gtk2/gtk2lclintf.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk2/gtk2lclintf.inc b/lcl/interfaces/gtk2/gtk2lclintf.inc index 69edaaa1d2..1b349b72cf 100644 --- a/lcl/interfaces/gtk2/gtk2lclintf.inc +++ b/lcl/interfaces/gtk2/gtk2lclintf.inc @@ -1062,7 +1062,7 @@ begin if (BtnResult>=Low(ButtonResults)) and (BtnResult<=High(ButtonResults)) then BtnID := ButtonResults[DlgBtn.ModalResult]; if (BtnIdx=CancelID) then - g_object_set_data(PGObject(Dialog), 'modal_result', Pointer(PtrInt(DlgBtn.ModalResult))); + g_object_set_data(PGObject(Dialog), 'modal_result', {%H-}Pointer(PtrInt(DlgBtn.ModalResult))); X := DlgBtn.ModalResult; g_object_set_data(PGObject(Btn), 'modal_result',