paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 06:20:42 +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); g_object_unref(im_context);
im_context:=nil; im_context:=nil;
im_context_widget:=nil; im_context_widget:=nil;
if StayOnTopList <> nil then FreeAndNil(StayOnTopList);
begin
StayOnTopList.Free;
StayOnTopList := nil;
end;
Gtk2Destroy; Gtk2Destroy;
{$IFDEF HASX} {$IFDEF HASX}
if FDesktopWidget <> nil then if FDesktopWidget <> nil then
@ -1302,8 +1298,7 @@ begin
end; end;
end; end;
end; end;
StayOnTopList.Free; FreeAndNil(StayOnTopList);
StayOnTopList := nil;
end; end;
@ -1604,8 +1599,7 @@ procedure TGtk2WidgetSet.FreeAllStyles;
begin begin
If Assigned(Styles) then begin If Assigned(Styles) then begin
ReleaseAllStyles; ReleaseAllStyles;
Styles.Free; FreeAndNil(Styles);
Styles:=nil;
end; end;
end; end;