equal
deleted
inserted
replaced
4231 "return the revision-ID from which the class was stc-compiled; |
4231 "return the revision-ID from which the class was stc-compiled; |
4232 nil if its an autoloaded or filedIn class. |
4232 nil if its an autoloaded or filedIn class. |
4233 If a classes binary is up-to-date w.r.t. the source repository, |
4233 If a classes binary is up-to-date w.r.t. the source repository, |
4234 the returned string is the same as the one returned by #revision." |
4234 the returned string is the same as the one returned by #revision." |
4235 |
4235 |
4236 |owner| |
4236 |owner info c| |
4237 |
4237 |
4238 (owner := self owningClass) notNil ifTrue:[^ owner binaryRevision]. |
4238 (owner := self owningClass) notNil ifTrue:[^ owner binaryRevision]. |
4239 self isMeta ifTrue:[ |
4239 self isMeta ifTrue:[ |
4240 ^ self soleInstance binaryRevision |
4240 ^ self soleInstance binaryRevision |
4241 ]. |
4241 ]. |
|
4242 revision notNil ifTrue:[ |
|
4243 c := revision first. |
|
4244 c == $$ ifTrue:[ |
|
4245 info := Class revisionInfoFromString:revision. |
|
4246 ^ info at:#revision ifAbsent:0. |
|
4247 ]. |
|
4248 c isDigit ifFalse:[ |
|
4249 ^ 0 |
|
4250 ]. |
|
4251 ]. |
|
4252 |
4242 ^ revision |
4253 ^ revision |
4243 |
4254 |
4244 " |
4255 " |
4245 Object binaryRevision |
4256 Object binaryRevision |
4246 Object class binaryRevision |
4257 Object class binaryRevision |
4256 SystemBrowser browseClasses:classes title:'classes which are not up-to-date' |
4267 SystemBrowser browseClasses:classes title:'classes which are not up-to-date' |
4257 " |
4268 " |
4258 |
4269 |
4259 "Created: 7.12.1995 / 10:58:47 / cg" |
4270 "Created: 7.12.1995 / 10:58:47 / cg" |
4260 "Modified: 15.10.1996 / 18:55:28 / cg" |
4271 "Modified: 15.10.1996 / 18:55:28 / cg" |
|
4272 "Modified: 26.3.1997 / 00:24:51 / stefan" |
4261 ! |
4273 ! |
4262 |
4274 |
4263 packageSourceCodeInfo |
4275 packageSourceCodeInfo |
4264 "{ Pragma: +optSpace }" |
4276 "{ Pragma: +optSpace }" |
4265 |
4277 |
4414 |
4426 |
4415 |info| |
4427 |info| |
4416 |
4428 |
4417 info := self revisionInfo. |
4429 info := self revisionInfo. |
4418 info notNil ifTrue:[ |
4430 info notNil ifTrue:[ |
4419 ^ info at:#revision ifAbsent:nil |
4431 ^ info at:#revision ifAbsent:nil |
4420 ]. |
4432 ]. |
4421 ^ revision |
4433 ^ self binaryRevision |
4422 |
4434 |
4423 " |
4435 " |
4424 Object revision |
4436 Object revision |
4425 " |
4437 " |
4426 |
4438 |
4427 "Created: 11.11.1995 / 14:27:20 / cg" |
4439 "Created: 11.11.1995 / 14:27:20 / cg" |
4428 "Modified: 12.12.1995 / 20:30:20 / cg" |
4440 "Modified: 12.12.1995 / 20:30:20 / cg" |
|
4441 "Modified: 26.3.1997 / 00:14:00 / stefan" |
4429 ! |
4442 ! |
4430 |
4443 |
4431 revisionInfo |
4444 revisionInfo |
4432 "return a dictionary filled with revision info. |
4445 "return a dictionary filled with revision info. |
4433 This extracts the relevant info from the revisionString. |
4446 This extracts the relevant info from the revisionString. |
4451 info := mgr revisionInfoFromString:vsnString |
4464 info := mgr revisionInfoFromString:vsnString |
4452 ] ifFalse:[ |
4465 ] ifFalse:[ |
4453 info := Class revisionInfoFromString:vsnString. |
4466 info := Class revisionInfoFromString:vsnString. |
4454 ]. |
4467 ]. |
4455 info notNil ifTrue:[ |
4468 info notNil ifTrue:[ |
4456 info at:#binaryRevision put:revision. |
4469 info at:#binaryRevision put:self binaryRevision. |
4457 ] |
4470 ] |
4458 ]. |
4471 ]. |
4459 ^ info |
4472 ^ info |
4460 |
4473 |
4461 " |
4474 " |
4464 Image revisionInfo |
4477 Image revisionInfo |
4465 " |
4478 " |
4466 |
4479 |
4467 "Created: 11.11.1995 / 14:27:20 / cg" |
4480 "Created: 11.11.1995 / 14:27:20 / cg" |
4468 "Modified: 29.1.1997 / 18:59:12 / cg" |
4481 "Modified: 29.1.1997 / 18:59:12 / cg" |
|
4482 "Modified: 26.3.1997 / 00:13:17 / stefan" |
4469 ! |
4483 ! |
4470 |
4484 |
4471 revisionString |
4485 revisionString |
4472 "{ Pragma: +optSpace }" |
4486 "{ Pragma: +optSpace }" |
4473 |
4487 |
4864 ! ! |
4878 ! ! |
4865 |
4879 |
4866 !Class class methodsFor:'documentation'! |
4880 !Class class methodsFor:'documentation'! |
4867 |
4881 |
4868 version |
4882 version |
4869 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.270 1997-03-24 10:13:02 cg Exp $' |
4883 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.271 1997-03-26 01:13:10 stefan Exp $' |
4870 ! ! |
4884 ! ! |
4871 Class initialize! |
4885 Class initialize! |