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

在Pharo中，我希望Object>>halt仅在按下shift键时才停止，以免破坏图像。我怎么做？

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

最佳答案

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

太酷了，此文本框可以语法突出显示Smalltalk代码