Toolbar: Prevent resize infinite recursion.

[GB.FORM.MDI]
* BUG: Toolbar: Prevent resize infinite recursion.

comp/src/gb.form.mdi/.component

@@ -1,6 +1,6 @@
 [Component]
 Key=gb.form.mdi
-Version=3.18.0
+Version=3.18.90
 Authors=Benoît Minisini
 Needs=Form
 Requires=gb.form,gb.settings

comp/src/gb.form.mdi/.project

@@ -2,7 +2,7 @@
 Title=Multiple document interface management
 Startup=FMain
 Icon=.hidden/control/workspace.png
-Version=3.18.0
+Version=3.18.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui

comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class

@@ -398,8 +398,6 @@ Private Sub Update()
   
   'dwgHandle.Refresh
   
-  $bLock = False
-
   If sepToolbar.Visible Then 
     If $bReallyVertical Then
       Inc W
@@ -416,6 +414,8 @@ Private Sub Update()
     Me.Parent.Resize(W, H)
   Endif
   
+  $bLock = False
+
   SetArrangement
   
 End
@@ -426,20 +426,20 @@ Public Sub TimerUpdate_Timer()
   
 End
 
-
 Public Sub Form_Resize()
   
+  If $bLock Then Return
   $hTimerUpdate.Trigger
   
 End
  
 Public Sub Container_Arrange()
   
+  If $bLock Then Return
   $hTimerUpdate.Trigger
   
 End
 
-
 Public Sub panToolbar_BeforeArrange()
 
   If $bDesign Then Return