DictionaryInspectorView.st
branchjv
changeset 12405 76f9a872362b
parent 12296 6921627a8c27
parent 12111 0da8cd378b6f
child 12406 1fbd331e4489
--- 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 $'
 ! !
+