fileout an hierarchy
class:=CPPBridge . | |
file:=(class name asString, '-hierarchy.st') asFileReference. | |
stream:=file writeStream. | |
class fileOutOn:stream. | |
class allSubclassesDo: [ :cls | | |
cls fileOutOn: stream. | |
]. | |
stream close. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment