'From OLPC2.0 of ''24 October 2006'' [latest update: #1364] on 16 June 2007 at 11:32:58 pm'!

!ViewerLine methodsFor: 'slot' stamp: 'k 6/16/2007 23:29'!
addSetterFeedback
	"Add screen feedback showing what would be torn off to make a setter"

	| aMorph |
	aMorph _ RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@0)).
	aMorph height:(submorphs third height + 1).
	aMorph beTransparent; borderWidth: 2; borderColor: (Color r: 1.0 g: 0.548 b: 0.452); lock.
	ActiveWorld addHighlightMorph: aMorph for: nil! !