Etoys: Morphic-kfr.57.mcz

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}.
 
          }!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev