SVN__WorkingCopy.st
changeset 1027 1f9bcfa5013b
parent 1006 f318a4c6a09d
child 1043 63ec5f7c5762
equal deleted inserted replaced
1026:b26d2f0915ff 1027:1f9bcfa5013b
   319         name: containerName;
   319         name: containerName;
   320         yourself
   320         yourself
   321 
   321 
   322     "Created: / 09-10-2008 / 20:21:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
   322     "Created: / 09-10-2008 / 20:21:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
   323     "Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   323     "Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   324 !
       
   325 
       
   326 changeSetForContainer: containerName revision: rev
       
   327     | containerContents |
       
   328 
       
   329     containerContents := self cat: containerName revision: rev.
       
   330     ^(ChangeSet fromStream: containerContents readStream)
       
   331         name: containerName , ' (' , rev printString , ')';
       
   332         yourself
       
   333 
       
   334     "Created: / 10-02-2012 / 09:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   324 !
   335 !
   325 
   336 
   326 changeSetForUpdate
   337 changeSetForUpdate
   327     |diffSet classesToRemove|
   338     |diffSet classesToRemove|
   328 
   339