The Trunk: System-tpr.520.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-tpr.520.mcz

commits-2
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
  !