[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