diff -r fd7498845be2 -r eb9b49155bf8 tools/JavaMapInspectorView.st --- a/tools/JavaMapInspectorView.st Fri Mar 22 13:29:20 2019 +0100 +++ b/tools/JavaMapInspectorView.st Wed Apr 03 08:32:45 2019 +0200 @@ -1,5 +1,9 @@ +"{ Encoding: utf8 }" + "{ Package: 'stx:libjava/tools' }" +"{ NameSpace: Smalltalk }" + DictionaryInspectorView subclass:#JavaMapInspectorView instanceVariableNames:'' classVariableNames:'' @@ -36,13 +40,6 @@ !JavaMapInspectorView methodsFor:'private'! -allNumericKeys - - ^false "for now" - - "Created: / 04-12-2011 / 17:38:20 / Jan Vrany " -! - baseInspectedObjectClass | cls | @@ -56,6 +53,13 @@ "Modified: / 25-07-2014 / 09:39:41 / Jan Vrany " ! +hasAllNumericKeys + + ^false "for now" + + "Created: / 03-04-2019 / 08:23:59 / Claus Gittinger" +! + indexList "return a list of indexes to show in the selectionList. Set hasMore to true, if a '...' entry should be added." @@ -64,7 +68,7 @@ allShown := (inspectedObject perform: #'size()I') <= nShown. - (allShown and:[self allNumericKeys]) ifTrue:[ + (allShown and:[self hasAllNumericKeys]) ifTrue:[ sortBlockForKeys := [:a :b | a < b]. ] ifFalse:[ sortBlockForKeys := [:a :b | a displayString < b displayString]. @@ -85,6 +89,7 @@ "Modified: / 10-05-2011 / 08:14:59 / cg" "Created: / 04-12-2011 / 17:38:01 / Jan Vrany " + "Modified: / 03-04-2019 / 08:24:11 / Claus Gittinger" ! valueForSpecialLine:line @@ -131,7 +136,7 @@ !JavaMapInspectorView class methodsFor:'documentation'! version_CVS - ^ '$Header: /cvs/stx/stx/libjava/tools/JavaMapInspectorView.st,v 1.5 2015-03-20 13:29:52 vrany Exp $' + ^ '$Header$' ! version_HG @@ -140,6 +145,6 @@ ! version_SVN - ^ 'Id' + ^ '$Id$' ! !