--- a/ImageInspectorView.st	Fri May 23 11:35:57 2014 +0200
+++ b/ImageInspectorView.st	Fri May 23 16:34:32 2014 +0200
@@ -67,6 +67,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:ImageInspectorView andSelector:#imageMenu
      (Menu new fromLiteralArrayEncoding:(ImageInspectorView imageMenu)) startUp
@@ -78,15 +79,14 @@
      #(Menu
         (
          (MenuItem
+            enabled: hasImage
             label: 'Edit'
             itemValue: menuEdit
-            translateLabel: true
           )
          (MenuItem
+            enabled: filenameOfImageKnown
             label: 'File Browser'
             itemValue: menuFileBrowser
-            translateLabel: true
-            enabled: filenameOfImageKnown
           )
          (MenuItem
             label: '-'
@@ -94,30 +94,25 @@
          (MenuItem
             label: 'Magnification...'
             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
@@ -126,19 +121,16 @@
                (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
                 )
                )
@@ -275,14 +267,20 @@
 !ImageInspectorView methodsFor:'queries'!
 
 filenameOfImageKnown
-    ^ [ inspectedObject fileName notNil ]
+    ^ [ inspectedObject isImage and:[inspectedObject fileName notNil] ]
+!
+
+hasImage
+    "do we inspect an image and not a Form?"
+
+    ^ inspectedObject isImage
 !
 
 labelFor:anObject
     |l fn|
 
     l := super labelFor:anObject.
-    (anObject notNil and:[(fn := anObject fileName) notNil]) ifTrue:[
+    (anObject isImage and:[(fn := anObject fileName) notNil]) ifTrue:[
         l := l , ' (''' , fn asFilename baseName, ''')'
     ].
     ^ l
@@ -293,10 +291,10 @@
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.32 2014-05-11 11:33:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.33 2014-05-23 14:34:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.32 2014-05-11 11:33:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.33 2014-05-23 14:34:32 stefan Exp $'
 ! !