常に真ん中にアイコン表示+プロジェクタからアイコンを出せなくする

前提：インスタンス変数iconに表示するiconモーフ格納

drawOn: aCanvas
　(いろんな処理)
　icon center: self center.
  self submorphs = #()
　　ifTrue: [self addMorph: icon].

追記：アイコンを直接描画

drawOn: aCanvas 
　　| iconrect |
　　iconrect := self center x - (icon width // 2) @ (self center y - (icon height // 2)) corner: self bottomRight.
　　aCanvas clipBy: iconrect
　　　　　　during: [:canvas | canvas paintImage: icon imageForm at: iconrect topLeft]