[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:
http://source.squeak.org/trunk/ST80-mt.272.mcz
==================== 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.
messageView
window: (0 at 0 extent: (messageView window extent max: 200 at 30));
centered.
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
|