Как остановить только в том случае, если сдвиг нажата?

Question

в фаро я хотел бы Object>>halt Чтобы остановить только в том случае, если сдвиг нажимается, чтобы я не разбиваю свое изображение. Как я могу это сделать?

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

Answer 1

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

Cool, этот текстовый ящик может синтаксировать Syntax-Highlight SmallTalk-код

Answer 2

Self Haltif: [датчик сдвинута

Answer 3

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

Object>>h
  self haltIf: [Sensor shiftPressed]