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 at 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 at 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 at 0;
  		colorMap: map;
   		combinationRule: Form over;
  		copyBits.
  	^ f!