equal
deleted
inserted
replaced
413 |
413 |
414 |set| |
414 |set| |
415 |
415 |
416 set := IdentitySet with:Smalltalk. |
416 set := IdentitySet with:Smalltalk. |
417 Smalltalk allBehaviorsDo:[:aClass | |
417 Smalltalk allBehaviorsDo:[:aClass | |
418 (aClass isNamespace |
418 (aClass isNameSpace |
419 and:[aClass ~~ Namespace |
419 and:[aClass ~~ Namespace |
420 and:[aClass ~~ Smalltalk]]) ifTrue:[ |
420 and:[aClass ~~ Smalltalk]]) ifTrue:[ |
421 set add:aClass |
421 set add:aClass |
422 ] |
422 ] |
423 ]. |
423 ]. |
424 ^ set |
424 ^ set |
425 |
425 |
426 "Created: 2.1.1997 / 20:17:40 / cg" |
426 "Created: 2.1.1997 / 20:17:40 / cg" |
427 ! |
427 ! |
428 |
428 |
429 isNamespace |
429 isNameSpace |
430 "return true - I am a namespace" |
430 "return true - I am a namespace" |
431 |
431 |
432 self == Namespace ifTrue:[^ false]. |
432 self == Namespace ifTrue:[^ false]. |
433 ^ true |
433 ^ true |
434 |
434 |
435 "Created: 26.10.1996 / 11:13:36 / cg" |
|
436 "Modified: 20.12.1996 / 15:11:45 / cg" |
|
437 ! |
435 ! |
438 |
436 |
439 isTopLevelNamespace |
437 isTopLevelNamespace |
440 ^ (self name includes:$:) not |
438 ^ (self name includes:$:) not |
441 |
439 |
443 ! ! |
441 ! ! |
444 |
442 |
445 !Namespace class methodsFor:'documentation'! |
443 !Namespace class methodsFor:'documentation'! |
446 |
444 |
447 version |
445 version |
448 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.34 2000-03-21 12:39:36 cg Exp $' |
446 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.35 2000-03-24 16:41:36 cg Exp $' |
449 ! ! |
447 ! ! |