*** empty log message ***

2005-05-26 03:27:44 +00:00
parent f7eceec648
commit cb36ac447e
2 changed files with 74 additions and 53 deletions
--- a/ase/test/stx/helper.st
+++ b/ase/test/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].