From 98628b539d26e7496a0c85f1685a2d48668e0f4d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Fri, 10 Dec 2010 01:57:34 +0000 Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Clicking with the right mouse button on a toolbox control now correctly raises the help on that control. git-svn-id: svn://localhost/gambas/trunk@3354 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- app/src/gambas3/.src/Editor/Form/FToolPanel.class | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/app/src/gambas3/.src/Editor/Form/FToolPanel.class b/app/src/gambas3/.src/Editor/Form/FToolPanel.class index bf3db2bb3..5fe9f44fa 100644 --- a/app/src/gambas3/.src/Editor/Form/FToolPanel.class +++ b/app/src/gambas3/.src/Editor/Form/FToolPanel.class @@ -147,11 +147,23 @@ End Public Procedure btnControl_MouseUp() + Dim sComp As String + Dim sClass As String + If $bNoEvent Then Return If Mouse.Right Then - MHelp.GotoClass(CComponent.Classes[Last.Tag[0]].Component, Last.Tag[0]) + 'MHelp.GotoClass(CComponent.Classes[Last.Tag[0]].Component, Last.Tag[0]) + sClass = Last.Tag[0] + If sClass <> SELECT_TOOL Then + sComp = CComponent.Classes[sClass].Component + If sComp = CComponent.PROJECT_NAME Then + Project.OpenFile(Last.Tag[0]) + Else + MHelp.ShowHelpBrowserWith(Null, MHelp.TYPE_CLASS, Last.Tag[0]) + Endif + Endif Else