--- a/SVN__CommitTask.st	Wed Feb 08 19:58:40 2012 +0100
+++ b/SVN__CommitTask.st	Wed Feb 08 19:58:49 2012 +0100
@@ -28,7 +28,7 @@
 "{ NameSpace: SVN }"
 
 FileoutLikeTask subclass:#CommitTask
-	instanceVariableNames:'message'
+	instanceVariableNames:'message paths'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SVN-Tasks'
@@ -112,6 +112,14 @@
 
 message:aString
     message := aString.
+!
+
+paths
+    ^ paths
+!
+
+paths:aCollection
+    paths := aCollection.
 ! !
 
 !CommitTask methodsFor:'executing'!
@@ -133,10 +141,16 @@
                 asString.
 
     self do:[
-        ActivityNotification notify:'Commiting ' , self package.
-        containers := self isSelectiveFileoutTask ifTrue:[
-                    self containersToFileOut
-                ] ifFalse:[ #() ].
+        ActivityNotification notify:'Commiting ' , (self package ? '').
+        containers := paths notNil ifTrue:[
+            paths
+        ] ifFalse:[
+            self isSelectiveFileoutTask ifTrue:[
+                self containersToFileOut
+            ] ifFalse:[ 
+                #() 
+            ]
+        ].
         self 
             synchronized:[
                 commitInfo := (CommitCommand new)
@@ -164,7 +178,7 @@
 
     "Created: / 11-04-2008 / 09:20:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 19-08-2009 / 12:27:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 08-04-2011 / 15:58:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-02-2012 / 18:52:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doPrepareWorkingCopy