From 16be2ec0a626454b02481cf2dd26d520c0880f62 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Sat, 25 Jan 2025 20:07:04 +0100
Subject: [PATCH] Gtk3: update scroll event, some code leaved inside debug
 define.

---
 lcl/interfaces/gtk3/gtk3widgets.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas
index c6d0812ef6..85923cc578 100644
--- a/lcl/interfaces/gtk3/gtk3widgets.pas
+++ b/lcl/interfaces/gtk3/gtk3widgets.pas
@@ -8298,16 +8298,20 @@ begin
   Control := TGtk3CustomControl(data);
   {$IFDEF GTK3DEBUGSCROLL}
   writeln('>TGtk3CustomControl.RangeValueChanged ', dbgsName(Control.LCLObject), ' InUpdate=', Control.InUpdate);
+  {$ENDIF}
   if Control.InUpdate then
   begin
+    {$IFDEF GTK3DEBUGSCROLL}
     writeln('<TGtk3CustomControl.RangeValueChanged exiting because of InUpdate lock.');
+    {$ENDIF}
     exit;
   end else
   begin
+    {$IFDEF GTK3DEBUGSCROLL}
     writeln('  setting InUpdate lock.');
+    {$ENDIF}
     Control.BeginUpdate;
   end;
-  {$ENDIF}
 
   Adjustment := gtk_range_get_adjustment(range);
   CurrentValue := gtk_adjustment_get_value(Adjustment);
@@ -8341,8 +8345,8 @@ begin
   {$IFDEF GTK3DEBUGSCROLL}
   WriteLn('<TGtk3CustomControl.RangeValueChanged: CurrentValue=', CurrentValue:0:2, ', PrevValue=', PrevValue:0:2,
           ', Delta=', Delta:0:2, ', InUpdate=', Control.InUpdate, ' releasing lock ...');
-  Control.EndUpdate;
   {$ENDIF}
+  Control.EndUpdate;
 end;
 
 procedure TGtk3CustomControl.InitializeWidget;