nice name list
authorClaus Gittinger <cg@exept.de>
Wed, 16 May 2012 18:52:41 +0200
changeset 11512 beaaefe35ca1
parent 11511 95cda90d64c8
child 11513 79e2c470f26f
nice name list
DictionaryInspectorView.st
--- 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 $'
 ! !