Project tree: Add a duplicate menu entry for data files.

[DEVELOPMENT ENVIRONMENT]
* NEW: Project tree: Add a duplicate menu entry for data files.
* NEW: Update some icons.

app/src/gambas3/.src/Editor/Image/FImageEditor.form

@@ -387,7 +387,7 @@
       Tag = "move"
       ToolTip = ("Move")
       Action = ".tool-move"
-      Picture = Picture["img/draw/scroll.png"]
+      Picture = Picture["icon:/small/move"]
       Toggle = True
       Value = True
     }
@@ -508,7 +508,7 @@
       MoveScaled(111,0,4,4)
       ToolTip = ("Duplicate selection")
       Action = ".duplicate"
-      Picture = Picture["img/draw/duplicate.png"]
+      Picture = Picture["icon:/small/clone"]
     }
     { btnOffset ToolButton
       MoveScaled(115,0,4,4)
@@ -638,7 +638,7 @@
   { Action duplicate
     Text = "Duplicate selection"
     Shortcut = "Ctrl+D"
-    Picture = "img/draw/duplicate.png"
+    Picture = "icon:/small/clone"
   }
   { Action exclusive
     Text = "Exclusive or"
@@ -765,7 +765,7 @@
   }
   { Action tool-move
     Text = "Move"
-    Picture = "img/draw/scroll.png"
+    Picture = "icon:/small/move"
   }
   { Action tool-paste
     Text = "Paste"

app/src/gambas3/.src/FMain.class

@@ -454,6 +454,7 @@ Public Sub mnuPopup_Show()
       mnuCut.Visible = bCurrent
       mnuCopy.Hide
       mnuPaste.Visible = True
+      mnuClone.Hide
       
       sParent = tvwProject[$sKey].ParentKey
       
@@ -542,6 +543,7 @@ Public Sub mnuPopup_Show()
       mnuCopy.Visible = bFile And Not IsDir($sKey)
       mnuPaste.Visible = bFile Or bCanStoreFile
       mnuPaste.Enabled = Clipboard.Format = MMime.FILE
+      mnuClone.Visible = mnuCopy.Visible And mnuPaste.Visible
     Endif
     
     mnuEditWith.Visible = False
@@ -1158,6 +1160,14 @@ Public Sub mnuPaste_Click()
   
 End
 
+Public Sub mnuClone_Click()
+  
+  mnuCopy_Click()
+  mnuPaste_Click()
+  
+End
+
+
 Public Sub tvwProject_Select()
   
   RefreshMenu
@@ -1250,6 +1260,7 @@ Public Sub UpdateMenu()
   mnuCut.Visible = bVisible
   mnuCopy.Visible = bVisible
   mnuPaste.Visible = bVisible
+  mnuClone.Visible = bVisible
   mnuDeleteFile.Visible = bVisible
   mnuClean.Visible = bVisible
   mnuNew.Visible = bVisible

app/src/gambas3/.src/FMain.form

@@ -610,7 +610,6 @@
       }
       { mnuNewFile Menu mnuNewFile
         Name = "mnuNewFile"
-        Action = "new-other"
         Text = Shortcut(("Other"), "O") & "..."
         Picture = Picture["icon:/small/new"]
         Tag = "text"
@@ -669,6 +668,11 @@
       Picture = Picture["icon:/small/paste"]
       Shortcut = "Ctrl+V"
     }
+    { mnuClone Menu
+      Action = "duplicate-file"
+      Text = ("Duplicate")
+      Picture = Picture["icon:/small/clone"]
+    }
     { mnuRenameFile Menu
       Action = "rename"
       Text = Shortcut(("Rename"), "R") & "..."
@@ -1565,6 +1569,11 @@
     Shortcut = ""
     Picture = "img/32/do-not-translate.png"
   }
+  { Action duplicate-file
+    Text = "Duplicate"
+    Shortcut = ""
+    Picture = "icon:/small/clone"
+  }
   { Action edit-class
     Text = "Open code"
     Shortcut = ""
@@ -1676,11 +1685,6 @@
     Shortcut = ""
     Picture = "$MenuButton"
   }
-  { Action new-other
-    Text = "Other"
-    Shortcut = ""
-    Picture = "icon:/small/new"
-  }
   { Action new-project
     Text = "New project"
     Shortcut = "Ctrl+N"