'From etoys2.2 of 24 September 2007 [latest update: #1695] on 10 October 2007 at 4:58:31 pm'!
"Change Set:		gradientWorld-sw
Date:			10 October 2007
Author:			Scott Wallace

Make relevant items in the fill & border category be visible in the World' sviewer."!


!Player methodsFor: 'slots-kernel' stamp: 'sw 10/10/2007 16:50'!
categoriesForWorld
	"Answer the list of categories given that the receiver is the Player representing a World"

	| aList |
	aList _ #(color #'fill & border' #'pen trails' playfield collections sound) asOrderedCollection.
	aList add: #input.
	Preferences eToyFriendly ifFalse:
		[aList addAll: #(preferences #'as object' #'playfield options' 
display) ].

	aList addAll: {ScriptingSystem nameForInstanceVariablesCategory.  ScriptingSystem nameForScriptsCategory}.

	^ aList! !

!Player methodsFor: 'slots-kernel' stamp: 'sw 10/10/2007 16:55'!
usableMethodInterfacesIn: methodInterfaceList
	"Filter the list given by methodInterfaceList, to remove items inappropriate to the receiver"

	self hasCostumeThatIsAWorld ifTrue:
		"Formerly we had been hugely restrictive here, but let's try the other extreme for a while..."
		[^ methodInterfaceList reject: [:anInterface |
			#(getShadowColor getDropShadow getRoundedCorners getBorderStyle getBorderColor getBorderWidth)  includes: anInterface selector]].

	self hasAnyBorderedCostumes ifTrue: [^ methodInterfaceList].

	^ self hasOnlySketchCostumes
		ifTrue:
			[methodInterfaceList select: [:anInterface | (#(getColor getSecondColor getBorderColor getBorderWidth getBorderStyle  getRoundedCorners getUseGradientFill getRadialGradientFill ) includes: anInterface selector) not]]
		ifFalse:
			[methodInterfaceList select: [:anInterface | (#(getBorderColor getBorderWidth) includes: anInterface selector) not]]! !