The Trunk: System-mt.1124.mcz

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

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

Name: System-mt.1124
Author: mt
Time: 20 November 2019, 2:44:27.477662 pm
UUID: 9b067d06-cee0-1d46-b3f8-cf5267da8c9c
Ancestors: System-mt.1123

Fixes a recent regression *and* code duplication. New MVC/Morphic projects can be created and opened again.

=============== Diff against System-mt.1123 ===============

Item was changed:
  ----- Method: Project>>makeThumbnail (in category 'menu messages') -----
  makeThumbnail
  "Make a thumbnail image of this project from the Display."
+
+ thumbnail := self previewImageForm.
- viewSize ifNil: [viewSize := Display extent // 8].
- thumbnail := Form extent: viewSize depth: Display depth.
- (WarpBlt toForm: thumbnail)
- sourceForm: Display;
- cellSize: 2;  "installs a colormap"
- combinationRule: Form over;
- copyQuad: (Display boundingBox) innerCorners
- toRect: (0@0 extent: viewSize).
  (Smalltalk at: #InternalThreadNavigationMorph) ifNotNil: [:tnMorph |
+ tnMorph cacheThumbnailFor: self].
- tnMorph  cacheThumbnailFor: self].
  ^thumbnail
  !

Item was changed:
  ----- Method: Project>>viewSize (in category 'accessing') -----
  viewSize
+ ^ viewSize ifNil: [viewSize := Display extent // 8]!
- ^ viewSize!