diff --git a/app/src/gambas3/.project b/app/src/gambas3/.project index 4d178e8e9..c22134d89 100644 --- a/app/src/gambas3/.project +++ b/app/src/gambas3/.project @@ -2,6 +2,7 @@ # Compiled with Gambas 3.5.90 Title=Gambas 3 Startup=Project +Profiling=1 Icon=img/logo/logo-ide.png Version=3.5.90 VersionFile=1 diff --git a/app/src/gambas3/.src/Component/CClassInfo.class b/app/src/gambas3/.src/Component/CClassInfo.class index dc67851e3..fee9f787a 100644 --- a/app/src/gambas3/.src/Component/CClassInfo.class +++ b/app/src/gambas3/.src/Component/CClassInfo.class @@ -638,17 +638,20 @@ Public Sub GetHelpHTML() As String Endif - If hClassInfo.AutoCreatable Then sInfo &= ("This class can be used like an object by creating an hidden instance on demand.") & "
" - If hClassInfo.Creatable Then - hSymbol = cClassSymbols["_new"] - If hSymbol Then - sInfo &= Subst(("This class is &1."), GetSymbolLink(hSymbol, ("creatable"))) - Else - sInfo &= Subst(("This class is &1."), ("creatable")) - Endif - sInfo &= "
" + If hClassInfo.AutoCreatable And If bHasDynamic Then + sInfo &= ("This class can be used like an object by creating an hidden instance on demand.") & "
" + Endif + + If hClassInfo.Creatable And If cClassSymbols.Exist("_new") Then + hSymbol = cClassSymbols["_new"] + sInfo &= Subst(("This class is &1."), GetSymbolLink(hSymbol, ("creatable"))) & "
" + Else + If Not bHasDynamic Then + Else + sInfo &= ("This class is static.") & "
" + Endif + sInfo &= ("This class is not cretable.") & "
" Endif - If Not bHasDynamic Then sInfo &= ("This class is static.") & "
" hSymbol = cClassSymbols["_call"] If hSymbol Then @@ -830,7 +833,7 @@ Public Function WikiGetSymbols() As String[] If IsVirtual() Then aResult.Add(("This class is virtual.") & "\\") - Else If AutoCreatable Then + Else If AutoCreatable And If bDynamic Then aResult.Add(("This class can be used like an object by creating a hidden instance on demand.") & "\\") Endif diff --git a/app/src/gambas3/.src/Welcome/FWelcome.class b/app/src/gambas3/.src/Welcome/FWelcome.class index 9f8ef54bf..cc9878ae7 100644 --- a/app/src/gambas3/.src/Welcome/FWelcome.class +++ b/app/src/gambas3/.src/Welcome/FWelcome.class @@ -181,6 +181,7 @@ Private Sub Toggle(iState As Integer) txtFilter.SetFocus Case LIST_EXAMPLE + $hExample.Fill panList.Raise lstRecent.Hide txtFilter.Hide @@ -188,7 +189,6 @@ Private Sub Toggle(iState As Integer) txtFilterExample.Show panList.Show txtFilterExample.SetFocus - $hExample.Fill End Select