The Trunk: ST80-tfel.219.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ST80-tfel.219.mcz

commits-2
Tim Felgentreff uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-tfel.219.mcz

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

Name: ST80-tfel.219
Author: tfel
Time: 30 August 2016, 11:55:47.850946 am
UUID: bc2fd586-51cf-3a41-b869-ef0d6f776969
Ancestors: ST80-tfel.217, ST80-mt.218

merge translations from Squeakland Etoys

=============== Diff against ST80-mt.218 ===============

Item was changed:
  ----- Method: ParagraphEditor>>sendContentsToPrinter (in category 'menu messages') -----
  sendContentsToPrinter
  | textToPrint printer parentWindow |
  textToPrint := paragraph text.
+ textToPrint size == 0 ifTrue: [^self inform: 'nothing to print.' translated].
- textToPrint size = 0 ifTrue: [^self inform: 'nothing to print.'].
  printer := TextPrinter defaultTextPrinter.
  parentWindow := self model dependents
  detect: [:dep | dep isSystemWindow]
  ifNone: [nil].
  parentWindow isNil
  ifTrue: [printer documentTitle: 'Untitled']
  ifFalse: [printer documentTitle: parentWindow label].
  printer printText: textToPrint!

Item was changed:
  ----- Method: ScreenController>>setDisplayDepth (in category 'menu messages') -----
  setDisplayDepth
  "Let the user choose a new depth for the display. "
  | result |
+ (result := (SelectionMenu selections: Display supportedDisplayDepths) startUpWithCaption: ('Choose a display depth
+ (it is currently {1})' translated format: {Display depth printString})) == nil ifFalse:
- (result := (SelectionMenu selections: Display supportedDisplayDepths) startUpWithCaption: 'Choose a display depth
- (it is currently ' , Display depth printString , ')') == nil ifFalse:
  [Display newDepth: result]!