--- 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 $'
! !