[etoys-dev] Etoys Inbox: Etoys-Richo.10.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat May 22 15:18:40 EDT 2010
A new version of Etoys was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Etoys-Richo.10.mcz
==================== Summary ====================
Name: Etoys-Richo.10
Author: Richo
Time: 22 May 2010, 4:18:12 pm
UUID: 6c08d845-bc8f-dd43-b10c-2869f651d9fe
Ancestors: Etoys-Richo.9
* Fixed TheWorldMenu to avoid sending #translated twice for all its items.
=============== Diff against Etoys-Richo.9 ===============
Item was changed:
----- Method: TheWorldMenu>>scriptingMenu (in category '*Etoys') -----
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)' translatedNoop. { #myWorld . #activateObjectsTool }. 'A searchable source of new objects.' translatedNoop}.
- { 'objects (o)' translated. { #myWorld . #activateObjectsTool }. 'A searchable source of new objects.' translated}.
nil. "----------"
+ { 'view trash contents' translatedNoop. { #myWorld . #openScrapsBook:}. 'The place where all your trashed morphs go.' translatedNoop}.
+ { 'empty trash can' translatedNoop. { Utilities . #emptyScrapsBookGC}. 'Empty out all the morphs that have accumulated in the trash can.' translatedNoop}.
- { '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' translatedNoop. { SoundLibraryTool. #newInHand}.'A tool that lets you see and manage all the sounds in the sound library' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #showStatusOfAllScripts}. 'Lets you view the status of all the scripts belonging to all the scripted objects of the project.' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #galleryOfPlayers}. 'A tool that lets you find out about all the players used in this project' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #removeAllViewers}. 'Remove all the Viewers from this project.' translatedNoop}.
- { '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}."
}!
Item was changed:
----- Method: TheWorldMenu>>fullScriptingMenu (in category '*Etoys') -----
fullScriptingMenu
"Build the authoring-tools menu for the world. This method offeres all the item historically offered in the full etoy system; when eToyFriendly is on, most of the items are suppressed."
^ self fillIn: (self menu: 'authoring tools...' translatedNoop) from: {
+ { 'objects (o)' translatedNoop. { #myWorld . #activateObjectsTool }. 'A searchable source of new objects.' translatedNoop}.
- { 'objects (o)' translated. { #myWorld . #activateObjectsTool }. 'A searchable source of new objects.' translated}.
nil. "----------"
+ { 'view trash contents' translatedNoop. { #myWorld . #openScrapsBook:}. 'The place where all your trashed morphs go.' translatedNoop}.
+ { 'empty trash can' translatedNoop. { Utilities . #emptyScrapsBookGC}. 'Empty out all the morphs that have accumulated in the trash can.' translatedNoop}.
- { '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' translatedNoop. { SoundLibraryTool. #newInHand}.'A tool that lets you see and manage all the sounds in the sound library' translatedNoop}.
+ { 'new scripting area' translatedNoop. { #myWorld . #detachableScriptingSpace}. 'A window set up for simple scripting.' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #showStatusOfAllScripts}. 'Lets you view the status of all the scripts belonging to all the scripted objects of the project.' translatedNoop}.
+ { 'summary of scripts' translatedNoop. {#myWorld . #printScriptSummary}. 'Produces a summary of scripted objects in the project, and all of their scripts.' translatedNoop}.
+ { 'browser for scripts' translatedNoop. {#myWorld . #browseAllScriptsTextually}. 'Allows you to view all the scripts in the project in a traditional programmers'' "browser" format' translatedNoop}.
- { '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.' translated}.
- { 'browser for scripts' translated. {#myWorld . #browseAllScriptsTextually}. 'Allows you to view all the scripts in the project in a traditional programmers'' "browser" format' translated}.
nil.
+ { 'gallery of players' translatedNoop. {#myWorld . #galleryOfPlayers}. 'A tool that lets you find out about all the players used in this project' translatedNoop}.
- { 'gallery of players' translated. {#myWorld . #galleryOfPlayers}. 'A tool that lets you find out about all the players used in this project' translated}.
" { 'gallery of scripts' translated. {#myWorld . #galleryOfScripts}. 'Allows you to view all the scripts in the project' translated}."
+ { 'etoy vocabulary summary' translatedNoop. {#myWorld . #printVocabularySummary }. 'Displays a summary of all the pre-defined commands and properties in the pre-defined EToy vocabulary.' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #attemptCleanup}. 'Take measures that may help fix up some things about a faulty or problematical project.' translatedNoop}.
- { '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' translatedNoop. {#myWorld . #removeAllViewers}. 'Remove all the Viewers from this project.' translatedNoop}.
- { 'remove all viewers' translated. {#myWorld . #removeAllViewers}. 'Remove all the Viewers from this project.' translated}.
+ { 'abandon unsituated players' translatedNoop. {#myWorld. #abandonUnsituatedPlayers}. 'If any objects in the project have references, in player-valued variables, to other objects otherwise not present in the project, abandon them and replace former references to them by references to Dot'}.
- { 'abandon unsituated players' translated. {#myWorld. #abandonUnsituatedPlayers}. 'If any objects in the project have references, in player-valued variables, to other objects otherwise not present in the project, abandon them and replace former references to them by references to Dot'}.
+ { 'refer to masters' translatedNoop. {#myWorld . #makeAllScriptEditorsReferToMasters }. 'Ensure that all script editors are referring to the first (alphabetically by external name) Player of their type' translatedNoop}.
- { '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' translatedNoop. { #myWorld . #unlockContents}. 'If any items on the world desktop are currently locked, unlock them.' translatedNoop}.
+ { 'unhide hidden objects' translatedNoop. { #myWorld . #showHiders}. 'If any items on the world desktop are currently hidden, make them visible.' translatedNoop}.
- { '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}.
}!
More information about the etoys-dev
mailing list