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

Merge branch 'fix_gtk2_clipboard_leak' into 'main'

Browse Source 
gtk2: fix resource leak (gtk_clipboard_wait_for_contents). Issue #40499

See merge request freepascal.org/lazarus/lazarus!235
This commit is contained in:
Maxim Ganetsky 2023-09-10 16:20:32 +00:00
commit a018a3ca41
No known key found for this signature in database
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -7600,6 +7600,7 @@ var
TimeID: cardinal;
EventData: PClipboardEventData;
TypeAtom: TGdkAtom;
GtkSelectionDataPtr: PGtkSelectionData;
begin
{$IFDEF DEBUG_CLIPBOARD}
DebugLn('[RequestSelectionData] FormatID=',dbgs(FormatID));
@ -7634,8 +7635,10 @@ begin
// WaitForClipboardAnswer provides a timeout as in some cases
// gtk_clipboard_wait_for_contents can wait forever
if WaitForClipboardAnswer(EventData) then begin
gtk_clipboard_wait_for_contents(gtk_clipboard_get(TypeAtom), FormatID);
Result:=EventData^.Data;
GtkSelectionDataPtr := gtk_clipboard_wait_for_contents(gtk_clipboard_get(TypeAtom), FormatID);
if GtkSelectionDataPtr <> nil then
gtk_selection_data_free(GtkSelectionDataPtr);
Result:=EventData^.Data; //why aren't we using the returned object from gtk_clipboard_wait_for_contents directly?
end;
end;
finally