The Trunk: MorphicExtras-ct.363.mcz

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ct.363.mcz

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

Name: MorphicExtras-ct.363
Author: ct
Time: 31 July 2026, 12:45:50.776264 am
UUID: d9a17847-9fda-49e3-864f-60e7891b428c
Ancestors: MorphicExtras-ct.362

Revises fixed objectland starter from ancestor to look like the current version in trunk, i.e., with a protruding close box. :-)

=============== Diff against MorphicExtras-ct.362 ===============

Item was changed:
  ----- Method: ObjectlandStarterMorph>>addCloseBox (in category 'initialization') -----
  addCloseBox
  
- 	| boxOutline |
  	closeBox ifNotNil: [closeBox delete].
  	closeBox := self createCloseBox.
+ 	closeBox layoutFrame: (LayoutFrame new leftFraction: 0; leftOffset: -5 px - closeBox width; topFraction: 0; topOffset: 0; yourself).
- 	closeBox layoutFrame: self class closeBoxFrame.
  	
- 	closeBox extent: closeBox extent + 3 px "margin".
- 	boxOutline := EllipseMorph new
- 		color: Color black; borderWidth: 0 px;
- 		extent: closeBox firstSubmorph extent + (2 px * 2);
- 		center: closeBox firstSubmorph center;
- 		yourself.
- 	closeBox addMorphBack: boxOutline.
- 	
  	self addMorph: closeBox.!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]