tim Rowledge uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tpr.520.mcz==================== Summary ====================
Name: System-tpr.520
Author: tpr
Time: 25 March 2013, 2:19:09.759 pm
UUID: 54ea34c3-dcaa-4fc2-a560-98bcfb5cc5f7
Ancestors: System-fbs.519
Remove BitBlt|WarpBlt>current usage - it's a vestige of an old experiment
=============== Diff against System-fbs.519 ===============
Item was changed:
----- Method: Project>>makeThumbnail (in category 'menu messages') -----
makeThumbnail
"Make a thumbnail image of this project from the Display."
viewSize ifNil: [viewSize := Display extent // 8].
thumbnail := Form extent: viewSize depth: Display depth.
+ (WarpBlt toForm: thumbnail)
- (WarpBlt current 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].
^thumbnail
!