'From etoys4.0 of 9 October 2008 [latest update: #2263] on 8 September 2009 at 3:43:13 am'! "Change Set: PinMorphEmbedding-kfr Date: 7 June 2009 Author: Karl Ramberg/Bert Freudenberg PinMorph popped up a menu about embedding in objects tool. I added a check for where it is embedded in quite a ugly way but it made the pop up menu go away... Edit: use a slightly better workaround --bf"! !NCPinMorph methodsFor: 'submorphs-accessing' stamp: 'bf 9/8/2009 03:35'! droppedIntoPasteUp: aMorph | targets | targets := (aMorph rootMorphsAt: self center) reject: [ :ea | ea isPinMorph ]. targets size < 1 ifTrue: [ ^self ]. WorldState addDeferredUIMessage: [ self isInWorld ifTrue: [self offerToEmbedIn: targets]]. ! !