paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fix that forces type of gtrue to longint. This makes lazarus compatible with both boolean32 based gboolean type (in FPC/trunk since r17923) while keeping compat with the old (longbool, which will remain in 2.4.x)

Browse Source 
git-svn-id: trunk@31546 -
This commit is contained in:
marco 2011-07-03 20:39:13 +00:00
parent 6ec341b0c1
commit 6e953d396f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1564,7 +1564,7 @@ begin
(csDesigning in AWinControl.ComponentState) then (csDesigning in AWinControl.ComponentState) then
Exit; Exit;
Value.g_type := G_TYPE_BOOLEAN; Value.g_type := G_TYPE_BOOLEAN;
Value.data[0].v_int := gTRUE; Value.data[0].v_int := longint(gTRUE);
g_object_set_property(PGObject(AWidget), 'button-sensitivity', @Value); g_object_set_property(PGObject(AWidget), 'button-sensitivity', @Value);
end; end;