equal
deleted
inserted
replaced
666 (classesPerPackage at: class theNonMetaclass package ifAbsentPut:[Set new]) |
666 (classesPerPackage at: class theNonMetaclass package ifAbsentPut:[Set new]) |
667 add: class theNonMetaclass]. |
667 add: class theNonMetaclass]. |
668 classesPerPackage keysAndValuesDo: |
668 classesPerPackage keysAndValuesDo: |
669 [:package :classes| | repo | |
669 [:package :classes| | repo | |
670 repo := SVN::RepositoryManager repositoryForPackage:package. |
670 repo := SVN::RepositoryManager repositoryForPackage:package. |
671 SVN::CommitWizard new |
671 "/SVN::CommitWizard new |
|
672 SVN::CommitDialog2 new |
672 task: (repo workingCopy commitTask |
673 task: (repo workingCopy commitTask |
673 classes: classes; |
674 classes: classes; |
674 message: aLogInfoOrNil; |
675 message: aLogInfoOrNil; |
675 extensionMethods: #() |
676 extensionMethods: #() |
676 yourself); |
677 yourself); |
692 task := repo workingCopy commitTask. |
693 task := repo workingCopy commitTask. |
693 task suppressClasses: doClasses not. |
694 task suppressClasses: doClasses not. |
694 task suppressExtensions: doExtensions not. |
695 task suppressExtensions: doExtensions not. |
695 task suppresBuildSupportFiles: doBuild not. |
696 task suppresBuildSupportFiles: doBuild not. |
696 |
697 |
697 SVN::CommitWizard new |
698 "/SVN::CommitWizard new |
|
699 SVN::CommitDialog2 new |
698 task: task; |
700 task: task; |
699 open |
701 open |
700 |
702 |
701 "Created: / 13-10-2011 / 11:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
703 "Created: / 13-10-2011 / 11:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
702 ! |
704 ! |