[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:
http://source.squeak.org/trunk/Morphic-mt.1883.mcz
==================== 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') -----
addDefaultSpace
"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.
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!
More information about the Squeak-dev
mailing list
|