Mercurial Mercurial > hg > stx-libbasic3 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SourceCodeManagerUtilities.st
changeset 2442 7ecd9a4248bb
parent 2426 d698fb5ebbd7
child 2484 4371177c246f
equal deleted inserted replaced
2441:c8dd454f9cd7 2442:7ecd9a4248bb 
  2238 
  2238 
  2239     "Modified: / 01-11-2010 / 21:02:52 / cg"
 
  2239     "Modified: / 01-11-2010 / 21:02:52 / cg"
 
  2240 !
 
  2240 !
 
  2241 
  2241 
  2242 ensureCorrectVersionMethodsInClass:aClass using:aManager
 
  2242 ensureCorrectVersionMethodsInClass:aClass using:aManager
 
  2243     "kludge:
 
       
  2244         if there is a new version-XXX method AND an old version method, remove the old one 
       
  2245         (there should now be only a new version-XXX method)"
 
       
  2246 
       
  2247     |theMetaclass src newSrc versionMethodName oldVersionMethodName|
 
  2243     |theMetaclass src newSrc versionMethodName oldVersionMethodName|
 
  2248 
  2244 
  2249     theMetaclass := aClass theMetaclass.
 
  2245     theMetaclass := aClass theMetaclass.
 
  2250     versionMethodName := aManager nameOfVersionMethodInClasses.
 
  2246     versionMethodName := aManager nameOfVersionMethodInClasses.
 
  2251     oldVersionMethodName := aManager nameOfOldVersionMethod.
 
  2247     oldVersionMethodName := aClass nameOfOldVersionMethod.
 
  2252 
  2248 
  2253     (theMetaclass includesSelector:versionMethodName) ifTrue:[
 
  2249     (theMetaclass includesSelector:versionMethodName) ifTrue:[
 
  2254         (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
 
  2250 "/        (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
 
  2255             theMetaclass removeSelector:oldVersionMethodName.   
  2251 "/            theMetaclass removeSelector:oldVersionMethodName.   
  2256         ].
 
  2252 "/        ].
 
  2257         "/ ensure that my version method is parsable (contains $'s)
 
  2253         "/ ensure that my version method is parsable (contains $'s)
 
  2258         src := (theMetaclass compiledMethodAt:versionMethodName) source.
 
  2254         src := (theMetaclass compiledMethodAt:versionMethodName) source.
 
  2259         src notNil ifTrue:[
 
  2255         src notNil ifTrue:[
 
  2260             newSrc := aManager ensureDollarsInVersionMethod:src.
 
  2256             newSrc := aManager ensureDollarsInVersionMethod:src.
 
  2261             newSrc ~= src ifTrue:[
 
  2257             newSrc ~= src ifTrue:[
 
  2270                           , (src copyFrom:(oldVersionMethodName size + 1))
 
  2266                           , (src copyFrom:(oldVersionMethodName size + 1))
 
  2271             ].
 
  2267             ].
 
  2272             theMetaclass compile:newSrc.
 
  2268             theMetaclass compile:newSrc.
 
  2273         ].
 
  2269         ].
 
  2274     ].
 
  2270     ].
 
       
  2271 
       
  2272     "Modified (comment): / 08-07-2011 / 13:08:09 / cg"
 
  2275 !
 
  2273 !
 
  2276 
  2274 
  2277 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
 
  2275 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
 
  2278     "returns 2 values"
 
  2276     "returns 2 values"
 
  2279 
  2277 
  3343 ! !
 
  3341 ! !
 
  3344 
  3342 
  3345 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
  3343 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
  3346 
  3344 
  3347 version_CVS
 
  3345 version_CVS
 
  3348     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.218 2011-07-07 12:45:01 cg Exp $'
 
  3346     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.219 2011-07-08 11:08:27 cg Exp $'
 
  3349 ! !
 
  3347 ! !
hg/stx-libbasic3