The Trunk: MorphicExtras-mt.361.mcz

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

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

Name: MorphicExtras-mt.361
Author: mt
Time: 27 July 2026, 3:51:59.658457 pm
UUID: 5ecd7840-db85-be41-8446-29c99bd51098
Ancestors: MorphicExtras-ct.360

For Squeak 6.1, have a slim project view for Objectland to be placed in the lower right corner. Benefits from Morphic-mt.2222

=============== Diff against MorphicExtras-ct.360 ===============

Item was added:
+ ----- Method: ObjectlandMorph class>>createObjectlandProjectStarter (in category 'instance creation') -----
+ createObjectlandProjectStarter
+ 	"Lean version of the Objectland morph, without window borders."
+ 
+ 	^ Project current world
+ 		submorphThat: [:m | m externalName beginsWith: 'The Worlds of Squeak']
+ 		ifNone: [ | projectMorph objectlandStarterPanel |
+ 			projectMorph := self new
+ 				createObjectlandProject "window"
+ 				paneMorphs first. "project morph"
+ 			projectMorph
+ 				hResizing: #rigid;
+ 				vResizing: #rigid;
+ 				addDropShadow.
+ 			
+ 			objectlandStarterPanel := Morph new
+ 				beSticky;
+ 				name: projectMorph project name;
+ 				color: Color transparent;
+ 				changeTableLayout;
+ 				listDirection: #leftToRight;
+ 				hResizing: #shrinkWrap;
+ 				vResizing: #shrinkWrap;
+ 				cellPositioning: #topLeft;
+ 				cellGap: 5px;
+ 				yourself.
+ 			objectlandStarterPanel
+ 				addMorph: projectMorph;
+ 				addMorph: (SystemWindow closeBoxImage scaleIconToDisplay asMorph
+ 					on: #click send: #value to: [projectMorph expungeProjectSilently. objectlandStarterPanel delete]; 
+ 					yourself).
+ 
+ 			objectlandStarterPanel]!

Item was added:
+ ----- Method: ObjectlandMorph class>>openObjectlandStarter (in category 'instance creation') -----
+ openObjectlandStarter
+ 	"ObjectlandMorph openObjectlandStarter"
+ 
+ 	^ self createObjectlandProjectStarter
+ 		setToAdhereToEdge: #bottomRight;
+ 		morphicLayerNumber: self windowLayer + 50;
+ 		openInWorld!

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