--- a/DictionaryInspectorView.st Mon Jan 28 21:19:21 2013 +0000
+++ b/DictionaryInspectorView.st Fri Feb 08 08:35:48 2013 +0100
@@ -44,12 +44,13 @@
"
! !
+
!DictionaryInspectorView methodsFor:'event handling'!
keyPress:key x:x y:y
"handle special keys"
- <resource: #keyboard (#Delete #BackSpace)>
+ <resource: #keyboard (#Delete #BackSpace #Insert)>
(key == #Delete or:[key == #BackSpace]) ifTrue:[
self doRemoveKey.
@@ -63,6 +64,7 @@
super keyPress:key x:x y:y
! !
+
!DictionaryInspectorView methodsFor:'initialization & release'!
initialize
@@ -78,6 +80,7 @@
hideNilValues := false.
! !
+
!DictionaryInspectorView methodsFor:'menu'!
fieldMenu
@@ -236,6 +239,7 @@
"Modified: / 26-09-2012 / 13:20:59 / cg"
! !
+
!DictionaryInspectorView methodsFor:'menu actions'!
browse
@@ -381,6 +385,7 @@
]
! !
+
!DictionaryInspectorView methodsFor:'private'!
allNumericKeys
@@ -534,12 +539,11 @@
].
^ keyList
keysAndValuesCollect:[:idx :nm |
- self listEntryForName:nm value:(self indexedValueAtIndex:idx)
+ self listEntryForName:nm value:(object at:(indexList at:idx))
].
"/ ^ keyList
"Modified: / 26-09-2012 / 13:22:08 / cg"
- "Modified: / 06-07-2012 / 10:36:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
instVarIndexForLine:lineNr
@@ -642,6 +646,7 @@
].
! !
+
!DictionaryInspectorView methodsFor:'user interaction'!
indexedValueAtIndex:idx
@@ -659,16 +664,18 @@
inspectedObject at:key put:newValue.
! !
+
!DictionaryInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.78 2013-01-17 10:48:34 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.78 2013-01-17 10:48:34 cg Exp $'
!
version_SVN
^ '$Id: DictionaryInspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $'
! !
+