From 4374f2360f31319dd6259ae22da2e54266338199 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Wed, 22 Jan 2025 18:26:22 +0100
Subject: [PATCH] Gtk3: added G_OBJECT_TYPE_NAME(), same name as gtk3 macro
 have. Needed for debugging.

---
 lcl/interfaces/gtk3/gtk3procs.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk3/gtk3procs.pas b/lcl/interfaces/gtk3/gtk3procs.pas
index 49e21a6250..4339e82092 100644
--- a/lcl/interfaces/gtk3/gtk3procs.pas
+++ b/lcl/interfaces/gtk3/gtk3procs.pas
@@ -249,7 +249,7 @@ const
 
 
 
-
+function G_OBJECT_TYPE_NAME(AWidget: PGObject): string;
 function Gtk3IsObject(AWidget: PGObject): GBoolean;
 function Gtk3IsButton(AWidget: PGObject): GBoolean;
 
@@ -1349,5 +1349,13 @@ begin
   g_list_free(TopList);
 end;
 
+function G_OBJECT_TYPE_NAME(AWidget:PGObject):string;
+begin
+  Result := '';
+  if AWidget = nil then
+    exit;
+  Result := g_type_name(PGObject(AWidget)^.g_type_instance.g_class^.g_type);
+end;
+
 
 end.