[squeak-dev] The Trunk: ST80-mt.272.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 6 12:28:24 UTC 2021

Marcel Taeumel uploaded a new version of ST80 to project The Trunk:

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

Name: ST80-mt.272
Author: mt
Time: 6 December 2021, 1:28:22.705534 pm
UUID: 2a7c8725-10c6-3c48-86b5-f968c04e6399
Ancestors: ST80-mt.271

Complements Graphics-mt.451

=============== Diff against ST80-mt.271 ===============

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
  		model: queryString asDisplayText;
  		borderWidthLeft: 2 right: 2 top: 2 bottom: 0;
  		controller: NoController new.
  		window: (0 at 0 extent: (messageView window extent max: 200 at 30));
  	answerView := self new
  		model: aFillInTheBlank;
  		window: (0 at 0 extent: (messageView window width at answerHeight));
  		borderWidth: 2.
  	" now answerView to use the password font"
  	myPar := answerView displayContents.
+ 	pwdFont := StrikeFont passwordFont.
- 	pwdFont := (StrikeFont passwordFontSize: 12).
  	myArray := Array new: 1.
  	myArray at: 1 put: pwdFont.
  	myStyle := TextStyle fontArray: myArray.
  	myPar setWithText: (myPar text) style: myStyle.
  	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

More information about the Squeak-dev mailing list