--- a/ImageInspectorView.st	Wed Jul 29 10:17:01 2009 +0200
+++ b/ImageInspectorView.st	Tue Aug 04 15:17:44 2009 +0200
@@ -87,6 +87,56 @@
             itemValue: menuMagnification
             translateLabel: true
           )
+         (MenuItem
+            label: 'Background'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'White'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: white
+                )
+               (MenuItem
+                  label: 'Grey'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: grey
+                )
+               (MenuItem
+                  label: 'Black'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: black
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Red'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: red
+                )
+               (MenuItem
+                  label: 'Green'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: green
+                )
+               (MenuItem
+                  label: 'Blue'
+                  itemValue: menuSetBackgroundColor:
+                  translateLabel: true
+                  argument: blue
+                )
+               )
+              nil
+              nil
+            )
+          )
          )
         nil
         nil
@@ -187,6 +237,10 @@
 
     "Created: / 28-05-2007 / 15:14:35 / cg"
     "Modified: / 30-10-2007 / 16:49:16 / cg"
+!
+
+menuSetBackgroundColor:colorNameSymbol
+    imageView backgroundColor:(Color name:colorNameSymbol)
 ! !
 
 !ImageInspectorView methodsFor:'queries'!
@@ -206,5 +260,5 @@
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.22 2008-11-26 15:45:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.23 2009-08-04 13:17:44 cg Exp $'
 ! !