How to halt only if shift is pressed?

Question

in Pharo I'd like Object>>halt to halt only if shift is pressed, so that I don't break down my image. How do I do that?

So, for example, I'd like to be able to add a self halt. into Array>>add:, without losing my image.

Answer 1

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

Cool, this Textbox can Syntax-Highlight Smalltalk-code

Answer 2

self haltIf: [Sensor shiftPressed]

Answer 3

I'll do the following now, Merging Oscar's and Richard's solution:

Object>>h
  self haltIf: [Sensor shiftPressed]