--- a/Tools__ChangeList.st Tue Dec 27 10:40:14 2011 +0100
+++ b/Tools__ChangeList.st Tue Dec 27 14:19:19 2011 +0100
@@ -333,6 +333,13 @@
self acceptEnabledHolder value: newValue
!
+list
+ ^ listHolder value
+
+ "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 27-12-2011 / 14:18:25 / cg"
+!
+
selection
^self selectionHolder value
@@ -340,6 +347,16 @@
"Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+selectionIndices
+ |sel|
+
+ (sel := self selectionHolder value) isEmptyOrNil ifTrue:[^ #()].
+ ^ sel collect:[:each | self list identityIndexOf:each].
+
+ "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 27-12-2011 / 10:56:20 / cg"
+!
+
showRemoved
^self showRemovedHolder value ? true
@@ -982,11 +999,11 @@
!ChangeList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.9 2011-12-04 14:57:48 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.10 2011-12-27 13:19:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.9 2011-12-04 14:57:48 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.10 2011-12-27 13:19:19 cg Exp $'
!
version_SVN