paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Prevent a crash while exiting. Issue #38635, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@64841 -
This commit is contained in:
juha 2021-03-20 10:16:33 +00:00
parent a4e3ce8735
commit 01aadf340e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -89,6 +89,7 @@ type
procedure SetFont(AValue: PPangoFontDescription);
procedure SetVisible(AValue: Boolean);
procedure SetStyleContext(AValue: PGtkStyleContext);
class procedure destroy_event(w:Tgtk3Widget;data:gpointer);cdecl;
protected
// IUnknown implementation
function QueryInterface(constref iid: TGuid; out obj): LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
@ -2507,6 +2508,12 @@ begin
GetContainerWidget^.set_style(AValue);}
end;
class procedure TGtk3Widget.destroy_event(w: Tgtk3Widget; data: gpointer); cdecl;
begin
if Assigned(w) then
w.fWidget:=nil;
end;
function TGtk3Widget.getText: String;
begin
Result := fText; // default text storage
@ -2647,9 +2654,9 @@ begin
// move signal connections into attach events
FWidget^.set_events(GDK_DEFAULT_EVENTS_MASK);
g_signal_connect_data(FWidget, 'destroy', TGCallback(@TGtk3Widget.destroy_event), Self, nil, 0);
g_signal_connect_data(FWidget, 'event', TGCallback(@Gtk3WidgetEvent), Self, nil, 0);
for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
begin
FWidget^.get_style_context^.get_background_color(i, @ARgba);
@ -2662,7 +2669,6 @@ begin
end;
end;
if FCentralWidget <> nil then
begin
FCentralWidget^.set_events(GDK_DEFAULT_EVENTS_MASK);