equal
deleted
inserted
replaced
152 |
152 |
153 "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
153 "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
154 "Modified: / 16-11-2012 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
154 "Modified: / 16-11-2012 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
155 ! ! |
155 ! ! |
156 |
156 |
|
157 !HGCommitDialog methodsFor:'private'! |
|
158 |
|
159 doUpdateWorkingCopy |
|
160 | heads changeset | |
|
161 |
|
162 super doUpdateWorkingCopy. |
|
163 heads := self task package workingCopy heads. |
|
164 changeset := self task package workingCopy changeset. |
|
165 (heads includes: changeset) ifFalse:[ |
|
166 self infoPanel |
|
167 reset; |
|
168 beInformation; |
|
169 message: (self resources string:'Comitting a new head.'); |
|
170 addButtonWithLabel: (self resources string:'Proceed') action: [self infoPanel hide]; |
|
171 addButtonWithLabel: (self resources string:'Cancel') action:[self doCancel]; |
|
172 show. |
|
173 ] |
|
174 |
|
175 "Created: / 27-11-2012 / 23:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
176 ! ! |
|
177 |
157 !HGCommitDialog class methodsFor:'documentation'! |
178 !HGCommitDialog class methodsFor:'documentation'! |
158 |
179 |
159 version_HG |
180 version_HG |
160 "Never, ever change this method. Ask JV or CG why" |
181 "Never, ever change this method. Ask JV or CG why" |
161 ^thisContext method mclass theNonMetaclass instVarNamed: #revision |
182 ^thisContext method mclass theNonMetaclass instVarNamed: #revision |