Comment arrêter seulement si on appuie sur shift?

Question

dans Pharo Je voudrais Object>>halt pour arrêter seulement si le décalage est pressé, de sorte que je ne casse pas mon image. Comment je fais ça? Donc, par exemple, je voudrais pouvoir ajouter un self halt. dans Array>>add:, sans perdre mon image. Par exemple, je voudrais pouvoir ajouter un self halt. à Array>>add:.

Answer 1

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

Cool, cette zone de texte peut syntaxe Highlight Smalltalk code

Answer 2

auto haltIf: [capteur shiftPressed]

Answer 3

Je ferai ce qui suit maintenant, fusion d'Oscar et la solution de Richard:

Object>>h 
    self haltIf: [Sensor shiftPressed]