'From Squeak3.3alpha of 18 January 2002 [latest update: #4882] on 3 June 2002 at 6:04:01 pm'! "Change Set: booleanDrop-sw Date: 3 June 2002 Author: Scott Wallace Reject the dropping of a second boolean phrase in the TEST area of a Scriptor"! !BooleanScriptEditor methodsFor: 'as yet unclassified' stamp: 'sw 6/3/2002 18:00'! wantsDroppedMorph: aMorph event: evt "Answer whether the receiver would be interested in accepting the morph" (submorphs detect: [:m | m isKindOf: AlignmentMorph] ifNone: [nil]) ifNotNil: [^ false]. ^ (aMorph isKindOf: PhraseTileMorph) and: [(#(Command Unknown) includes: aMorph resultType capitalized) not] ! !