[squeak-dev] The Trunk: Tools-mt.1144.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 22 08:28:10 UTC 2022
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1144.mcz
==================== Summary ====================
Name: Tools-mt.1144
Author: mt
Time: 22 March 2022, 9:28:07.107628 am
UUID: e85d080a-8f62-4339-bfec-7cd741f0a623
Ancestors: Tools-mt.1143
Remove manual line breaks in dialog texts. Keep double-breaks (i.e., '\\' or '<br><br>') as visual gap.
=============== Diff against Tools-mt.1143 ===============
Item was changed:
----- Method: Workspace>>acceptContents: (in category 'accessing') -----
acceptContents: aString
(self class fileOutOnAccept and: [acceptAction isNil]) ifTrue: [
(Project uiManager
confirm: ('Do you want to append the contents to\\ {1}\\on accept so that you can safely close this window?\\{2}' translated withCRs asText format: {
+ self suggestedFileNameForSave asText allBold.
- (self suggestedFileNameForSave withNoLineLongerThan: 40) asText allBold.
'(You will not be asked again for this window. Use the window menu to revise your decision later. Disable this prompt via the system-wide #fileOutOnAccept preference.)' translated withCRs asText
addAttribute: (TextFontReference toFont: Preferences standardButtonFont)})
title: 'Accept Changes')
ifTrue: [self appendContentsToFileOnAccept]
ifFalse: [acceptAction := [:edits | true ]]].
^ (acceptAction ifNotNil: [acceptAction value: aString]) ~~ false
and: [super acceptContents: aString]!
More information about the Squeak-dev
mailing list
|