The Trunk: ST80-tfel.215.mcz

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

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

Name: ST80-tfel.215
Author: tfel
Time: 6 August 2016, 1:10:07.366764 pm
UUID: 3304d1d1-df77-4491-8d68-9ea6b5d62eb9
Ancestors: ST80-mt.214, ST80-tfel.214

merge with trunk

=============== Diff against ST80-mt.214 ===============

Item was changed:
  ----- Method: FillInTheBlankView class>>requestPassword:message:centerAt:answerHeight: (in category 'instance creation') -----
  requestPassword: aFillInTheBlank message: queryString centerAt: aPoint answerHeight: answerHeight
  "Answer an instance of me on aFillInTheBlank asking the question queryString. Allow the reply to be multiple lines, and make the user input view the given height."
 
  | messageView answerView topView myPar pwdFont myArray myStyle |
  aFillInTheBlank acceptOnCR: true.
+ messageView _ DisplayTextView new
- messageView := DisplayTextView new
  model: queryString asDisplayText;
  borderWidthLeft: 2 right: 2 top: 2 bottom: 0;
  controller: NoController new.
  messageView
  window: (0@0 extent: (messageView window extent max: 200@30));
  centered.
+ answerView _ self new
- answerView := self new
  model: aFillInTheBlank;
  window: (0@0 extent: (messageView window width@answerHeight));
  borderWidth: 2.
  " now answerView to use the password font"
+ myPar _ answerView displayContents.
+ pwdFont _ FixedFaceFont new passwordFont.
+ myArray _ Array new: 1.
- myPar := answerView displayContents.
- pwdFont := (StrikeFont passwordFontSize: 12).
- myArray := Array new: 1.
  myArray at: 1 put: pwdFont.
+ myStyle _ TextStyle fontArray: myArray.
- myStyle := TextStyle fontArray: myArray.
  myPar setWithText: (myPar text) style: myStyle.
 
+ topView _ View new model: aFillInTheBlank.
- topView := View new model: aFillInTheBlank.
  topView controller: ModalController new.
  topView addSubView: messageView.
  topView addSubView: answerView below: messageView.
  topView align: topView viewport center with: aPoint.
  topView window:
  (0 @ 0 extent:
  (messageView window width) @
   (messageView window height + answerView window height)).
  topView translateBy:
  (topView displayBox amountToTranslateWithin: Display boundingBox).
  ^ topView
  !

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: ParagraphEditor>>setEmphasisHere (in category 'typing support') -----
  setEmphasisHere
 
+ (paragraph textStyle fontArray size = 1 and: [paragraph text size = 0]) ifTrue: [
+ emphasisHere _ Array with: (TextFontReference toFont: paragraph textStyle fontArray first)] ifFalse: [
+ emphasisHere _ (paragraph text attributesAt: (self pointIndex - 1 max: 1) forStyle: paragraph textStyle)
+ select: [:att | att mayBeExtended]].!
- emphasisHere := (paragraph text attributesAt: (self pointIndex - 1 max: 1) forStyle: paragraph textStyle)
- select: [:att | att mayBeExtended]!

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]!