--- 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