NameSpace.st
changeset 7317 461d6124fd63
parent 7298 9b3c69eb2c5d
child 7426 4059d00c81d7
equal deleted inserted replaced
7316:ea29dbe04f91 7317:461d6124fd63
   483         ]
   483         ]
   484     ].
   484     ].
   485     ^ set
   485     ^ set
   486 !
   486 !
   487 
   487 
       
   488 hasNamespaces
       
   489     "return true - if I support sub-namespaces"
       
   490 
       
   491     ^ false
       
   492 !
       
   493 
   488 isNameSpace
   494 isNameSpace
   489     "return true - I am a namespace"
   495     "return true - I am a namespace"
   490 
   496 
   491     self == NameSpace ifTrue:[^ false].
   497     self == NameSpace ifTrue:[^ false].
   492     ^ true
   498     ^ true
   504 ! !
   510 ! !
   505 
   511 
   506 !NameSpace class methodsFor:'documentation'!
   512 !NameSpace class methodsFor:'documentation'!
   507 
   513 
   508 version
   514 version
   509     ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.46 2003-05-19 10:13:53 cg Exp $'
   515     ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.47 2003-05-22 19:41:38 cg Exp $'
   510 ! !
   516 ! !