FogBugz (Case [Issue]11024) Morphic - Removing>>griddedPoint:

A FogBugz case was opened by Stephane Ducasse.

Case ID:      11024
Title:        Removing>>griddedPoint:
Status:       Work Needed
Category:     Bug
Project:      Morphic
Area:         Misc
Priority:     5 - Fix If Time
Milestone:    Later
Assigned To:  Everyone

URL:          https://pharo.fogbugz.com/default.asp?11024

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
(look for senders) and I do not see why besides oh let us add this hack for kids fast.


You are subscribed to this case.  If you do not want to receive automatic notifications in the future, unsubscribe (https://pharo.fogbugz.com/default.asp?pre=preUnsubscribe&pg=pgEditBug&command=view&ixBug=11024) from this case.

_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker