[DEVELOPMENT ENVIRONMENT]

* BUG: When browsing the entire project, skip *.WAV and *.OGG files, and 
  check that the file is not binary as last resort.
* NEW: Make module icons a little bit less dark


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

app/src/gambas3/.src/Project/FCreateFile.class

@@ -123,7 +123,6 @@ Public Sub Form_Open()
   'Dim aFilter As String[]
   Dim hPanel As Container
   Dim hPictureBox As PictureBox
-  Dim aFilterType As String[]
   Dim sType As String
 
   $bDoNotSetName = False
@@ -134,20 +133,17 @@ Public Sub Form_Open()
 
   If Project.IsSourceDir($sDir) Then
 
-    aFilterType = ["module", "class"]
-    
     lvwType.Add("module", ("Module"), Project.MakeModuleIcon("module", 32).Picture)
     lvwType.Add("class", ("Class"), Project.MakeModuleIcon("class", 32).Picture)
     
     For Each hModule In CModule.All
-      aFilterType.Add(hModule.Key)
-      lvwType.Add(hModule.Key, hModule.Name, Project.MakeModuleIcon(hModule.Key, 32).Picture)
+      If hModule.Used Then
+        lvwType.Add(hModule.Key, hModule.Name, Project.MakeModuleIcon(hModule.Key, 32).Picture)
+      Endif
     Next
     
   Else
   
-    aFilterType = ["image", "html", "css", "js", "text"]
-    
     lvwType.Add("image", ("Image"), Picture["icon:/32/image"])
     lvwType.Add("text", ("Text file"), Picture["icon:/32/text"])
     lvwType.Add("html", ("HTML file"), Picture["icon:/32/html"])

app/src/gambas3/.src/Search/FSearch.class

@@ -18,7 +18,7 @@ Private $hCurrent As Object
 Private $sGrep As String
 Private $bReplace As Boolean
 Private $aBrowse As New CFindResult[]
-Private $aExt As String[] = ["JPG", "JPEG", "BMP", "GIF", "PNG", "ICO", "XPM", "GAMBAS"]
+Private $aExt As String[] = ["JPG", "JPEG", "BMP", "GIF", "PNG", "ICO", "XPM", "GAMBAS", "WAV", "OGG"]
 Private $bCancel As Boolean
 
 Private $cGrepCache As New Collection
@@ -713,6 +713,8 @@ Private Sub Browse(Optional bReplace As Boolean, Optional bAgain As Boolean)
     If sName Begins "callgrind.out." Then Continue
     If sName Begins "cachegrind.out." Then Continue
     
+    If Not Project.IsTextFile(sPath) Then Continue
+    
     If sFile Begins ".src/" Then
       FDebugInfo.SetSearchListInfo(sName)
     Else