[etoys-dev] Etoys: Morphic-kfr.57.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 18 16:25:25 EDT 2011


Karl Ramberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-kfr.57.mcz

==================== Summary ====================

Name: Morphic-kfr.57
Author: kfr
Time: 18 May 2011, 10:24:59 pm
UUID: bc84e611-e179-8e4a-8dd7-3909b9c3f1ea
Ancestors: Morphic-kfr.56

Extraneous double spaces present in UI strings
http://tracker.squeakland.org/browse/SQ-666

=============== Diff against Morphic-kfr.56 ===============

Item was changed:
  ----- Method: EventRecordingSpace>>makeStatusButtons (in category 'initialization') -----
  makeStatusButtons
  	"Build, but do not insert, the buttons that control"
  
+ 	publishButton := self buttonWithLabel: 'Publish' actionSelector: #publishButtonHit balloonText: 'When you hit this, you will be handed a button which, when it is clicked, will open up an Event Player in which the recording can be played back.' translated.
- 	publishButton := self buttonWithLabel: 'Publish' actionSelector: #publishButtonHit balloonText: 'When you hit this, you will be handed a button which, when it is clicked,  will open up an Event Player in which the recording can be played back.' translated.
  
  	abandonButton := self tanOButton.
  	abandonButton actionSelector: #abandon.
  	abandonButton  setBalloonText: 'Abandon this effort and throw away this window' translated.
  
  	recordButton := self buttonWithLabel: 'Record' translated actionSelector: #record balloonText: 'Start Recording' translated.
  
  	menuButton := self menuButton.
  	"self buttonWithLabel: 'Options' translated actionSelector: #offerMenu balloonText: 'Offers a menu of options'."
  
  	scriptButton :=  IconicButton new target: self;
  		borderWidth: 0;
  		labelGraphic: (ScriptingSystem formAtKey: #Script);
  		color: Color transparent; 
  		actWhen: #buttonUp;
  		actionSelector: #makeHorizontalRoll;
  		setBalloonText: 'show this theatre''s script in a piano-roll-like format for visualizaitoin and editing.' translated;
  		yourself.
  
  	recordAgainButton := self buttonWithLabel: 'Record Again' translated actionSelector: #recordAgain balloonText: 'Abandon existing recording and start a new one.' translated.
  
  	recordVoiceoverButton := self buttonWithLabel: 'Start Recording Voiceover' translated actionSelector: #recordVoiceover balloonText: 'Add a voiceover to the existing event-recorded sequence ' translated.
  
  	stopRecordingVoiceoverButton := self buttonWithLabel: 'Stop Record Voiceover' translated actionSelector: #stopRecordingVoiceover balloonText: nil  " 'Stop the recording of the voiceover segment currently being recorded' translated ".
  
  	playButton := self buttonWithLabel: 'Play' translated actionSelector: #play balloonText: 'Replay this sequence' translated.
  
  	rewindButton := self buttonWithLabel: 'Rewind' translated actionSelector: #rewind balloonText: 'Reset to the starting condition for this recording' translated.
  
  	stopButton := self buttonWithLabel: 'Stop' translated actionSelector: #stopPlayback balloonText: 'Stop playing or recording this panel' translated.
  
  	pauseButton := self buttonWithLabel: 'Pause' translated actionSelector: #pausePlayback balloonText: 'Temporarily pause this playback' translated.
  
  	resumeButton := self buttonWithLabel: 'Resume' translated actionSelector: #resumePlayback balloonText: 'Resume playback' translated.
  
  	captionMorph := UpdatingStringMorph contents: self captionString font: ScriptingSystem fontForTiles.
  	captionMorph useStringFormat.
  	captionMorph target: self.
  	captionMorph getSelector: #captionString; putSelector: #captionString:; growable: true; minimumWidth: 48.
  
  	showingSoundButton := UpdatingThreePhaseButtonMorph blackTriangularOpener.
  	showingSoundButton
  		target: self;
  		actionSelector: #toggleShowingSoundPanel;
  		getSelector: #notShowingSoundPanel.
  	showingSoundButton setBalloonText: 'show/hide voice controls' translated
  
  
  
  !

Item was changed:
  ----- Method: TextMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  	"Register the receiver in the system's flaps registry"
  	self environment
  		at: #Flaps
  		ifPresent: [:cl | cl registerQuad: {#TextMorph. #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop}
  						forFlapNamed: 'PlugIn Supplies'.
  						cl registerQuad: {#TextMorph	. #exampleBackgroundLabel. 'Background Label' translatedNoop. 'A piece of text that will occur on every card of the background' translatedNoop}
  						forFlapNamed: 'Scripting'.
+ 						cl registerQuad: {#TextMorph	. #exampleBackgroundField. 'Background Field' translatedNoop. 'A data field which will have a different value on every card of the background' translatedNoop}
- 						cl registerQuad: {#TextMorph	. #exampleBackgroundField. 'Background Field' translatedNoop. 'A  data field which will have a different value on every card of the background' translatedNoop}
  						forFlapNamed: 'Scripting'.
  						cl registerQuad: {#TextMorph	. #authoringPrototype. 'Simple Text'	translatedNoop. 'Text that you can edit into anything you wish' translatedNoop}
  						forFlapNamed: 'Stack Tools'.
  						cl registerQuad: {#TextMorph	. #fancyPrototype. 'Fancy Text' 	translatedNoop. 'A text field with a rounded shadowed border, with a fancy font.' translatedNoop}
  						forFlapNamed: 'Stack Tools'.
  						cl registerQuad: {#TextMorph	. #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop}
  						forFlapNamed: 'Supplies'.]!

Item was changed:
  ----- Method: TheWorldMenu>>windowsMenu (in category 'windows & flaps menu') -----
  windowsMenu
          "Build the windows menu for the world."
  
          ^ self fillIn: (self menu: 'windows' translatedNoop) from: {  
                  { 'find window' translatedNoop. { #myWorld . #findWindow: }. 'Presents a list of all windows; if you choose one from the list, it becomes the active window.' translatedNoop}.
  
                  { 'find changed browsers...' translatedNoop. { #myWorld . #findDirtyBrowsers: }. 'Presents a list of browsers that have unsubmitted changes; if you choose one from the list, it becomes the active window.' translatedNoop}.
  
                  { 'find changed windows...' translatedNoop. { #myWorld . #findDirtyWindows: }. 'Presents a list of all windows that have unsubmitted changes; if you choose one from the list, it becomes the active window.' translatedNoop}.
  			nil.
  
                  { 'find a transcript (t)' translatedNoop. { #myWorld . #findATranscript: }. 'Brings an open Transcript to the front, creating one if necessary, and makes it the active window' translatedNoop}.
  
+                { 'find a fileList (L)' translatedNoop. { #myWorld . #findAFileList: }. 'Brings an open fileList to the front, creating one if necessary, and makes it the active window' translatedNoop}.
-                { 'find a fileList (L)' translatedNoop. { #myWorld . #findAFileList: }. 'Brings an open fileList  to the front, creating one if necessary, and makes it the active window' translatedNoop}.
  
                 { 'find a change sorter (C)' translatedNoop. { #myWorld . #findAChangeSorter: }. 'Brings an open change sorter to the front, creating one if necessary, and makes it the active window' translatedNoop}.
  
  			{ 'find message names (W)' translatedNoop. { #myWorld . #findAMessageNamesWindow: }. 'Brings an open MessageNames window to the front, creating one if necessary, and makes it the active window' translatedNoop}.
  
  			 nil.
                  { #staggerPolicyString . { self . #toggleWindowPolicy }. 'stagger: new windows positioned so you can see a portion of each one.
                  tile: new windows positioned so that they do not overlap others, if possible.' translatedNoop}.
  
                  nil.
                  { 'collapse all windows' translatedNoop. { #myWorld . #collapseAllWindows }. 'Reduce all open windows to collapsed forms that only show titles.' translatedNoop}.
                  { 'collapse all objects' translatedNoop. { #myWorld . #collapseAllWindowsAndNonWindows }. 'Reduce all open windows and all other objects on the desktop to labeled tabs' translatedNoop}.
                  { 'expand all' translatedNoop. { #myWorld . #expandAllCollapsedObjects }. 'Expand all collapsed windows and other collapsed objects back to their expanded forms.' translatedNoop}.
  		
                  { 'close top window (w)' translatedNoop. { SystemWindow . #closeTopWindow }. 'Close the topmost window if possible.' translatedNoop}.
                  { 'send top window to back (\)' translatedNoop. { SystemWindow . #sendTopWindowToBack  }. 'Make the topmost window become the backmost one, and activate the window just beneath it.' translatedNoop}.
  			 { 'move windows onscreen' translatedNoop. { #myWorld . #bringWindowsFullOnscreen }. 'Make all windows fully visible on the screen' translatedNoop}.
  
                  nil.
                  { 'delete unchanged windows' translatedNoop. { #myWorld . #closeUnchangedWindows }. 'Deletes all windows that do not have unsaved text edits.' translatedNoop}.
                  { 'delete non-windows' translatedNoop. { #myWorld . #deleteNonWindows }. 'Deletes all non-window morphs lying on the world.' translatedNoop}.
                  { 'delete both of the above' translatedNoop. { self . #cleanUpWorld }. 'deletes all unchanged windows and also all non-window morphs lying on the world, other than flaps.' translatedNoop}.
  
          }!



More information about the etoys-dev mailing list