2008-03-21 03:49:53 +00:00
parent f9c7b599d4
commit b52f039c69
358 changed files with 6823 additions and 6288 deletions
--- a/ase/cmd/stx/helper.st
+++ b/ase/cmd/stx/helper.st
@@ -0,0 +1,13 @@
+| x |
+"print the reverse hierarchy of a class"
+x := Class.
+[x isNil] whileFalse: [
+	Transcript show: x printString; cr.
+	x := x superclass].
+
+| x |
+"print the reverse hierarchy of a metaclass"
+x := Class class.
+[x isNil] whileFalse: [
+	Transcript show: x printString; cr.
+	x := x superclass].