'From etoys3.1 of 21 November 2008 [latest update: #2177] on 5 January 2009 at 1:00:26 am'! "Change Set: fullAuthTools-sw Date: 5 January 2009 Author: Scott Wallace TRAC 9173: Offer full authoring-tools menu to all users. Show the same, full, set of choices in the authoring-tools menu whether or not eToyFriendly is turned on."! !TheWorldMenu methodsFor: '*flexibleVocabularies-construction' stamp: 'sw 12/24/2008 01:00'! scriptingMenu "Build the authoring-tools menu for the world. FORMERLY: If eToyFriendly is set, a reduced menu is offered." true ifTrue: [^ self fullScriptingMenu]. Preferences eToyFriendly ifFalse: [^ self fullScriptingMenu]. ^ self fillIn: (self menu: 'authoring tools...' translatedNoop) from: { { 'objects (o)' translated. { #myWorld . #activateObjectsTool }. 'A searchable source of new objects.' translated}. nil. "----------" { 'view trash contents' translated. { #myWorld . #openScrapsBook:}. 'The place where all your trashed morphs go.' translated}. { 'empty trash can' translated. { Utilities . #emptyScrapsBookGC}. 'Empty out all the morphs that have accumulated in the trash can.' translated}. nil. "----------" { 'sound library' translated. { SoundLibraryTool. #newInHand}.'A tool that lets you see and manage all the sounds in the sound library' translated}. "{ 'new scripting area' translated. { #myWorld . #detachableScriptingSpace}. 'A window set up for simple scripting.' translated}. nil. ""----------" { 'status of scripts' translated. {#myWorld . #showStatusOfAllScripts}. 'Lets you view the status of all the scripts belonging to all the scripted objects of the project.' translated}. "{ 'summary of scripts' translated. {#myWorld . #printScriptSummary}. 'Produces a summary of scripted objects in the project, and all of their scripts.'}." "{ 'browser for scripts' translated. {#myWorld . #browseAllScriptsTextually}. 'Allows you to view all the scripts in the project in a traditional programmers'' ""browser"" format'}." { 'gallery of players' translated. {#myWorld . #galleryOfPlayers}. 'A tool that lets you find out about all the players used in this project' translated}. nil. " { 'gallery of scripts' translated. {#myWorld . #galleryOfScripts}. 'Allows you to view all the scripts in the project' translated}." "{ 'etoy vocabulary summary' translated. {#myWorld . #printVocabularySummary }. 'Displays a summary of all the pre-defined commands and properties in the pre-defined EToy vocabulary.' translated}." "{ 'attempt misc repairs' translated. {#myWorld . #attemptCleanup}. 'Take measures that may help fix up some things about a faulty or problematical project.' translated}." { 'remove all viewers' translated. {#myWorld . #removeAllViewers}. 'Remove all the Viewers from this project.' translated}. "{ 'refer to masters' translated. {#myWorld . #makeAllScriptEditorsReferToMasters }. 'Ensure that all script editors are referring to the first (alphabetically by external name) Player of their type' translated}. " "nil." "----------" "{ 'unlock locked objects' translated. { #myWorld . #unlockContents}. 'If any items on the world desktop are currently locked, unlock them.' translated}." "{ 'unhide hidden objects' translated. { #myWorld . #showHiders}. 'If any items on the world desktop are currently hidden, make them visible.' translated}." }! !