equal
deleted
inserted
replaced
199 "3 --- " |
199 "3 --- " |
200 pkgDir := Smalltalk getPackageDirectoryForPackage: self package. |
200 pkgDir := Smalltalk getPackageDirectoryForPackage: self package. |
201 pkgDir notNil ifTrue:[ |
201 pkgDir notNil ifTrue:[ |
202 repoDir := HGRepository discover: pkgDir. |
202 repoDir := HGRepository discover: pkgDir. |
203 repoDir notNil ifTrue:[ |
203 repoDir notNil ifTrue:[ |
|
204 | id | |
|
205 |
204 repo := HGRepository on: repoDir. |
206 repo := HGRepository on: repoDir. |
205 ^repo workingCopy changeset id |
207 id := repo workingCopy changeset id. |
|
208 versionMethod annotateWith: (HGRevisionAnnotation revision: id). |
|
209 ^id |
206 ] |
210 ] |
207 ]. |
211 ]. |
208 |
212 |
209 "4 --- " |
213 "4 --- " |
210 self breakPoint: #jv. |
214 self breakPoint: #jv. |
217 stx_libscm_mercurial hgLogicalRevision |
221 stx_libscm_mercurial hgLogicalRevision |
218 |
222 |
219 " |
223 " |
220 |
224 |
221 "Created: / 20-11-2012 / 23:54:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
225 "Created: / 20-11-2012 / 23:54:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
222 "Modified: / 23-11-2012 / 23:02:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
226 "Modified: / 10-01-2013 / 23:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
223 ! ! |
227 ! ! |
224 |
228 |
225 !ProjectDefinition class methodsFor:'description - actions - hg'! |
229 !ProjectDefinition class methodsFor:'description - actions - hg'! |
226 |
230 |
227 hgPostLoad |
231 hgPostLoad |