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

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

Name: PreferenceBrowser-mt.136
Author: mt
Time: 14 March 2022, 4:32:04.414786 pm
UUID: d7235d48-385c-6c4b-ba7a-c4fa7555b49c
Ancestors: PreferenceBrowser-mt.135

Make text-input fields in preference browser have a similar width. (I think we need a new view for negative numbers or floats.)

=============== Diff against PreferenceBrowser-mt.135 ===============

Item was changed:
  ----- Method: PBClassPreferenceView>>textField (in category 'user interface') -----
  textField
  
  	| field |
  	field := PluggableTextMorphPlus
  		on: self
  		text: #preferenceValue
  		accept: #preferenceValue:.
  	field
- 		hideScrollBarsIndefinitely;
  		acceptOnCR: true;
  		wrapFlag: false;
+ 		hideScrollBarsIndefinitely;
  		vResizing: #rigid;
+ 		hResizing: #rigid;
+ 		height: ToolBuilder default inputFieldHeight;
+ 		width: (TextStyle default compositionWidthFor: 30).
- 		hResizing: #spaceFill;
- 		height: ToolBuilder default inputFieldHeight.
  	
  	styler ifNotNil: [:s | field styler: (s view: field)].
  	
  	^ field!

Item was changed:
  ----- Method: PBNumericPreferenceView>>textField (in category 'user interface') -----
  textField
+ 
  	^(PluggableTextMorph
  		on: self
  		text: #preferenceValue
  		accept: #preferenceValue:)
- 			hideScrollBarsIndefinitely;
  			acceptOnCR: true;
  			wrapFlag: false;
+ 			hideScrollBarsIndefinitely;
  			vResizing: #rigid;
+ 			hResizing: #rigid;
- 			hResizing: #spaceFill;
  			height: ToolBuilder default inputFieldHeight;
+ 			width: (TextStyle default compositionWidthFor: 15);
  			yourself.!

Item was changed:
  ----- Method: PBTextPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
  representativeButtonWithColor: aColor inPanel: aPreferenceBrowser
  	^self horizontalPanel
  		layoutInset: 2;
  		color: aColor;
  		cellGap: 20;
  		cellPositioning: #center;
  		addMorphBack: self morphForName;
+ 		addMorphBack: self horizontalFiller;
  		addMorphBack: self textField;
  		yourself.!

Item was changed:
  ----- Method: PBTextPreferenceView>>textField (in category 'user interface') -----
  textField
  
  	^(PluggableTextMorph
  		on: self
  		text: #preferenceValue
  		accept: #preferenceValue:)
  			acceptOnCR: true;
  			wrapFlag: false;
  			hideScrollBarsIndefinitely;
  			vResizing: #rigid;
+ 			hResizing: #rigid;
- 			hResizing: #spaceFill;
  			height: ToolBuilder default inputFieldHeight;
+ 			width: (TextStyle default compositionWidthFor: 30);
- 
  			yourself.!