[DEVELOPMENT ENVIRONMENT]

* NEW: More dark theme icons.
* NEW: Fabien's version of the new logo.
* BUG: Image editor: Pasted images are not one pixel too big anymore.

[GB.DBUS.TRAYICON]
* BUG: Toggle menus triggered from the trayicon menu correctly raise the
  Click event
  
[GB.FORM]
* NEW: TabPanel: Clicking with the middle mouse button on a tab button now 
  closes it.


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

app/src/gambas3/.src/Debug/FDebugInfo.form

@@ -272,7 +272,7 @@
     }
   }
   { btnClose ToolButton
-    MoveScaled(1,1,4,4)
+    MoveScaled(0,0,4,4)
     Background = Color.Background
     Ignore = True
     Picture = Picture["icon:/small/close"]

app/src/gambas3/.src/Editor/Code/FEditor.form

@@ -109,7 +109,7 @@
     { mnuWatch Menu
       Action = ".watch"
       Text = Shortcut(("Watch expression"), "W")
-      Picture = Picture["icon:/small/watch"]
+      Picture = Picture["img/16/watch.png"]
     }
     { mnuSepBookmark Menu
     }

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

@@ -1696,7 +1696,7 @@ Public Sub imvImage_Draw(hZoom As Image)
     
     With $hPasteSelect.GetExtents()
       If .Width > 0 And If .Height > 0 Then
-        hImage = New Image(Ceil(.Width) + 1, Ceil(.Height) + 1, Color.Transparent)
+        hImage = New Image(Ceil(.Width), Ceil(.Height), Color.Transparent)
         
         Paint.Begin(hImage)
         Paint.Brush = Paint.Image($hPaste)

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

@@ -446,9 +446,15 @@
       Picture = Picture["img/draw/magic.png"]
       Toggle = True
     }
+    { btnHide ToolButton
+      MoveScaled(102,0,4,4)
+      ToolTip = ("Hide selection")
+      Action = ".hide"
+      Picture = Picture["img/draw/hide.png"]
+    }
     { btnEditSelection ToolButton btnTool
       Name = "btnEditSelection"
-      MoveScaled(103,0,4,4)
+      MoveScaled(106,0,4,4)
       Tag = "change"
       ToolTip = ("Edit selection")
       Action = ".tool-change"
@@ -456,13 +462,7 @@
       Toggle = True
     }
     { Separator8 Separator
-      MoveScaled(107,0,1,4)
-    }
-    { btnHide ToolButton
-      MoveScaled(108,0,4,4)
-      ToolTip = ("Hide selection")
-      Action = ".hide"
-      Picture = Picture["img/draw/hide.png"]
+      MoveScaled(110,0,1,4)
     }
     { btnInvert ToolButton
       MoveScaled(111,0,4,4)
@@ -741,7 +741,7 @@
 { Toolbars
   { Toolbar image
     Text = "Image editor"
-    List = "save,reload,locked,undo,redo,zoom-in,zoom,zoom-out,zoom-normal,zoom-fit,grid,resize,rotate,copy,cut,tool-paste,tool-move,tool-draw,tool-erase,tool-line,tool-rectangle,tool-ellipse,tool-text,tool-magic,tool-change,hide,invert,duplicate,offset,crop,flip-h,flip-v,rotate-r,rotate-l"
-    Default = "save,reload,locked,undo,redo,|,zoom-in,zoom,zoom-out,zoom-normal,zoom-fit,grid,|,copy,cut,tool-paste,|,tool-move,tool-draw,tool-erase,tool-line,tool-rectangle,tool-ellipse,tool-text,tool-magic,tool-change,|,hide,invert,duplicate,offset,|,crop,flip-h,flip-v,rotate-r,rotate-l"
+    List = "save,reload,locked,undo,redo,zoom-in,zoom,zoom-out,zoom-normal,zoom-fit,grid,resize,rotate,copy,cut,tool-paste,tool-move,tool-draw,tool-erase,tool-line,tool-rectangle,tool-ellipse,tool-text,tool-magic,hide,tool-change,invert,duplicate,offset,crop,flip-h,flip-v,rotate-r,rotate-l"
+    Default = "save,reload,locked,undo,redo,|,zoom-in,zoom,zoom-out,zoom-normal,zoom-fit,grid,|,copy,cut,tool-paste,|,tool-move,tool-draw,tool-erase,tool-line,tool-rectangle,tool-ellipse,tool-text,tool-magic,hide,tool-change,|,invert,duplicate,offset,|,crop,flip-h,flip-v,rotate-r,rotate-l"
   }
 }

comp/src/gb.dbus.trayicon/.project

@@ -8,6 +8,7 @@ Component=gb.image
 Component=gb.gui
 Component=gb.form
 Component=gb.dbus
+Environment="GB_GUI=gb.qt4"
 TabSize=2
 Language=fr
 Type=Component

comp/src/gb.dbus.trayicon/.src/FTest.class

@@ -4,6 +4,7 @@
 Public Sub TrayIcon1_Click()
 
   Debug
+  Me.Visible = Not Me.Visible
 
 End
 
@@ -54,3 +55,27 @@ Public Sub TrayIcon1_MiddleClick()
   Debug
 
 End
+
+Public Sub Menu6_Click()
+
+  Debug
+
+End
+
+Public Sub Menu7_Click()
+
+  Debug
+
+End
+
+Public Sub Menu8_Click()
+
+  Debug
+
+End
+
+Public Sub Button3_Click()
+
+  Menu5.Value = Not Menu5.Value
+
+End

comp/src/gb.dbus.trayicon/.src/FTest.form

@@ -2,6 +2,7 @@
 
 { Form Form
   MoveScaled(0,0,64,64)
+  Persistent = True
   { Menu1 Menu
     Text = ("Menu1")
     { Menu2 Menu
@@ -58,4 +59,8 @@
     MoveScaled(23,4,16,4)
     Text = ("Picture")
   }
+  { Button3 Button
+    MoveScaled(32,12,16,4)
+    Text = ("Menu5")
+  }
 }

comp/src/gb.dbus.trayicon/.src/TrayIcon.class

@@ -275,6 +275,7 @@ Public Sub _Clicked(hMenu As Menu)
 
   If hMenu.Toggle Then
     hMenu.Value = Not hMenu.Value
+    Object.Raise(hMenu, "Click")
     UpdateMenu
   Else
     hMenu.Value = True

comp/src/gb.form/.src/TabPanel/_TabPanelButton.class

@@ -292,6 +292,11 @@ Public Sub DrawingArea_MouseDown()
       'Me.Parent.SetFocus()
       hTabPanel.Index = GetIndex()
     Endif
+  Else If Mouse.Middle Then
+    If IsClosable() Then
+      hTabPanel = GetParent()
+      hTabPanel._Close(GetIndex())
+    Endif
   Endif
   
 End