--- a/Tools__ChangeList.st	Tue Jul 19 14:33:19 2011 +0200
+++ b/Tools__ChangeList.st	Tue Jul 19 14:33:32 2011 +0200
@@ -840,6 +840,13 @@
     ^change changeClass
 !
 
+changeSource
+
+    ^change changeSource
+
+    "Created: / 19-07-2011 / 12:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 children
 
     children ifNil:
@@ -880,6 +887,13 @@
     "Created: / 05-12-2009 / 14:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+imageSource
+
+    ^change imageSource
+
+    "Created: / 19-07-2011 / 12:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 label
 
     | label |
@@ -945,7 +959,7 @@
 !ChangeList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.2 2011-07-03 17:47:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.3 2011-07-19 12:33:32 vrany Exp $'
 !
 
 version_SVN