From cdd369ee12449ce10e13b1180334820335b08ddc Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 22 Mar 2004 19:15:53 +0000
Subject: [PATCH] clean up

git-svn-id: trunk@5337 -
---
 lcl/interfaces/gtk/gtkpagecallback.inc | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkpagecallback.inc b/lcl/interfaces/gtk/gtkpagecallback.inc
index c8587b1444..0112ec9c4b 100644
--- a/lcl/interfaces/gtk/gtkpagecallback.inc
+++ b/lcl/interfaces/gtk/gtkpagecallback.inc
@@ -21,7 +21,6 @@ var
   NoteBookWidget: PGtkWidget;
   PageWidget: PGtkWidget;
   TabWidget: PGtkWidget;
-  TabImageWidget: PGtkWidget;
 begin
   NoteBook:=Page.Parent as TCustomNotebook;
   if (NoteBook.Images=nil) or (Page.ImageIndex<0)
@@ -36,9 +35,6 @@ begin
   TabWidget:=gtk_notebook_get_tab_label(PGtkNoteBook(NotebookWidget),
                                         PageWidget);
   if TabWidget=nil then exit;
-  TabImageWidget:=PGtkWidget(gtk_object_get_data(PGtkObject(TabWidget),
-                                                 'TabImage'));
-  //writeln('DrawNotebookPageIcon B ',Page.Name,' ',GetWidgetDebugReport(TabImageWidget));
   DrawImageListIconOnWidget(NoteBook.Images,Page.ImageIndex,Widget);
 end;