smalltalk - 如何仅在按下 shift 时停止？

Question

在 Pharo 中，我希望 Object>>halt 仅在按下 shift 键时停止，这样我就不会破坏图像。我该怎么做？

因此，例如，我希望能够在 Array>>add: 中添加一个 self halt.，而不会丢失我的图像。

Answer 1

Object>>haltifShiftPressed
 Sensor leftShiftDown ifTrue: [self halt].

很酷，这个文本框可以语法高亮 Smalltalk 代码