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

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

Name: Morphic-mt.1624
Author: mt
Time: 17 February 2020, 4:18:38.814347 pm
UUID: 9aec0d72-c81c-6041-9bd4-8c1826a49d65
Ancestors: Morphic-mt.1623

Fixes three (hi-dpi / demo mode) scaling issues:
(1) selected icon in docking bars
(2) box replacement in windows (thanks to Christoph (ct)!)
(3) full-screen icon in world main docking bar.

=============== Diff against Morphic-mt.1623 ===============

Item was changed:
  ----- Method: DockingBarItemMorph>>selectedIcon: (in category 'accessing') -----
+ selectedIcon: aFormOrNil
- selectedIcon: aForm
  
+ 	selectedIcon := aFormOrNil
+ 		ifNotNil: [:form | form scaleIconToDisplay].!
- 	selectedIcon := aForm!

Item was changed:
  ----- Method: SystemWindow>>applyUserInterfaceTheme (in category 'user interface') -----
  applyUserInterfaceTheme
  
  	super applyUserInterfaceTheme.
  	
  	self
  		setDefaultParameters;
+ 		replaceBoxes;
  		refreshWindowColor.
  
  	self isLookingFocused
  		ifTrue: [self lookUnfocused; lookFocused]
  		ifFalse: [self lookFocused; lookUnfocused].
  		
  	self isCollapsed ifTrue: [self setProperty: #applyTheme toValue: true].!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') -----
  toggleFullScreenOn: aDockingBar 
  	
  	| toggleMorph onIcon offIcon box bgColor |
+ 	offIcon := (MenuIcons fullscreenWireframeIcon dyed:
+ 					(self userInterfaceTheme logoColor ifNil: [Color black])) scaleIconToDisplay.
+ 	onIcon := (MenuIcons fullscreenWireframeIcon dyed:
+ 					(self userInterfaceTheme selectionLogoColor ifNil: [Color white])) scaleIconToDisplay.
- 	offIcon := MenuIcons fullscreenWireframeIcon dyed:
- 					(self userInterfaceTheme logoColor ifNil: [Color black]).
- 	onIcon := MenuIcons fullscreenWireframeIcon dyed:
- 					(self userInterfaceTheme selectionLogoColor ifNil: [Color white]).
  	bgColor := (UserInterfaceTheme current get: #selectionColor for: #DockingBarItemMorph) ifNil: [Color blue].
  	
  	toggleMorph := offIcon asMorph.
  	
  	box := Morph new
  		color: Color transparent;
  		hResizing: #shrinkWrap;
  		vResizing: #spaceFill;
  		listCentering: #center;
  		width: toggleMorph width;
  		changeTableLayout;
  		
  		borderWidth: 1;
  		borderColor: Color transparent;
  		balloonText: 'toggle full screen mode' translated;
  		addMorph: toggleMorph.
  		
  	toggleMorph setToAdhereToEdge: #rightCenter. 
  		
  	box
  		on: #mouseUp
  		send: #value
  		to:
  			[ DisplayScreen toggleFullScreen. 
  			"toggleMorph image: MenuIcons smallFullscreenOffIcon" ] ;
  
  		on: #mouseEnter
  		send: #value
  		to: [
  			toggleMorph image: onIcon.
  			box color: bgColor; borderColor: bgColor];
  		
  		on: #mouseLeave
  		send: #value
  		to: [
  			toggleMorph image: offIcon.
  			box color: Color transparent; borderColor: Color transparent].
  				
  	aDockingBar addMorphBack: box!