Use the new 'Control.RightToLeft' property instead of the global 'System.RightToLeft' one.

[GB.FORM.MDI]
* NEW: Use the new 'Control.RightToLeft' property instead of the global 'System.RightToLeft' one.

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

@@ -9,7 +9,7 @@ Component=gb.gui
 Component=gb.form
 Component=gb.settings
 Authors="Benoît Minisini"
-Environment="GB_GUI=gb.qt5\n GTK_DEBUG=interactive"
+Environment="GB_GUI=gb.gtk3\n GTK_DEBUG=interactive"
 TabSize=2
 Translate=1
 Language=en

comp/src/gb.form.mdi/.src/Tests/FMain.class

@@ -55,7 +55,11 @@ End
 
 Public Sub Workspace1_Activate()
 
-  'Try Debug Workspace1.ActiveWindow.Title
+  If Workspace1.ActiveWindow Then
+    Debug Workspace1.ActiveWindow.Name
+  Else 
+    Debug "NULL"
+  Endif
 
 End
 
@@ -64,3 +68,15 @@ Public Sub ToolButton1_Click()
   Action.Configure
 
 End
+
+Public Sub Form_Activate()
+
+  Debug
+
+End
+
+Public Sub Form_Close()
+
+  Debug
+
+End

comp/src/gb.form.mdi/.src/Tests/Form1.class

@@ -11,6 +11,7 @@ End
 Public Sub Form_Open()
 
   Inc $iCpt
+  Me.Name = "Form1." & $iCpt
   Me.Title = "#" & $iCpt
   Label1.Text = Me.Title
 

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

@@ -228,7 +228,7 @@ Private Sub SetArrangement()
       'Debug ToolBarKey;; "WT = "; WT;; NX
     Endif
   
-    X = If(System.RightToLeft, panToolBar.W - SH, SH)
+    X = If(Me.RightToLeft, panToolBar.W - SH, SH)
     For Each hCtrl In panToolBar.Children
       If Not hCtrl.Visible Then Continue
       
@@ -251,7 +251,7 @@ Private Sub SetArrangement()
         Endif
       Endif
       
-      If System.RightToLeft Then
+      If Me.RightToLeft Then
       
         X -= W
         If X < 0 Then
@@ -311,7 +311,7 @@ Private Sub Update()
 
   If Not $bReallyVertical Then
   
-    If System.RightToLeft Then
+    If Me.RightToLeft Then
       XH = Me.W - $iHandleSize
       YH = 0
       XP = 0