equal
deleted
inserted
replaced
354 ^ Smalltalk includesKey:nmSym. |
354 ^ Smalltalk includesKey:nmSym. |
355 |
355 |
356 |
356 |
357 ! |
357 ! |
358 |
358 |
|
359 loadedClassNamed:aString |
|
360 "return the class with name aString, or nil if absent. |
|
361 To get to the metaClass, append ' class' to the string. |
|
362 Do not autoload the owning class of a private class." |
|
363 |
|
364 ^ Smalltalk loadedClassNamed:(self name , '::' , aString) |
|
365 |
|
366 "Created: 9.9.1997 / 03:33:56 / cg" |
|
367 ! |
|
368 |
359 package |
369 package |
360 self isNameSpace ifTrue:[ |
370 self isNameSpace ifTrue:[ |
361 ^ nil "all nameSpaces are outside of any package" |
371 ^ nil "all nameSpaces are outside of any package" |
362 ]. |
372 ]. |
363 ^ super package "the nameSpace class itself has a package" |
373 ^ super package "the nameSpace class itself has a package" |
579 ! ! |
589 ! ! |
580 |
590 |
581 !NameSpace class methodsFor:'documentation'! |
591 !NameSpace class methodsFor:'documentation'! |
582 |
592 |
583 version |
593 version |
584 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.64 2006-11-10 16:24:58 cg Exp $' |
594 ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.65 2007-02-05 15:40:19 stefan Exp $' |
585 ! ! |
595 ! ! |