'From etoys2.1 of 26 July 2007 [latest update: #1516] on 29 July 2007 at 4:38:16 am'! "Change Set: suffixArrowFix-sw Date: 29 July 2007 Author: Scott Wallace Don't show suffix arrows on tiles that don't do arithmetic."! !TileMorph methodsFor: 'arrows' stamp: 'sw 7/29/2007 04:32'! couldAddSuffixArrow "Answer whether it is appropriate for the receiver to bear a suffix arrow." | phrase pad | type = #operator ifTrue: [((owner isKindOf: PhraseTileMorph) and: [owner submorphs last == self] and: [#(Point Number) includes: owner resultType]) ifTrue: [^ true]]. (#(literal function) includes: type) ifFalse: [^ false]. (pad := self ownerThatIsA: TilePadMorph) ifNil: [^ false]. (pad type = #Number or: [pad type = #Point]) ifFalse: [^ false]. phrase := pad owner. (phrase isKindOf: TimesRow) ifTrue: [^ true]. "times-repeat situation" (phrase isKindOf: PhraseTileMorph) ifTrue: [ ^ phrase submorphs last allMorphs includes: self] ifFalse: [^ phrase isKindOf: FunctionTile]! !