equal
deleted
inserted
replaced
247 |
247 |
248 |variable words pointers superclass| |
248 |variable words pointers superclass| |
249 |
249 |
250 variable := words := pointers := false. |
250 variable := words := pointers := false. |
251 indexed ~~ #none ifTrue:[ |
251 indexed ~~ #none ifTrue:[ |
252 self halt:'not yet implemented'. |
252 self shouldImplement. |
253 ]. |
253 ]. |
254 superclassOrName isSymbol ifTrue:[ |
254 superclassOrName isSymbol ifTrue:[ |
255 superclass := Smalltalk at:superclassOrName. |
255 superclass := Smalltalk at:superclassOrName. |
256 superclass isNil ifTrue:[ |
256 superclass isNil ifTrue:[ |
257 self error:'missing superclass: ' , superclassOrName. |
257 self error:'missing superclass: ' , superclassOrName. |
511 ! |
511 ! |
512 |
512 |
513 isTopLevelNamespace |
513 isTopLevelNamespace |
514 "obsolete - use isTopLevelNameSpace" |
514 "obsolete - use isTopLevelNameSpace" |
515 |
515 |
|
516 <resource:#obsolete> |
|
517 |
516 ^ (self name includes:$:) not |
518 ^ (self name includes:$:) not |
517 ! ! |
519 ! ! |
518 |
520 |
519 !NameSpace class methodsFor:'documentation'! |
521 !NameSpace class methodsFor:'documentation'! |
520 |
522 |
521 version |
523 version |
522 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.49 2003-06-18 22:57:51 cg Exp $' |
524 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.50 2003-06-20 07:24:24 stefan Exp $' |
523 ! ! |
525 ! ! |