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