Hi guys
I would like to remove
griddedPoint: ungriddedPoint
| griddingContext |
self flag: #arNote. "Used by event handling - should transform to
pasteUp for gridding"
(griddingContext := self pasteUpMorph) ifNil: [^ ungriddedPoint].
^ griddingContext gridPoint: ungriddedPoint
pasteUpMorph
"Answer the closest containing morph that is a PasteUp morph"
^ self ownerThatIsA: PasteUpMorph
ownerThatIsA: aClass
"Return the first enclosing morph that is a kind of aClass, or nil if
none"
^ self firstOwnerSuchThat: [:m | m isKindOf: aClass]
because it is not used and when we set it on it only works from Halo and I do
not see why
besides oh let us add this hack for kids fast.
Stef
