equal
deleted
inserted
replaced
4399 lib ~= dir ifTrue:[ |
4399 lib ~= dir ifTrue:[ |
4400 p notEmpty ifTrue:[p := p , ':']. |
4400 p notEmpty ifTrue:[p := p , ':']. |
4401 p := p , lib. |
4401 p := p , lib. |
4402 ] |
4402 ] |
4403 ]. |
4403 ]. |
4404 p notEmpty ifTrue:[ |
4404 (p notEmpty and:[p ~= package]) ifTrue:[ |
4405 "/ p := '(' , p , ')'. |
4405 "/ package notNil ifTrue:[ |
4406 |
4406 "/ (name , ': changing packageID from ''' , package , ''' to ''' , p , '''') infoPrintCR. |
4407 package notNil ifTrue:[ |
4407 "/ ]. |
4408 (name , ': changing packageID to ''' , p , '''') infoPrintCR. |
|
4409 ]. |
|
4410 package := p. |
4408 package := p. |
4411 |
4409 |
4412 self methodDictionary do:[:aMethod | |
4410 self methodDictionary do:[:aMethod | |
4413 aMethod package isNil ifTrue:[ |
4411 aMethod package isNil ifTrue:[ |
4414 aMethod package:p |
4412 aMethod package:p |
4422 MemoryMonitor autoload. |
4420 MemoryMonitor autoload. |
4423 MemoryMonitor setPackageFromRevision |
4421 MemoryMonitor setPackageFromRevision |
4424 " |
4422 " |
4425 |
4423 |
4426 "Modified: 12.6.1996 / 11:49:31 / stefan" |
4424 "Modified: 12.6.1996 / 11:49:31 / stefan" |
4427 "Modified: 15.10.1996 / 19:38:24 / cg" |
4425 "Modified: 7.1.1997 / 12:01:08 / cg" |
4428 ! |
4426 ! |
4429 |
4427 |
4430 sourceStream |
4428 sourceStream |
4431 "return an open stream on my sourcefile, nil if that is not available" |
4429 "return an open stream on my sourcefile, nil if that is not available" |
4432 |
4430 |
4690 ! ! |
4688 ! ! |
4691 |
4689 |
4692 !Class class methodsFor:'documentation'! |
4690 !Class class methodsFor:'documentation'! |
4693 |
4691 |
4694 version |
4692 version |
4695 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.237 1997-01-05 19:01:03 cg Exp $' |
4693 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.238 1997-01-07 11:02:05 cg Exp $' |
4696 ! ! |
4694 ! ! |
4697 Class initialize! |
4695 Class initialize! |