mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-22 11:01:06 +00:00
2c66458ba6
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@15653 72102866-910b-0410-8b05-ffd578937521
34 lines
932 B
Smalltalk
34 lines
932 B
Smalltalk
" Print versions of all (public) GNUstep classes
|
|
|
|
Use:
|
|
> stexec versions.st
|
|
|
|
To include AppKit classes:
|
|
> stexec -environment AppKit versions.st
|
|
|
|
"
|
|
|
|
| classes versions names |
|
|
|
|
classes := Environment objectDictionary allValues.
|
|
|
|
classes := classes select: [ :class | class isClass].
|
|
classes := classes select: [ :class | class respondsToSelector:#className].
|
|
classes := classes select: [ :class | class respondsToSelector:#version].
|
|
|
|
versions := NSMutableDictionary dictionary.
|
|
|
|
classes do:
|
|
[ :class |
|
|
versions setObject: (class version)
|
|
forKey: (class className).
|
|
].
|
|
|
|
|
|
names := versions allKeys sortedArrayUsingSelector: #compare:.
|
|
|
|
names do:
|
|
[ :key |
|
|
Transcript showLine: ( key, ' ',
|
|
((versions objectForKey:key) stringValue))
|
|
].
|