Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1813.mcz

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

Name: Morphic-mt.1813
Author: mt
Time: 6 December 2021, 1:37:16.179534 pm
UUID: 04262cef-f643-394a-8a18-13e1adb11d89
Ancestors: Morphic-mt.1812

Complements Graphics-mt.451 and ToolBuilder-Morphic-mt.282.

Fixes invisible resize grips in request-text-input dialogs.

=============== Diff against Morphic-mt.1812 ===============

Item was changed:
  ----- Method: DialogWindow>>initialExtent (in category 'initialization') -----
  initialExtent
+ 	"Scale here because dialogs -- unlike SystemWindow -- will not use the RealEstateAgent to open (i.e., #openInWorld:)."
  
+ 	^ ((200 at 150) * RealEstateAgent scaleFactor) truncated!
- 	^ 200 at 150!

Item was changed:
  ----- Method: FillInTheBlankMorph>>setPasswordQuery:initialAnswer:answerHeight:acceptOnCR: (in category 'initialization') -----
  setPasswordQuery: queryString initialAnswer: initialAnswer answerHeight: answerHeight acceptOnCR: acceptBoolean
  
  	self setQuery: queryString 
  		initialAnswer: initialAnswer 
  		answerHeight: answerHeight 
  		acceptOnCR: acceptBoolean.
+ 	textPane font: StrikeFont passwordFont.!
- 	textPane font: (StrikeFont passwordFontSize: 12).!

Item was changed:
  ----- Method: FillInTheBlankMorph>>setQuery:initialAnswer:answerExtent:acceptOnCR: (in category 'initialization') -----
  setQuery: queryString initialAnswer: initialAnswer answerExtent: answerExtent acceptOnCR: acceptBoolean 
  	
  	| text |
  	
  	result := initialAnswer.
  	done := false.
  
  	self paneMorph removeAllMorphs.
  
  	self title: 'Input Requested' translated.
  	self message: queryString.
  	
  	text := self createTextPaneAcceptOnCR: acceptBoolean.
  	self paneMorph addMorphBack: text.
  
  	self paneMorph
  		wantsPaneSplitters: true;
+ 		addCornerGrips;
+ 		layoutInset: ProportionalSplitterMorph gripThickness;
+ 		cellGap: ProportionalSplitterMorph gripThickness.
- 		addCornerGrips.
  	self paneMorph grips do: [:ea | ea showHandle: true].
+ 	
+ 	self paneMorph extent: ((initialAnswer asText asMorph extent + (self paneMorph layoutInset * 2) asPoint + ((20 at 10) * RealEstateAgent scaleFactor) truncated max: answerExtent) min: ((500 at 500) * RealEstateAgent scaleFactor) truncated).	
- 		
- 	self paneMorph extent: ((initialAnswer asText asMorph extent + (20 at 10) max: answerExtent) min: 500 at 500).	
  	self setDefaultParameters.!