[squeak-dev] The Trunk: Morphic-mt.1883.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 10 09:24:44 UTC 2022

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-mt.1883
Author: mt
Time: 10 February 2022, 10:24:39.152982 am
UUID: 3d0e7209-baf0-c14f-b28f-600bfb2fef46
Ancestors: Morphic-mt.1882

Minor visual fixes in world-main docking bar around default spaces and "Toggle Fullscreen" button's spacing.

=============== Diff against Morphic-mt.1882 ===============

Item was changed:
  ----- Method: DockingBarMorph>>addDefaultSpace (in category 'construction') -----
  	"Add a new space of the given size to the receiver."
+ 	^ self addSpace: ((Preferences tinyDisplay ifFalse:[10] ifTrue:[3]) * RealEstateAgent scaleFactor) truncated!
- 	^ self addSpace: (Preferences tinyDisplay ifFalse:[10] ifTrue:[3])!

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.
  	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;
+ 		changeTableLayout;
+ 		listCentering: #center;
+ 		layoutInset: (ToolBuilder default inputFieldHeight "searchBar" - toggleMorph width // 2);
  		addMorph: toggleMorph.
  	toggleMorph setToAdhereToEdge: #rightCenter. 
  		on: #mouseUp
  		send: #value
  			[ 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!

More information about the Squeak-dev mailing list