'From etoys2.2 of 24 September 2007 [latest update: #1762] on 7 November 2007 at 10:26:40 am'!
"Change Set:		suppliesFlapFixes-sw
Date:			7 November 2007
Author:			Scott Wallace

Fix the all-scripts-tool token in the supplies flap.
Restore book-morph to supplies flap.
Remove triangle from supplies flap."!


!Flaps class methodsFor: 'predefined flaps' stamp: 'sw 11/7/2007 10:12'!
defaultsQuadsDefiningPlugInSuppliesFlap
	"Answer a list of quads which define the objects to appear in the default Supplies flap used in the Plug-in image"
	^  {
	{#ObjectsTool. #newStandAlone. 'Object Catalog' translatedNoop. 'A tool that lets you browse the catalog of available objects' translatedNoop}.
	{#AllScriptsTool. #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'Stop, Step, and Go buttons for controlling all your scripts at once.  The tool can also be "opened up" to control each script in your project individually.' translatedNoop}.
	{#AllPlayersTool. #allPlayersToolForActiveWorld. 'Players' translatedNoop. 'A tool listing all the scripted objects in the project.' translatedNoop}.
	{#TrashCanMorph. #new	. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}.
	{#TextMorph	. #nonwrappingPrototype. 'Text' translatedNoop.	'Text that you can edit into anything you desire.' translatedNoop}.
	{#RecordingControls. #authoringPrototype. 'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}.
	{#RectangleMorph. #authoringPrototype. 'Rectangle' translatedNoop. 'A rectangle' translatedNoop}.
	{#EllipseMorph. #authoringPrototype. 'Ellipse' translatedNoop.  'An ellipse or circle' translatedNoop}.
	{#StarMorph. #authoringPrototype. 'Star' translatedNoop. 'A star' translatedNoop}.
	{#BookMorph. #authoringPrototype. 'Book' translatedNoop. 'A multi-paged structure' translatedNoop}.
	{#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}.
	{#JoystickMorph	. #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop}.
	{#PasteUpMorph. #authoringPrototype. 'Playfield' translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}
} asOrderedCollection! !

"Postscript:"
	| wasEnabled |
	wasEnabled := Preferences eToyFriendly.
	Preferences enable: #eToyFriendly.
	Flaps registeredFlapsQuads at: 'PlugIn Supplies' put: Flaps defaultsQuadsDefiningPlugInSuppliesFlap.
	Flaps replaceGlobalFlapwithID: 'Supplies'.
	wasEnabled ifFalse: [Preferences disable: #eToyFriendly].
	SugarLibrary clearDefault.
	SugarNavigatorBar refreshButRetainOldContents.!