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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Help browser: Mark class as creatable if they don't have a 
  constructor but have dynamic variables.


git-svn-id: svn://localhost/gambas/trunk@6521 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-10-07 21:33:24 +00:00
parent c6d37cf4b8
commit 42eebd91f9
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/src/gambas3/.src/Component/CClassInfo.class
View file

@ -498,6 +498,7 @@ Public Sub GetHelpHTML() As String
Dim sTitle As String
Dim bHasDynamic As Boolean
Dim bHasSymbol As Boolean
Dim bHasDynamicVariable As Boolean
Dim sParent As String
Dim hParentClass As CClassInfo
Dim sStr As String
@ -546,6 +547,7 @@ Public Sub GetHelpHTML() As String
aConst.Add(sComp)
Case "v"
aVar.Add(sComp)
bHasDynamicVariable = True
Case "V"
aStaticVar.Add(sComp)
End Select
@ -645,12 +647,14 @@ Public Sub GetHelpHTML() As String
If hClassInfo.Creatable And If cClassSymbols.Exist("_new") Then
hSymbol = cClassSymbols["_new"]
sInfo &= Subst(("This class is &1."), GetSymbolLink(hSymbol, ("creatable"))) & "<br>"
Else If hClassInfo.Creatable And If bHasDynamicVariable Then
sInfo &= Subst(("This class is &1."), ("creatable")) & "<br>"
Else
If Not bHasDynamic Then
Else
sInfo &= ("This class is static.") & "<br>"
Endif
Else
sInfo &= ("This class is not creatable.") & "<br>"
Endif
Endif
hSymbol = cClassSymbols["_call"]