showing an overlay working with morphic backend

ShowingAnOverlayWorkingWithMorphicBEtc.st

app := SpApplication new.
app addStyleSheetFromString: '.application [
		.green [ 
			Draw {
				#backgroundColor: #16A085
			}
		],
		.redOverlay [
			Draw { #backgroundColor: #C0392BBB },
			Geometry { #height: 150, #width: 150 }
		],
		.title [ Font { #size: 40, #bold: true },
			Geometry { #height: Reset, #width: Reset } ]
]'.

presenter := SpPresenter newApplication: app.
	
child := presenter newPresenter
 	layout: (SpBoxLayout new
 		hAlignCenter;
 		vAlignCenter;
		add: ('I AM THE CHILD' asPresenter
  				addStyle: 'title';
				yourself);
			yourself);
  		addStyle: 'green';
		yourself.
		
overlay := presenter newPresenter
	layout: SpBoxLayout newVertical;
	addStyle: 'redOverlay';
	yourself.

presenter layout: (SpOverlayLayout new
	 child: child;
	 addOverlay: overlay withConstraints: [ :c | 
		 c
			 vAlignCenter;
			 hAlignCenter ];
	 yourself).
			
presenter open.