创建一个在清空堆栈内容时进行打印的方法

Question

给定类："AStack"

Object subclass: #AStack
    instanceVariableNames: 'elements'
...

它包含一个OrderedCollection对象，该对象保存它的"元素对象"

initialize 
super initialize.
elements := OrderedCollection new

它的成员类分别为推送和弹出：

push: anObject 
self elements addFirst: anObject 
pop
^self elements removeFirst 

我正在尝试编写一个打印方法，该方法使用timesRepeat打印堆栈的内容，同时清空堆栈。它为每个"元素"（print ^ self-name）调用子类print方法，并使用"Transcript"在屏幕上输出。

print
self size timesRepeat: [Transcript show: self pop print]

另一方面，我有一个名为"SomeRandomObject"的类，它的打印方法是：

print
Transcript show:self getName; cr

工作区代码：

| o1 o2 stk |
o1 := SomeRandomObject new.
o1 name: 'object1'.
o2 := SomeRandomObject new.
o2 name: 'object2'.
stk := AStack new.
stk push: o1.
stk push: o2.
stk print "prints and emptys stack"

运行时，我得到错误：

错误：AStack的实例不可索引

如何修复我的代码，使打印方法在将o1和o2从堆栈中弹出时显示它们的名称？

Answer 1

在你给我一个完整（至少更大）的堆栈跟踪之前，我不能确切地告诉你，但我预计，你的类中不会定义#size方法，它应该是这样的：

size
  ^ elements size

Answer 2

如果将at:、at:put:或size发送到没有索引实例变量或未重写这些方法的类的实例，则会出现"AClass的实例不可索引"错误。

因此，如果您将这些消息中的任何一条发送到AStack的实例（它没有索引实例变量），请确保AStack定义了您发送的消息。