[DEVELOPMENT ENVIRONMENT]

* BUG: Don't say that the class is creatable when displaying help from 
  comments, if the class has no '_new' public method.


git-svn-id: svn://localhost/gambas/trunk@6490 867c0c6c-44f3-4631-809d-bfa615b0a4ec

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

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.") & "<br>"
-  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 &= "<br>"
+  If hClassInfo.AutoCreatable And If bHasDynamic Then
+    sInfo &= ("This class can be used like an object by creating an hidden instance on demand.") & "<br>"
+  Endif
+  
+  If hClassInfo.Creatable And If cClassSymbols.Exist("_new") Then 
+    hSymbol = cClassSymbols["_new"]
+   sInfo &= Subst(("This class is &1."), GetSymbolLink(hSymbol, ("creatable"))) & "<br>"
+  Else
+    If Not bHasDynamic Then 
+    Else
+      sInfo &= ("This class is static.") & "<br>"
+    Endif
+      sInfo &= ("This class is not cretable.") & "<br>"
   Endif
-  If Not bHasDynamic Then sInfo &= ("This class is static.") & "<br>"
   
   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
 

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