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