diff -r 707fe892a63e -r 49a0c6fc64b4 DictionaryInspectorView.st
--- a/DictionaryInspectorView.st	Mon Jun 21 22:11:16 2010 +0200
+++ b/DictionaryInspectorView.st	Thu Jul 01 10:54:52 2010 +0200
@@ -106,7 +106,7 @@
                        ('-')
                        ('Browse'               browse         )
                        ('-')
-                       ('Add Key'              doAddKey       )
+                       ('Add Key...'           doAddKey       )
                        ('Remove Key'           doRemoveKey    )
                        ('-')
                    ).
@@ -181,7 +181,7 @@
                        ('Browse Class Hierarchy'       browseClassHierarchy   )
                        ('Browse Full Class Protocol'   browseFullClassProtocol)
                        ('-')
-                       ('Add Key'              doAddKey       )
+                       ('Add Key...'           doAddKey       )
                        ('Remove Key'           doRemoveKey    )
                    ).
     ].
@@ -232,7 +232,7 @@
 
     ^ m.
 
-    "Modified: / 29-05-2007 / 19:33:43 / cg"
+    "Modified: / 01-07-2010 / 10:53:08 / cg"
 ! !
 
 !DictionaryInspectorView methodsFor:'menu actions'!
@@ -253,7 +253,7 @@
     |keyName key val l|
 
     keyName := Dialog request:'Key to add (storeString):' initialAnswer:''.
-    keyName notEmpty ifTrue:[
+    keyName notEmptyOrNil ifTrue:[
         key := Object readFrom:keyName onError:[ self information:'Bad input.'. ^ self].
         (inspectedObject includesKey:key) ifFalse:[
             val := Dialog request:'Value to add (storeString):' initialAnswer:''.
@@ -269,6 +269,8 @@
             listView scrollToLine:l
         ]
     ]
+
+    "Modified: / 01-07-2010 / 10:53:25 / cg"
 !
 
 doHideAliases
@@ -581,7 +583,7 @@
 
     selIdx := self theSingleSelectionIndex.
     selIdx notNil ifTrue:[
-        ^ self selectedKey
+        ^ Array with:self selectedKey
     ].
     ^ (selectionIndex ? #()) 
         collect:[:eachSelectionIndex |
@@ -593,6 +595,8 @@
                 ifFalse:[ nil ]
         ]
         thenSelect:[:each | each notNil].
+
+    "Modified: / 01-07-2010 / 10:54:31 / cg"
 ! !
 
 !DictionaryInspectorView methodsFor:'user interaction'!
@@ -615,9 +619,9 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.70 2010-03-09 09:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.71 2010-07-01 08:54:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.70 2010-03-09 09:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.71 2010-07-01 08:54:52 cg Exp $'
 ! !