'From etoys3.0 of 28 February 2008 [latest update: #2005] on 4 June 2008 at 1:37:12 pm'! "Change Set: worldScriptingCat-sw Date: 4 June 2008 Author: Scott Wallace TRAC 7183: Offer scripting category in world's viewer."! !Player methodsFor: 'slots-kernel' stamp: 'sw 6/4/2008 13:31'! categoriesForWorld "Answer the list of categories given that the receiver is the Player representing a World" | aList | aList _ #(color #'fill & border' scripting #'pen trails' playfield collections sound) asOrderedCollection. aList add: #input. Preferences eToyFriendly ifFalse: [aList addAll: #(preferences #'as object' display) ]. aList addAll: {ScriptingSystem nameForInstanceVariablesCategory. ScriptingSystem nameForScriptsCategory}. ^ aList! !