The Trunk: MorphicExtras-mt.367.mcz

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

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

Name: MorphicExtras-mt.367
Author: mt
Time: 31 July 2026, 4:31:32.43504 pm
UUID: 1a2d2f15-4951-134d-8d4d-8d497443c195
Ancestors: MorphicExtras-mt.366

https://wiki.squeak.org/squeak/1985

=============== Diff against MorphicExtras-mt.366 ===============

Item was changed:
  ----- Method: ObjectlandMorph>>createGraphicsProject (in category 'projects') -----
  createGraphicsProject
  
  	^ self
  		createProjectNamed: 'Fun with Graphics' translated
  		colorRamp: {
  			0 -> (Color r: 1 g: 0.916 b: 0.585).
  			1 -> (Color r: 1 g: 0.804 b: 0.008) }
  		morphSpecs: {
  			(0.08 @ 0.15 exactCenter: 0.08 @ 0.7) -> [
  				SketchMorph extraExampleCook].
  			(0.08 @ 0.15 exactCenter: 0.77 @ 0.1) -> [
  				SketchMorph extraExampleWizard].
  			(0.12 @ 0.15 exactCenter: 0.35 @ 0.2) -> [
  				BannerMorph example addFlexShell].
  			(0.15 @ 0.15 exactCenter: 0.1 @ 0.18) -> [
  				WatchMorph example].
  			0.12 @ 0.41 -> [
  				CalendarMorph new
  					color: Color green muchDarker;
+ 					date: (Date year: 1996 month: 10 day: 1); step;
- 					date: (Date year: 1996 month: 09 day: 24); step;
  					rotationDegrees: -2;
  					owner].
  			0.83 @ 0.58 -> [
  				PolygonMorph extraExampleTextFlow].
  			0.55 @ 0.72 -> [
  				CurveMorph extraExampleTextFlow addFlexShell scale: RealEstateAgent scaleFactor].
  			(0.27 @ 0.2 exactCenter: 0.33 @ 0.77) -> [
  				BouncingAtomsMorph new
  					rotationDegrees: 1;
  					color: Color orange darker;
  					yourself].
  			(0.08 @ 0.15 exactCenter: 0.46 @ 0.12) -> [
  				StarMorph new
  					addHandles;
  					balloonText: 'Drag my yellow handles to resize me, or click on my other handles to reshape me';
  					yourself].
  			(0.1 @ 0.2 exactCenter: 0.51 @ 0.42) -> [
  				FishEyeMorph new
  					flag: #todo "maxExtent: 0.09 @ 0.17";
  					addFlexShell].
  			(0.18 @ 0.24 exactCenter: 0.62 @ 0.17) -> [:world |
  				(NewColorPickerMorph
  					on: world
  					originalColor: world fillStyle colorRamp last value
  					setColorSelector: #gradientFillColor:)
  					rotationDegrees: 11;
  					yourself].
  			0.34 @ 0.4 -> [
  				PolygonMorph extraExampleTrapezePlus].
  			(0.14 @ 0.14 exactCenter: 0.72 @ 0.64) -> [
  				| curve |
  				(curve := CurveMorph extraExampleArrow)
  					addMorph: ('... snazzy bevelled edges!!' asTextMorph
  						center: (curve pointAtFraction: 0.75 @ 0.3);
  						rotationDegrees: 25;
  						owner);
  					addFlexShell].
  			0.125 @ 0.9 -> [
  				self makeGiftFor: ObjectsTool newStandAlone labeled: 'Objects Tool'].
  			0.85 asPoint -> [
  				EventRecorderMorph new].
  			0.95 @ 0.23 -> [
  				BlobMorph new].
  			0.28 @ 0.91 -> [
  				BlobMorph new].
  			0.34 @ 0.08 -> [
  				BlobMorph new]. }
  		initializeWorld: [:world | self class
  			fill: world
  			with: 20
  			factory: [TetrisPieceMorph random]
  			ifOverflow: []]!

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