'From Squeak5.3alpha of 6 September 2019 [latest update: #18873] on 6 September 2019 at 1:25:31 pm'!

!Project methodsFor: 'displaying' stamp: 'ct 9/6/2019 13:20'!
previewImageForm

	^ self imageForm! !


!MorphicProject methodsFor: 'display' stamp: 'ct 9/6/2019 13:21'!
previewImageForm

	^ self world imageForm! !


!ProjectViewMorph methodsFor: 'events' stamp: 'ct 9/6/2019 13:22'!
on: aProject

	project := aProject.
	self addProjectNameMorphFiller.
	lastProjectThumbnail := nil.
	project setThumbnail: project previewImageForm.
	project thumbnail
		ifNil: [self extent: 100@80]		"more like screen dimensions?"
		ifNotNil: [self extent: project thumbnail extent].! !

