From 83c39796eb54f4119513da8387a7ffec68653719 Mon Sep 17 00:00:00 2001 From: gambas Date: Tue, 20 Nov 2018 12:14:18 +0100 Subject: [PATCH] Toolbar: Drag & drop should not crash anymore because of the previous change in the Parent property. [GB.FORM.MDI] * BUG: Toolbar: Drag & drop should not crash anymore because of the previous change in the Parent property. --- comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class b/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class index 381114dd7..1bbbf51f4 100644 --- a/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class +++ b/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class @@ -899,8 +899,8 @@ Public Sub Form_DragMove() Return Endif - While hCtrl.Parent <> panToolBar - hCtrl = hCtrl.Parent + While hCtrl._Parent <> panToolBar + hCtrl = hCtrl._Parent Wend If hCtrl = panWhere Then Return @@ -966,8 +966,8 @@ Private Sub OnMouseDrag(hCtrl As Control) Dim sAction As String - While hCtrl.Parent <> panToolBar - hCtrl = hCtrl.Parent + While hCtrl._Parent <> panToolBar + hCtrl = hCtrl._Parent 'Debug "-> "; hCtrl Wend