No comment. Sorry.
fullDrawOn:
Draw the full Morphic structure on the given Canvas
geeMail:geeMailRectangle:
handlesMouseDown:
| localPt | localPt _ (self transformFrom: self world) globalPointToLocal: evt cursorPoint. submorphs do: [ :each | (each fullBounds containsPoint: localPt) ifTrue: [^false]].
mouseDown:
Handle a mouse down event.
includeInNewMorphMenu
Return true for all classes that can be instantiated from the menu