From 81c983adb1eae18d61a259bb401d986a98aeaf85 Mon Sep 17 00:00:00 2001 From: zeljan1 Date: Wed, 26 Mar 2025 13:17:43 +0100 Subject: [PATCH] Gtk3: TGtk3Notebook cleanup. select-page and change-current-page are not triggered at all. --- lcl/interfaces/gtk3/gtk3widgets.pas | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas index a2e09d5f7b..1da756a029 100644 --- a/lcl/interfaces/gtk3/gtk3widgets.pas +++ b/lcl/interfaces/gtk3/gtk3widgets.pas @@ -5146,18 +5146,6 @@ begin end; end; -function GtkNotebookSelectPage(ANoteBook: PGtkNotebook; p1: gboolean; Data: gPointer): GBoolean; cdecl; -begin - // does not trigger for some reason - if ANoteBook=nil then ; - if p1 then ; - if Data=nil then ; - {$IFDEF GTK3DEBUGNOTEBOOK} - DebugLn('GtkNotebookSelectPage '); - {$ENDIF} - Result:=true; -end; - function TGtk3NoteBook.CreateWidget(const Params: TCreateParams): PGtkWidget; var Alloc:TGtkAllocation; @@ -5178,9 +5166,7 @@ begin // this one triggers after above switch-page g_signal_connect_data(FCentralWidget,'switch-page', TGCallback(@GtkNotebookAfterSwitchPage), Self, nil, G_CONNECT_DEFAULT); PGtkNotebook(Result)^.set_scrollable(True); - // those signals doesn't trigger with gtk3-3.6 - // g_signal_connect_data(FCentralWidget,'change-current-page', TGCallback(@GtkNotebookAfterSwitchPage), Self, nil, 0); - // g_signal_connect_data(FCentralWidget,'select-page', TGCallback(@GtkNotebookSelectPage), Self, nil, 0); + FCentralWidget^.show_all; FCentralWidget^.size_allocate(@Alloc); end;