From db8d1de46965bd5923b13e09fad6521135e551df Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:11 +0000
Subject: [PATCH] localized gtk interface

git-svn-id: trunk@2263 -
---
 lcl/interfaces/gtk/gtkproc.inc | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 9067479a3f..3f5e67f44c 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -1211,16 +1211,23 @@ end;
   Add a childwidget onto a client area (fixed or layout widget).
 ------------------------------------------------------------------------------}
 Procedure FixedPutControl(Parent, Child : PGTKWIdget; Left, Top : Longint);
+
+  procedure RaiseInvalidFixedWidget;
+  begin
+    // this is in a separate procedure for optimisation
+    WriteLn('[FixedPutControl] WARNING: Invalid Fixed Widget.',
+      ' Parent=',HexStr(Cardinal(Parent),8),
+      ' Child=',HexStr(Cardinal(Child),8)
+      );
+  end;
+
 begin
   If GTKWidgetIsA(Parent, GTK_Fixed_Get_Type) then
     gtk_fixed_put(PGtkFixed(Parent), Child, Left, Top)
   else If GTKWidgetIsA(Parent, GTK_Layout_Get_Type) then
     gtk_Layout_Put(PGtkLayout(Parent), Child, Left, Top)
   else
-    WriteLn('[FixedPutControl] WARNING: Invalid Fixed Widget.',
-      ' Parent=',HexStr(Cardinal(Parent),8),
-      ' Child=',HexStr(Cardinal(Child),8)
-      );
+    RaiseInvalidFixedWidget;
 end;
 
 {------------------------------------------------------------------------------
@@ -3985,6 +3992,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.161  2003/03/09 21:13:32  mattias
+  localized gtk interface
+
   Revision 1.160  2003/03/02 23:08:31  mattias
   fixed TComboBox.OnChange