'From etoys3.0 of 24 February 2008 [latest update: #2159] on 6 October 2008 at 12:38:18 pm'! "Change Set: playerValuedParm-sw Date: 6 October 2008 Author: Scott Wallace Fixes for a two bugs relating to player-valued parameters, as originally reported at: http://lists.laptop.org/pipermail/etoys/2008-September/002643.html and as registered as TRAC tickets: TRAC 8694 parameter displays 'nil' in slot tile. TRAC 8695 possessive 's' goes missing."! !ParameterTile methodsFor: 'initialization' stamp: 'sw 10/4/2008 21:50'! bePossessive "Mark the receiver as 'possessive' for the purpose of adding an 's to the label." possessive := true. self line1: 'Player' translated, '''s' translated! ! !TilePadMorph methodsFor: 'miscellaneous' stamp: 'sw 10/6/2008 12:27'! setToBearDefaultLiteral "Set the receiver so that it contains only a tile reflecting the default literal value for a pad of this type" | wasPossessive sm toAdd | wasPossessive := (type = #Player) and: [(sm := submorphs at: 1 ifAbsent: [nil]) notNil] and: [sm isPossessive]. self removeAllMorphs. toAdd := (Vocabulary vocabularyForType: type) defaultArgumentTile. wasPossessive ifTrue: [toAdd bePossessive]. self addMorphBack: toAdd! !