--- a/DictionaryInspectorView.st Wed May 16 18:52:29 2012 +0200
+++ b/DictionaryInspectorView.st Wed May 16 18:52:41 2012 +0200
@@ -552,7 +552,7 @@
].
firstRealIndex := 1.
idx := lineNr.
- [line := listView at:firstRealIndex.
+ [line := self listEntryAt:firstRealIndex.
(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
firstRealIndex := firstRealIndex + 1.
idx := idx - 1.
@@ -561,6 +561,8 @@
^ idx
].
^ super keyIndexForLine:lineNr
+
+ "Modified: / 16-05-2012 / 17:56:01 / cg"
!
namedFieldList
@@ -648,9 +650,9 @@
!DictionaryInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.74 2011-05-10 06:15:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.75 2012-05-16 16:52:41 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.74 2011-05-10 06:15:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.75 2012-05-16 16:52:41 cg Exp $'
! !