tim Rowledge uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-tpr.143.mcz
==================== Summary ====================
Name: ST80-tpr.143 Author: tpr Time: 25 March 2013, 2:17:03.697 pm UUID: aec5d9ea-0e27-4409-9900-6b40a117c305 Ancestors: ST80-dtl.142
Remove BitBlt|WarpBlt>current usage - it's a vestige of an old experiment
=============== Diff against ST80-dtl.142 ===============
Item was changed: ----- Method: ControlManager>>restore:below:without: (in category 'displaying') ----- restore: aRectangle below: index without: aView "Restore all windows visible in aRectangle, but without aView" | view | view := (scheduledControllers at: index) view. view == aView ifTrue: [index >= scheduledControllers size ifTrue: [^ self]. ^ self restore: aRectangle below: index+1 without: aView]. + view displayOn: ((BitBlt toForm: Display) clipRect: aRectangle). - view displayOn: ((BitBlt current toForm: Display) clipRect: aRectangle). index >= scheduledControllers size ifTrue: [^ self]. (aRectangle areasOutside: view windowBox) do: [:rect | self restore: rect below: index + 1 without: aView]!
Item was changed: ----- Method: FormEditor>>repeatCopy (in category 'editing tools') ----- repeatCopy "As long as the red button is pressed, copy the source form onto the display screen." | drawingWasChanged | drawingWasChanged := false. [sensor redButtonPressed] whileTrue: + [(BitBlt destForm: Display sourceForm: form halftoneForm: color - [(BitBlt current destForm: Display sourceForm: form halftoneForm: color combinationRule: (Display depth > 1 ifTrue: [mode ~= Form erase ifTrue: [Form paint] ifFalse: [mode]] ifFalse: [mode]) destOrigin: self cursorPoint sourceOrigin: 0@0 extent: form extent clipRect: view insetDisplayBox) colorMap: (Bitmap with: 0 with: 16rFFFFFFFF); copyBits. drawingWasChanged := true. ]. drawingWasChanged ifTrue: [hasUnsavedChanges contents: true.]!
Item was changed: ----- Method: Paragraph>>caretFormForDepth: (in category 'selecting') ----- caretFormForDepth: depth "Return a caret form for the given depth." "(Paragraph new caretFormForDepth: Display depth) displayOn: Display at: 0@0 rule: Form reverse"
| box f bb map | box := CaretForm boundingBox. f := Form extent: box extent depth: depth. map := (Color cachedColormapFrom: CaretForm depth to: depth) copy. map at: 1 put: (Color transparent pixelValueForDepth: depth). map at: 2 put: (Color quickHighLight: depth) first. "pixel value for reversing" + bb := BitBlt toForm: f. - bb := BitBlt current toForm: f. bb sourceForm: CaretForm; sourceRect: box; destOrigin: 0@0; colorMap: map; combinationRule: Form over; copyBits. ^ f!
packages@lists.squeakfoundation.org