equal
deleted
inserted
replaced
116 ]. |
116 ]. |
117 |
117 |
118 "Created: / 28-11-2012 / 09:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
118 "Created: / 28-11-2012 / 09:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
119 ! ! |
119 ! ! |
120 |
120 |
|
121 !HGCommitTask methodsFor:'queries'! |
|
122 |
|
123 commitingNewHead |
|
124 "Return true, if a new head is to be commited, false otherwise. |
|
125 |
|
126 !!!!!!NOTE!!!!!! |
|
127 When there is no head at all such as when commiting to a fresh repository |
|
128 or into a just-created branch, this method returns FALSE. |
|
129 " |
|
130 |
|
131 | heads changeset | |
|
132 |
|
133 heads := self package temporaryWorkingCopy heads. |
|
134 heads isEmpty ifTrue:[ ^ false ]. |
|
135 changeset := self package temporaryWorkingCopy changeset. |
|
136 ^(heads includes: changeset) not |
|
137 |
|
138 "Created: / 08-03-2013 / 20:11:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
139 ! ! |
|
140 |
121 !HGCommitTask class methodsFor:'documentation'! |
141 !HGCommitTask class methodsFor:'documentation'! |
122 |
142 |
123 version_HG |
143 version_HG |
124 |
144 |
125 ^ '$Changeset: <not expanded> $' |
145 ^ '$Changeset: <not expanded> $' |