Merged with mercurial revision 4f3cc813be4 (8 changesets total)
Merged changesets:
- f14cd4bbd33f: Jan Vrany, 2015-03-11 11:41 +0000: Zulu support: added Zulu7 and Zulu8 JavaReleases
- f8bc54a17beb: Jan Vrany, 2015-03-11 12:38 +0000: Java release: On UNIX, prefer OpenJDK over Zulu, on Windows, prefer Zulu over Oracle JDK
- 5dd55aa7d949: Jan Vrany, 2015-03-12 14:50 +0000: Zulu support: move natives from OracleJDK7 to OpenJDK7 as they are used by OpenJDK7 on Windows
- 2127b5057d60: Jan Vrany, 2015-03-13 09:40 +0000: testing: improved run-all.rb script to run tests with different configurations.
- a6d8f5c2ad73: Jan Vrany, 2015-03-13 13:33 +0000: Updated .hgignore
- e18d5c89221d: Jan Vrany, 2015-03-13 16:09 +0000: Java release: consult 64bit registry entries as well as 32 bit when searching for installed JDKs
- 183e4567bda7: Jan Vrany, 2015-03-17 20:56 +0000: Java release: added #is32bit & #is64bit testing methods
- 4f3cc813be4b: Jan Vrany, 2015-03-19 17:27 +0000: settings: JavaCodeLibrary validation refactored and improved
"{ Package: 'stx:libjava/tools' }"
OrderedCollectionInspectorView subclass:#JavaListInspectorView
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Languages-Java-Tools-Inspectors'
!
!JavaListInspectorView methodsFor:'private'!
baseInspectedObjectClass
| cls |
cls := inspectedObject class.
[ cls binaryName startsWith: 'java/util/' ] whileFalse:[
cls := cls superclass.
].
^cls.
"Created: / 04-12-2011 / 17:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 08-10-2013 / 22:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
indexList
"return a list of indexes to show in the selectionList.
Set hasMore to true, if a '...' entry should be added."
|n|
n := inspectedObject perform: #'size()I'.
(n > nShown) ifTrue:[
n := nShown.
hasMore := true.
].
^ (1 to:n)
"Created: / 04-12-2011 / 16:55:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaListInspectorView methodsFor:'user interaction'!
indexedValueAtIndex:idx
^inspectedObject perform: #'get(I)Ljava/lang/Object;' with: idx - 1
"Created: / 04-12-2011 / 16:58:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
indexedValueAtIndex:idx put: value
^inspectedObject
perform: #'set(ILjava/lang/Object;)Ljava/lang/Object;'
with: idx - 1
with: value.
"Created: / 04-12-2011 / 16:58:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
indexedValueAtKey: idx
^self indexedValueAtIndex: idx
"Created: / 04-12-2011 / 17:25:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
removeIndex
"remove selected item from the collection"
|idx|
idx := self keyIndexForLine:selectionIndex.
idx notNil ifTrue:[
inspectedObject perform: #'remove(I)Ljava/lang/Object;' with:idx.
selectionIndex := selectedLine := nil.
inspectedObject changed.
self reinspect.
].
"Created: / 04-12-2011 / 17:08:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaListInspectorView class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libjava/tools/JavaListInspectorView.st,v 1.5 2015-03-20 13:29:52 vrany Exp $'
!
version_HG
^ '$Changeset: <not expanded> $'
!
version_SVN
^ 'Id'
! !