From 4aa431716f80cf225caaba7dfe0e9f93b35e4de9 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 14 Jan 2008 12:57:34 +0000
Subject: [PATCH] fix gtk1 compilation

git-svn-id: trunk@13749 -
---
 lcl/interfaces/gtk/gtkwsextctrls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkwsextctrls.pp b/lcl/interfaces/gtk/gtkwsextctrls.pp
index 8dedfc7675..28e30aeff0 100644
--- a/lcl/interfaces/gtk/gtkwsextctrls.pp
+++ b/lcl/interfaces/gtk/gtkwsextctrls.pp
@@ -594,7 +594,7 @@ begin
     Exit;
     
   GtkNotebook := PGtkNoteBook(ANotebook.Handle);
-  if gtk_notebook_current_page(GtkNotebook) <> AIndex then
+  if gtk_notebook_get_current_page(GtkNotebook) <> AIndex then
   begin
     gtk_object_set_data(PGtkObject(GtkNotebook), LCL_NotebookManualPageSwitchKey, ANotebook);
     gtk_notebook_set_page(GtkNotebook, AIndex);