'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 30 August 2010 at 10:44:33 am'!

!PluggableTextMorph methodsFor: 'geometry' stamp: 'jmv 8/30/2010 10:40'!
extent: newExtent 
	super extent: newExtent.
	textMorph ifNotNil: [ textMorph extent: self viewableWidth @ self height ].
	self setScrollDeltas! !

!PluggableTextMorph methodsFor: 'geometry' stamp: 'jmv 3/2/2010 17:12'!
resetExtent
	"Reset the extent while maintaining the current selection.  Needed when resizing while the editor is active (when inside the pane)."
	| tempSelection |
	textMorph ifNotNil: [
		"the current selection gets munged by resetting the extent, so store it"
		tempSelection _ self selectionInterval.
		
		"don't reset it if it's not active"
		tempSelection = (Interval from: 1 to: 0) 
						ifTrue: [retractableScrollBar
							ifTrue:[ ^ self]].
		self extent: self extent.
		self setSelection: tempSelection]! !

PluggableTextMorph removeSelector: #resizeScroller!
