ToolPanel does not crash anymore.

[GB.FORM]
* BUG: ToolPanel does not crash anymore.

comp/src/gb.form/.component

@@ -1,5 +1,5 @@
 [Component]
 Key=gb.form
-Version=3.11.90
+Version=3.12.90
 Authors=Benoît Minisini
 Needs=Form

comp/src/gb.form/.project

@@ -1,13 +1,13 @@
 # Gambas Project File 3.0
 Title=More controls for graphical components
-Startup=FBugFileView
-Version=3.11.90
+Startup=FTestDateChooser
+Version=3.12.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui
 Component=gb.settings
 Authors="Benoît Minisini"
-Environment="GB_GUI=gb.qt4"
+Environment="GB_GUI=gb.gtk3"
 TabSize=2
 Translate=1
 Language=en

comp/src/gb.form/.src/Test/FTestDateChooser.class

@@ -17,3 +17,10 @@ Public Sub DateBox2_Change()
   Debug DateBox2.Value
 
 End
+
+Public Sub Button1_Click()
+
+  DateBox1.Enabled = Not DateBox1.Enabled
+  DateBox2.Enabled = Not DateBox2.Enabled
+
+End

comp/src/gb.form/.src/Test/FTestDateChooser.form

@@ -17,7 +17,8 @@
     Move(63,140,168,28)
   }
   { txtYear SpinBox
-    Move(168,308,63,28)
+    Move(216,296,64,24)
+    Enabled = False
     MinValue = 1600
     MaxValue = 9999
     Value = 2015
@@ -27,4 +28,12 @@
     Move(21,203,238,28)
     Enabled = False
   }
+  { Button1 Button
+    Move(32,8,128,32)
+    Text = ("Enable")
+  }
+  { TextBox1 TextBox
+    Move(64,256,136,32)
+    Enabled = False
+  }
 }

comp/src/gb.form/.src/Test/FTestToolPanel.class

@@ -0,0 +1,2 @@
+' Gambas class file
+

comp/src/gb.form/.src/Test/FTestToolPanel.form

@@ -0,0 +1,16 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  { ToolPanel1 ToolPanel
+    MoveScaled(4,6,24,24)
+    Count = 3
+    Index = 0
+    Text = ("Toolbar &0")
+    Index = 1
+    Text = ("Toolbar &1")
+    Index = 2
+    Text = ("Toolbar &2")
+    Index = 0
+  }
+}

comp/src/gb.form/.src/ToolPanel/FToolBar.class

@@ -41,7 +41,7 @@ End
 
 Public Sub btnTitle_Click()
 
-  Dim hParent As ToolPanelContainer = Me.Parent
+  Dim hParent As ToolPanelContainer = Me._Parent
   hParent._Change
 
 End