Search dialog: The "Public" folder is now correctly browsed in all cases.

[DEVELOPMENT ENVIRONMENT]
* NEW: Option dialog: Use icon-only tool buttons for configuring highlight style.
* BUG: Search dialog: The "Public" folder is now correctly browsed in all cases.
* NEW: Redraw some icons.

app/src/gambas3/.src/Options/FOption.class

@@ -76,7 +76,7 @@ Public Sub _new()
   Dim iInd As Integer
   Dim hHBox As HBox
   Dim hColor As DrawingArea
-  Dim hButton As Button
+  Dim hButton As ToolButton
   Dim aColors As Integer[]
 
   cmbTheme.List = $aThemeName.Copy().Sort(gb.Language)
@@ -179,13 +179,15 @@ Public Sub _new()
     hHBox = New HBox(svwTheme)
     hHBox.Tag = MTheme.ColorKeys[iInd]
     hHBox.Height = 4 * Desktop.Scale
-    hHBox.Spacing = 4
+    'hHBox.Spacing = 4
     hColor = New DrawingArea(hHBox) As "dwgStyle"
     hColor.Expand = True
     hColor.Border = Border.Plain
-    hButton = New Button(hHBox) As "btnStyle"
-    hButton.Text = ("Define...")
-    hButton.Width = Desktop.Scale * 16
+    hColor.Arrangement = Arrange.Horizontal
+    hColor.Invert = True
+    hButton = New ToolButton(hColor) As "btnStyle"
+    hButton.Picture = Picture["icon:/small/color"]
+    hButton.Resize(Desktop.Scale * 4, Desktop.Scale * 4)
     
   Next
   
@@ -720,8 +722,8 @@ End
 
 Public Sub btnStyle_Click()
 
-  $hDraw = Last.Parent.Children[0]
-  $sStyle = Last.Parent.Tag  
+  $hDraw = Last.Parent '.Children[0]
+  $sStyle = $hDraw.Parent.Tag  
   mnuPopup.Popup
   
 End

app/src/gambas3/.src/Project/FProjectProperty.form

@@ -426,6 +426,7 @@
       }
       { HBox18 HBox
         MoveScaled(0,16,84,4)
+        Background = Color.TextBackground
         { btnInsertLib ToolButton
           MoveScaled(0,0,17,4)
           AutoResize = True

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

@@ -759,9 +759,9 @@ Private Sub Browse(Optional bReplace As Boolean, Optional bAgain As Boolean)
   
   For Each sFile In RDir(sDir).Sort()
   
-    If Left(sFile) = "." Then
+    If Left(sFile) = "." And If sFile Not Begins ".public/" Then
       If OnlyData Then Continue
-      If Not (sFile Begins ".src/") Then Continue
+      If sFile Not Begins ".src/" Then Continue
     Endif
     
     If Right(sFile) = "~" Then Continue