Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.503.mcz
==================== Summary ====================
Name: EToys-mt.503 Author: mt Time: 4 November 2023, 10:31:14.11889 am UUID: 1ec3d1a1-a0ed-f748-9fe7-f60f03f4d785 Ancestors: EToys-mt.502
Fixes trailing space in some message categories.
=============== Diff against EToys-mt.502 ===============
Item was changed: + ----- Method: EventPlaybackButton>>addCustomMenuItems:hand: (in category 'menu') ----- - ----- Method: EventPlaybackButton>>addCustomMenuItems:hand: (in category 'menu ') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph "Add custom menu items to the menu"
super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu addLine. aCustomMenu addUpdating: #autoStartString target: self action: #toggleAutoStart. aCustomMenu addUpdating: #autoDismissString target: self action: #toggleAutoDismiss. aCustomMenu addLine.
aCustomMenu addLine. aCustomMenu add: 'change caption' translated target: self action: #changeCaption. aCustomMenu add: 'open in recording theatre' translated target: self action: #openInRecordingSpace!
Item was changed: + ----- Method: EventPlaybackButton>>autoDismissString (in category 'menu') ----- - ----- Method: EventPlaybackButton>>autoDismissString (in category 'menu ') ----- autoDismissString "Answer a string telling the status of my autoDismiss."
^ ((autoDismiss == true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto dismiss' translated!
Item was changed: + ----- Method: EventPlaybackButton>>autoStartString (in category 'menu') ----- - ----- Method: EventPlaybackButton>>autoStartString (in category 'menu ') ----- autoStartString "Answer a string telling the status of my autoStart."
^ ((autoStart == true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto start' translated!
Item was changed: + ----- Method: EventPlaybackButton>>changeCaption (in category 'menu') ----- - ----- Method: EventPlaybackButton>>changeCaption (in category 'menu ') ----- changeCaption "Allow the user to edit the caption name for this button. Create a new button with the new caption."
| result interimSpace newButton | result := FillInTheBlank request: 'Please edit the caption' translated initialAnswer: caption. result isEmptyOrNil ifTrue: [^ self]. caption := result. interimSpace := EventRecordingSpace new. interimSpace initializeFromPlaybackButton: self. newButton := self class new initializeFrom: interimSpace. self labelGraphic: newButton imageForm!
Item was changed: + ----- Method: EventPlaybackButton>>toggleAutoDismiss (in category 'menu') ----- - ----- Method: EventPlaybackButton>>toggleAutoDismiss (in category 'menu ') ----- toggleAutoDismiss "Toggle my autoDismiss state."
autoDismiss := (autoDismiss == true) not!
Item was changed: + ----- Method: EventPlaybackButton>>toggleAutoStart (in category 'menu') ----- - ----- Method: EventPlaybackButton>>toggleAutoStart (in category 'menu ') ----- toggleAutoStart "Toggle my autoStart state."
autoStart := (autoStart == true) not!
Item was changed: + ----- Method: PlaybackInvoker>>addCustomMenuItems:hand: (in category 'menu') ----- - ----- Method: PlaybackInvoker>>addCustomMenuItems:hand: (in category 'menu ') ----- addCustomMenuItems: aMenu hand: aHandMorph "Add custom menu items to the menu"
super addCustomMenuItems: aMenu hand: aHandMorph.
aMenu addLine. aMenu addUpdating: #autoStartString target: self action: #toggleAutoStart. aMenu addUpdating: #autoDismissString target: self action: #toggleAutoDismiss. aMenu addUpdating: #postPlaybackImageFeatureString target: self action: #togglePostPlaybackImageFeature. aMenu addLine. aMenu addUpdating: #appearAtScreenCenterString target: self action: #appearAtScreenCenter. aMenu addUpdating: #appearAtContainerOriginString target: self action: #appearAtContainerOrigin. aMenu addUpdating: #appearAtButtonPositionString target: self action: #appearAtButtonPosition.
aMenu addTranslatedList: #( - ('imprint HINT' imprintHintOnForm) - ('show initial picture' adoptInitialPicture ) ('show final picture' adoptFinalPicture ) ('show caption' adoptTextualAppearance) - ('change caption' changeCaption) ('open for editing' openInRecordingSpace)) translatedNoop!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtButtonPosition (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtButtonPosition (in category 'menu ') ----- appearAtButtonPosition "Arrange for playback to appear at the button's position."
whereToAppear := #buttonPosition
!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtButtonPositionString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtButtonPositionString (in category 'menu ') ----- appearAtButtonPositionString "Answer a string telling whether the playback window should appear at the button's position."
^ ((whereToAppear = #buttonPosition) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at button position' translated!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtContainerOrigin (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtContainerOrigin (in category 'menu ') ----- appearAtContainerOrigin "Arrange for playback to appear at the the button's contain'er's origin"
whereToAppear := #containerOrigin
!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtContainerOriginString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtContainerOriginString (in category 'menu ') ----- appearAtContainerOriginString "Answer a string telling whether the playback window should appear at the center of the screen."
^ ((whereToAppear = #containerOrigin) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at container origin' translated!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtScreenCenter (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtScreenCenter (in category 'menu ') ----- appearAtScreenCenter "Arrange for playback to appear at the screen center."
whereToAppear := #screenCenter
!
Item was changed: + ----- Method: PlaybackInvoker>>appearAtScreenCenterString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtScreenCenterString (in category 'menu ') ----- appearAtScreenCenterString "Answer a string telling whether the playback window should appear at the center of the screen."
^ ((whereToAppear = #screenCenter) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at screen center' translated!
Item was changed: + ----- Method: PlaybackInvoker>>autoDismissString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>autoDismissString (in category 'menu ') ----- autoDismissString "Answer a string telling the status of my autoDismiss."
^ (autoDismiss ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto dismiss' translated!
Item was changed: + ----- Method: PlaybackInvoker>>autoStartString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>autoStartString (in category 'menu ') ----- autoStartString "Answer a string telling the status of my autoStart."
^ (autoStart ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto start' translated!
Item was changed: + ----- Method: PlaybackInvoker>>changeCaption (in category 'menu') ----- - ----- Method: PlaybackInvoker>>changeCaption (in category 'menu ') ----- changeCaption "Allow the user to edit the caption name for this button. Create a new button with the new caption."
| result interimSpace newButton | result := FillInTheBlank request: 'Please edit the caption' translated initialAnswer: caption. result isEmptyOrNil ifTrue: [^ self]. caption := result. interimSpace := EventRecordingSpace new. interimSpace initializeFromPlaybackButton: self. newButton := PlaybackInvoker new initializeFrom: interimSpace. self form: newButton imageForm!
Item was changed: + ----- Method: PlaybackInvoker>>defaultNameStemForInstances (in category 'menu') ----- - ----- Method: PlaybackInvoker>>defaultNameStemForInstances (in category 'menu ') ----- defaultNameStemForInstances "Answer a basis for names of default instances of the receiver."
^ caption!
Item was changed: + ----- Method: PlaybackInvoker>>offeringHintString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>offeringHintString (in category 'menu ') ----- offeringHintString "Answer a string telling the status of my offeringHint."
^ (offeringHint ifTrue: ['<yes>'] ifFalse: ['<no>']), 'offering hint'!
Item was changed: + ----- Method: PlaybackInvoker>>openInRecordingSpace (in category 'menu') ----- - ----- Method: PlaybackInvoker>>openInRecordingSpace (in category 'menu ') ----- openInRecordingSpace "Open a new EventRecordingSpace based on the receiver."
EventRecordingSpace openFromPlaybackButton: self!
Item was changed: + ----- Method: PlaybackInvoker>>postPlaybackImageFeatureString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>postPlaybackImageFeatureString (in category 'menu ') ----- postPlaybackImageFeatureString "Answer a string telling whether the playback button should be a 50% rendition of the final bitmap after an invoked playback has ended"
^ ((postPlaybackImageFeature = true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'post-playback feature' translated!
Item was changed: + ----- Method: PlaybackInvoker>>toggleAutoDismiss (in category 'menu') ----- - ----- Method: PlaybackInvoker>>toggleAutoDismiss (in category 'menu ') ----- toggleAutoDismiss "Toggle my autoDismiss state."
autoDismiss := autoDismiss not!
Item was changed: + ----- Method: PlaybackInvoker>>toggleAutoStart (in category 'menu') ----- - ----- Method: PlaybackInvoker>>toggleAutoStart (in category 'menu ') ----- toggleAutoStart "Toggle my autoStart state."
autoStart := autoStart not!
Item was changed: + ----- Method: PlaybackInvoker>>togglePostPlaybackImageFeature (in category 'menu') ----- - ----- Method: PlaybackInvoker>>togglePostPlaybackImageFeature (in category 'menu ') ----- togglePostPlaybackImageFeature "Toggle the setting of the postPlaybackImage feature."
postPlaybackImageFeature := (postPlaybackImageFeature = true) not!
squeak-dev@lists.squeakfoundation.org