From 6c84448ce9e6ee445beb9400cc44f339be030452 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 13 Sep 2003 16:43:01 +0000
Subject: [PATCH] fixed PerformTab call

git-svn-id: trunk@4619 -
---
 lcl/include/wincontrol.inc         | 8 ++++++--
 lcl/interfaces/gtk/gtkcallback.inc | 5 ++++-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 559d8fc5ee..3579e6ff2c 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1055,7 +1055,7 @@ begin
     If List.Count > 0 then begin
       J := List.IndexOf(CurrentControl);
       if J<0 then exit;
-      //writeln('TWinControl.FindNextControl A ',CurrentControl.Name,' ',J);
+      //writeln('TWinControl.FindNextControl A ',CurrentControl.Name,' ',J,' ',GoForward,',',CheckTabStop,',',CheckParent,',',OnlyWinControls);
       I := J;
       Repeat
         If GoForward then begin
@@ -1070,13 +1070,14 @@ begin
         if I=J then exit;
           
         Next := TControl(List[I]);
+        //writeln('TWinControl.FindNextControl B ',Next.Name,' ',I);
         If (((Not CheckTabStop) or Next.TabStop)
         and ((not CheckParent) or (Next.Parent = Self)))
         and (Next.Enabled and Next.Visible)
         and ((not OnlyWinControls) or (Next is TWinControl)) then
           Result := Next;
       until (Result <> nil);
-      //writeln('TWinControl.FindNextControl B ',Result.Name,' ',I);
+      //writeln('TWinControl.FindNextControl END ',Result.Name,' ',I);
     end;
   finally
     List.Free;
@@ -3078,6 +3079,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.168  2003/09/13 16:43:01  mattias
+  fixed PerformTab call
+
   Revision 1.167  2003/09/13 14:01:39  mattias
   fixed taborder dlg
 
diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc
index 1978e325dd..d286657760 100644
--- a/lcl/interfaces/gtk/gtkcallback.inc
+++ b/lcl/interfaces/gtk/gtkcallback.inc
@@ -639,7 +639,7 @@ begin
           and (PGtkWindow(TopLevel)^.focus_widget=Widget) then begin
             StopKeyEvent('key_press_event');
             //writeln('GTKKeyUpDown ',TControl(Data).Name,':',TControl(Data).ClassName);
-            {$Ifdef GTk1}result:={$EndIf}TControl(Data).PerformTab(ssShift in ShiftState);
+            {$Ifdef GTk1}Result:={$EndIf}TControl(Data).PerformTab(not (ssShift in ShiftState));
             If Result then begin
               {$IfNDef Win32}
               {$ifdef GTK2}
@@ -2847,6 +2847,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.190  2003/09/13 16:43:01  mattias
+  fixed PerformTab call
+
   Revision 1.189  2003/09/12 17:40:45  ajgenius
   fixes for GTK2(accel groups, menu accel, 'draw'),
   more work toward Pango(DrawText now works, UpdateDCTextMetric mostly works)