equal
deleted
inserted
replaced
150 ]. |
150 ]. |
151 |
151 |
152 "Created: / 28-11-2012 / 09:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
152 "Created: / 28-11-2012 / 09:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
153 ! ! |
153 ! ! |
154 |
154 |
|
155 !HGCommitTask methodsFor:'executing - private'! |
|
156 |
|
157 doRemoveOldContainers |
|
158 | def | |
|
159 |
|
160 def := self package definition. |
|
161 def hgRemoveContainesForDeletedClasses ifFalse:[ |
|
162 ^self. |
|
163 ]. |
|
164 super doRemoveOldContainers |
|
165 |
|
166 "Created: / 21-05-2013 / 16:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 ! ! |
|
168 |
155 !HGCommitTask methodsFor:'queries'! |
169 !HGCommitTask methodsFor:'queries'! |
156 |
170 |
157 commitingNewHead |
171 commitingNewHead |
158 "Return true, if a new head is to be commited, false otherwise. |
172 "Return true, if a new head is to be commited, false otherwise. |
159 |
173 |