home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / trlblz01.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  892 b   |  27 lines
  1.  
  2.  
  3. !DsObjectSpace publicMethods !
  4.  
  5. allClassesWithAttributes: nr
  6.  
  7.     "Return all the currently loaded classes."
  8.  
  9.     | classes publics privates publicAttribute privateAttribute | 
  10.  
  11.     classes := Set new.
  12.     (self globalAt: #System) classHierarchyRoots do: [:cl |
  13.         classes addAll: cl subclasses.
  14.         classes add: cl.
  15.         ].
  16.  
  17.     publics := classes select: [ :cl | cl isPublic ].
  18.     publics := publics collect: [ :cl | GtClassProxy new className: cl name; image: self; yourself ].
  19.     privates := classes select: [ :cl | cl isPrivate].
  20.     privates := privates collect: [ :cl | GtClassProxy new className: cl name; image: self; yourself ].
  21.     publicAttribute := nr attributeSetPublicPrivate public.
  22.     privateAttribute := nr attributeSetPublicPrivate private.
  23.     nr instances: publics attributes: (Set with: publicAttribute) .
  24.     nr instances: privates attributes: (Set with: privateAttribute) .
  25.  
  26. ! !
  27.