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

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

Name: Morphic-mt.1967
Author: mt
Time: 16 April 2022, 4:59:39.495988 pm
UUID: 0c97b882-7e33-984c-8b8b-5b641e87f240
Ancestors: Morphic-ct.1966

Respect #scaleFactor in multi-window button. Use #menu cursor so that the user notices that there is something hidden above the window label.

Only affects preference #useMultiWindowBrowsers.

=============== Diff against Morphic-ct.1966 ===============

Item was added:
+ ----- Method: MultiWindowLabelButtonMorph>>mouseEnter: (in category 'event handling') -----
+ mouseEnter: evt
+ 
+ 	super mouseEnter: evt.
+ 	evt hand showTemporaryCursor: Cursor menu.!

Item was added:
+ ----- Method: MultiWindowLabelButtonMorph>>mouseLeave: (in category 'event handling') -----
+ mouseLeave: evt
+ 
+ 	super mouseLeave: evt.
+ 	evt hand showTemporaryCursor: nil.!

Item was removed:
- ----- Method: PluggableSystemWindowWithLabelButton>>adjustExtraButton (in category 'resize/collapse') -----
- adjustExtraButton
- 	labelButton ifNil: [^self].
- 	labelButton
- 		position: self innerBounds topLeft + (20 @ -3);
- 		extent: self innerBounds extent * (0.4 at 1)!

Item was removed:
- ----- Method: PluggableSystemWindowWithLabelButton>>extent: (in category 'geometry') -----
- extent: newExtent
- 	super extent: newExtent.
- 	self adjustExtraButton!

Item was changed:
  ----- Method: PluggableSystemWindowWithLabelButton>>savedMultiWindowState: (in category 'accessing') -----
  savedMultiWindowState: aSavedMultiWindowState
+ 	| offset |
  	labelButton := MultiWindowLabelButtonMorph
  						on: aSavedMultiWindowState
  						getState: nil
  						action: #selectWindowsMenu.
  	labelButton
  		triggerOnMouseDown: true;
  		savedMultiWindowState: aSavedMultiWindowState.
+ 				
+ 	offset := (0 @ ToolBuilder default windowSpacing negated)
+ 		+ (RealEstateAgent defaultIconExtent
+ 			* (SystemWindow moveMenuButtonRight ifTrue: [1 @ -1] ifFalse: [2 @ -1])).
+ 	offset := (offset * RealEstateAgent scaleFactor) truncated.
+ 		
  	labelButton
  		layoutFrame: (LayoutFrame "i.e. in the left 40% of the title bar"
  						fractions: (0 at 0 corner: 0.4 at 0)
+ 						offsets: (offset corner: 0 at 0));
- 						offsets: (20@ -20 corner: 0 at 0));
  		hResizing: #spaceFill;
  		vResizing: #spaceFill.
+ 	self addMorphFront: labelButton.!
- 	self addMorphFront: labelButton.
- 	self adjustExtraButton!