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

gtk2: use FreeAndNil where appropriate in Gtk2Int

Browse Source 
git-svn-id: trunk@34393 -
This commit is contained in:
blikblum 2011-12-24 20:41:11 +00:00
parent 22b9483947
commit 750733b289
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1123,11 +1123,7 @@ begin
g_object_unref(im_context);
im_context:=nil;
im_context_widget:=nil;
if StayOnTopList <> nil then
begin
StayOnTopList.Free;
StayOnTopList := nil;
end;
FreeAndNil(StayOnTopList);
Gtk2Destroy;
{$IFDEF HASX}
if FDesktopWidget <> nil then
@ -1302,8 +1298,7 @@ begin
end;
end;
end;
StayOnTopList.Free;
StayOnTopList := nil;
FreeAndNil(StayOnTopList);
end;
@ -1604,8 +1599,7 @@ procedure TGtk2WidgetSet.FreeAllStyles;
begin
If Assigned(Styles) then begin
ReleaseAllStyles;
Styles.Free;
Styles:=nil;
FreeAndNil(Styles);
end;
end;