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!
packages@lists.squeakfoundation.org