The Trunk: MorphicExtras-mt.362.mcz

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

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

Name: MorphicExtras-mt.362
Author: mt
Time: 30 July 2026, 10:33:57.276186 am
UUID: cd918d3a-761c-b343-8d0f-1ccbbdcf5a9c
Ancestors: MorphicExtras-mt.361

Complement ReleaseBuilder-mt.255

=============== Diff against MorphicExtras-mt.361 ===============

Item was added:
+ ----- Method: Form class>>squeakLogoInverted (in category '*MorphicExtras-sprites') -----
+ squeakLogoInverted
+ 
+ 	^ Imports default imports
+ 		at: #squeakLogoInverted
+ 		ifAbsentPut: [ self squeakLogo collectColors: #negated ]!

Item was changed:
  ----- Method: MovingEyeMorph class>>extraExampleSqueakGhostIsWatchingYou (in category 'examples') -----
  extraExampleSqueakGhostIsWatchingYou
  	"MovingEyeMorph extraExampleSqueakGhostIsWatchingYou openInHand"
  
  	| logoMorph leftEye rightEye |
+ 	logoMorph := Form squeakLogoInverted asMorph.
- 	logoMorph := (Form squeakLogo collectColors: #negated) asMorph.
  	leftEye := (self color: Color white irisColor: Color black)
  		extent: logoMorph extent * (0.1 @ 0.15);
  		center: (logoMorph pointAtFraction: 0.39 @ 0.55);
  		yourself.
  	rightEye := (self color: Color white irisColor: Color black)
  		extent: logoMorph extent * (0.1 @ 0.15);
  		center: (logoMorph pointAtFraction: 0.59 @ 0.56);
  		yourself.
  	logoMorph addAllMorphs: {leftEye. rightEye}.
  	^ logoMorph.!

Item was changed:
  ----- Method: ObjectlandMorph class>>createObjectlandProject (in category 'instance creation') -----
  createObjectlandProject
  
  	| projectWindow |
  	projectWindow := Project current world
+ 		submorphThat: [:m | (m model isKindOf: Project) and: [m model name beginsWith: 'The Worlds of Squeak' translated]]
- 		submorphThat: [:m | (m model isKindOf: Project) and: [m model name beginsWith: 'The Worlds of Squeak']]
  		ifNone: [^ self new createObjectlandProject].
  	^ projectWindow beKeyWindow!

Item was changed:
  ----- 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' translated]
- 		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>>projectNames (in category 'support') -----
+ projectNames
+ 
+ 	^ {'The Worlds of Squeak!!' translated.
+ 		'Fun with Etoys' translated.
+ 		'Fun with Games' translated.
+ 		'Fun with Graphics' translated.
+ 		'Fun with Sounds' translated.
+ 		'Fun with Tools' translated}!

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