Как остановить только при нажатии Shift?

Question

в Pharo Я бы хотел, чтобы Object>>halt остановился только при нажатии Shift, чтобы я не ломал изображение.Как мне это сделать?

Так, например, я хотел бы иметь возможность добавить self halt. в Array>>add:, не теряя свое изображение.

Answer 1

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

Круто, это текстовое поле может Синтаксис-Подсветить Smalltalk-код

Answer 2

самостоятельная остановка: [Sensor shiftPressed]

Answer 3

Я сделаю следующее, объединяя решение Оскара и Ричарда:

Object>>h
  self haltIf: [Sensor shiftPressed]