paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

GTK2: Allow TPopupMenu GroupIndex = 0 as a valid index. Issue #28329, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@49464 -
This commit is contained in:
juha 2015-06-28 12:45:41 +00:00
parent 5d9db19451
commit 16c48dc400
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -7250,22 +7250,22 @@ begin
CurrentGroupIndex := integer({%H-}PtrUInt(g_object_get_data({%H-}Pointer(hndMenu), GROUPIDX_DATANAME)));
// Update needed ?
if GroupIndex = CurrentGroupIndex
{ if GroupIndex = CurrentGroupIndex
then begin
Result := True;
Exit;
end;
end;}
// Remove current group
gtk_radio_menu_item_set_group({%H-}PGtkRadioMenuItem(hndMenu), nil);
g_object_set_data({%H-}Pointer(hndMenu), GROUPIDX_DATANAME, nil);
// Check remove only
if GroupIndex = 0
{ if GroupIndex = 0
then begin
Result := True;
Exit;
end;
end; }
// Try to find new group
RadioGroup := GetGroup;