[DEVELOPMENT ENVIRONMENT]

* NEW: Update PictureBox icon.

[WIKI CGI SCRIPT]
* BUG: Take the new ".info" file format into account.

[GB.FORM]
* NEW: Update ImageView icon.


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

app/src/gambas-wiki/.src/CComponent.class

@@ -547,6 +547,7 @@ Public Sub Load()
   Dim sHelp As String
   Dim sElt As String
   Dim cCycle As Collection
+  Dim I As Integer
   
   If $bLoaded Then Return
 
@@ -600,6 +601,11 @@ Public Sub Load()
     Print "<pre>Cannot load list file: " & File.SetExt(sPath, "list") & "\n</pre>"
     Return
   Endif
+  
+  For I = 0 To aList.Max
+    sClass = aList[I]
+    If Right(sClass) = "!" Then aList[I] = Left(sClass, -1)
+  Next
     
   For Each sClass In aList
     If sClass Then cClass[sClass] = True

app/src/gambas3/.src/Editor/Form/CControl.class

@@ -177,7 +177,7 @@ Private Function CreateControl(sName As String, sClass As String, hParent As Obj
 
     Case "picturebox"
       hCtrl = New PictureBox(hParent)
-      hCtrl.Picture = Picture["img/logo/logo-32.png"]
+      hCtrl.Picture = Picture["img/control/picturebox.png"]
 
     Case "treeview"
       hCtrl = New TreeView(hParent)
@@ -914,7 +914,11 @@ Public Sub UpdateName()
 
       If Unknown Then 
         If Not IsMultiContainer() Then
-          If Not HasText() Then Try Control.Text = Name
+          If Not HasText() Then 
+            Try Control.Text = Name
+          Else
+            Try Control.Text = $cValue["Text"]
+          Endif
         Endif
         Control.Refresh
       Endif