luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* 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
This commit is contained in:
Benoît Minisini 2010-12-10 01:57:34 +00:00
parent 22d3945361
commit 98628b539d
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
app/src/gambas3/.src/Editor/Form/FToolPanel.class
View file

@ -147,11 +147,23 @@ End
Public Procedure btnControl_MouseUp() Public Procedure btnControl_MouseUp()
Dim sComp As String
Dim sClass As String
If $bNoEvent Then Return If $bNoEvent Then Return
If Mouse.Right Then 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 Else