From 6164d86867db7ed1fe8124734a9a6059a8069769 Mon Sep 17 00:00:00 2001
From: ajgenius <ajgenius@lazarus-ide.org>
Date: Fri, 5 Sep 2003 19:03:19 +0000
Subject: [PATCH] removed a redundant routine which broke gtk1

git-svn-id: trunk@4568 -
---
 lcl/interfaces/gtk/gtkproc.inc | 8 +++-----
 lcl/interfaces/gtk/gtkproc.pp  | 2 --
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index f754347e9a..8482fcd3b1 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -74,11 +74,6 @@ begin
     result := nil;
 end;
 
-Function gtk_notebook_get_tab_label(Notebook : PGtkNotebook; Child : PGTKWidget) : PGTKWidget;
-begin
-  result := PGtkNotebookPage(Child)^.Tab_Label;
-end;
-
 function gtk_window_get_modal(window:PGtkWindow):gboolean;
 begin
   result := (Window^.flag0 and bm_modal)<>0;
@@ -4523,6 +4518,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.195  2003/09/05 19:03:19  ajgenius
+  removed a redundant routine which broke gtk1
+
   Revision 1.194  2003/09/05 18:19:54  ajgenius
   Make GTK2 "compile". linking fails still
   (Makefile.fpc needs pkgconfig libs/GTK2 linking rules,
diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp
index a970e04289..95c0826434 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -489,8 +489,6 @@ function gtk_widget_get_ythickness(Style : PGTKWidget) : gint; overload;
 
   Function gtk_bin_get_child(bin : PGTKBin) : PGTKWidget;
 
-  Function gtk_notebook_get_tab_label(Notebook : PGtkNotebook; Child : PGTKWidget) : PGTKWidget;
-
   Function gtk_window_get_modal(window:PGtkWindow):gboolean;
 
   Procedure gtk_menu_item_set_right_justified(menu_item : PGtkMenuItem; right_justified : gboolean);