Add 'chat' and 'magnet' stock icons.

[GB.FORM]
* NEW: Add 'chat' and 'magnet' stock icons.

comp/src/gb.form/.src/File/Chooser/FDirChooser.class

@@ -907,7 +907,7 @@ Private Sub CheckFile() As Boolean ' FIXME: If 'As Boolean' is forgotten, and 'R
   Endif
 
   If Exist(dvwChoose.Current &/ sFile) Then 
-    If Message.Warning(("This file already exists.\n\nDo you want to overwrite it?"), ("&Overwrite"), ("Cancel")) = 2 Then Return True
+    If Message.Warning(("This file already exists.\n\nDo you want to overwrite it?"), ("Overwrite"), ("Cancel")) = 2 Then Return True
   Endif 
   
 End

comp/src/gb.form/.src/Test/FTestFileChooser.class

@@ -20,7 +20,7 @@ End
 
 Public Sub Button1_Click()
 
-  DirChooser1.Background = Color.Default
+  FileChooser1.Background = Color.Default
 
 End
 
@@ -48,6 +48,6 @@ Public Sub Form_Open()
 
   'FileChooser1.Dir = "/usr/bin"
   'FileChooser1.SelectedPath = "/home/benoit/gambas/git/master/app/src/gambas3/img/broken.svg"
-  DirChooser1.Settings = [1, "", "", Null, True, Null, Null, -1]
+  'FileChooser1.Settings = [1, "", "", Null, True, Null, Null, -1]
 
 End

comp/src/gb.form/.src/Test/FTestFileChooser.form

@@ -64,9 +64,10 @@
     #Translate = False
     Expand = True
     Spacing = True
-    { DirChooser1 DirChooser
-      MoveScaled(8,8,65,48)
+    { FileChooser1 FileChooser
+      MoveScaled(8,9,83,48)
       Expand = True
+      ShowButton = True
     }
     { FileProperties1 FileProperties
       MoveScaled(94,7,32,44)

comp/src/gb.form/map/icon.map

@@ -60,6 +60,7 @@ cancel                  actions/dialog-cancel
 car                     places/poi-car
 cdrom                   devices/media-optical
 chart                   actions/view-statistics
+chat                    categories/applications-chat
 cherry                  #
 city                    #
 column-after            actions/edit-table-insert-column-right
@@ -231,6 +232,7 @@ lock-screen             apps/system-lock-screen;actions/system-lock-screen
 logout                  apps/system-log-out;actions/system-log-out
 lower                   actions/object-order-lower
 love                    actions/love
+magnet                  actions/kt-magnet
 mail                    apps/evolution-mail;actions/mail-mark-unread;;preferences/preferences-mail;apps/preferences-mail
 make                    actions/arrow-down
 make-all                actions/arrow-down-double