'From Squeak3.1alpha of 5 February 2001 [latest update: #3752] on 1 March 2001 at 11:20:40 am'! "Change Set: tileHeightTweak-sw Date: 28 February 2001 Author: Scott Wallace Another tweak to try to remove unfortunate display artifacts that have crept into classic tiles."! !CategoryViewer methodsFor: 'support' stamp: 'sw 2/28/2001 20:53'! booleanPhraseForRetrieverOfType: retrieverType retrieverOp: retrieverOp player: aPlayer "Answer a boolean-valued phrase derived from a retriever (e.g. 'car's heading'); this is in order to assure that tiles laid down in a TEST area will indeed produce a boolean result" | outerPhrase getterPhrase receiverTile rel finalTile | rel _ (retrieverType == #number) ifTrue: [#<] ifFalse: [#=]. outerPhrase _ PhraseTileMorph new setOperator: rel type: #boolean rcvrType: retrieverType argType: retrieverType. getterPhrase _ PhraseTileMorph new setOperator: retrieverOp type: retrieverType rcvrType: #player. getterPhrase submorphs last setSlotRefOperator: (Utilities inherentSelectorForGetter: retrieverOp). getterPhrase submorphs first changeTableLayout. receiverTile _ (self tileForPlayer: aPlayer) bePossessive. receiverTile position: getterPhrase firstSubmorph position. getterPhrase firstSubmorph addMorph: receiverTile. outerPhrase firstSubmorph addMorph: getterPhrase. finalTile _ aPlayer tileForArgType: retrieverType. "comes with arrows" outerPhrase submorphs last addMorph: finalTile. outerPhrase submorphs second submorphs last setBalloonText: (ScriptingSystem helpStringForOperator: rel). ^ outerPhrase! ! TilePadMorph removeSelector: #initialize!