NameSpace.st
changeset 24568 7b8e0a205056
parent 24251 134cdb154b0d
equal deleted inserted replaced
24567:ee198c04099f 24568:7b8e0a205056
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1996 by Claus Gittinger
     4  COPYRIGHT (c) 1996 by Claus Gittinger
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   553 
   555 
   554     "Created: / 19-12-2010 / 14:35:49 / cg"
   556     "Created: / 19-12-2010 / 14:35:49 / cg"
   555 !
   557 !
   556 
   558 
   557 keys
   559 keys
   558     "enumerate all class names in this namespace"
   560     "return all class names in this namespace"
   559 
   561 
   560     |setOfKeys|
   562     |setOfKeys|
   561 
   563 
   562     setOfKeys := OrderedCollection new.
   564     setOfKeys := OrderedCollection new.
   563     self keysDo:[:eachKey |setOfKeys add:eachKey].
   565     self keysDo:[:eachKey |setOfKeys add:eachKey].