'From Cuis 2.3 of 22 March 2010 [latest update: #472] on 16 June 2010 at 9:37:10 pm'!

!PluggableTextMorph methodsFor: 'geometry' stamp: 'jmv 6/16/2010 21:36'!
extent: newExtent
	"
	Any reason for this? (jmv)
	super extent: (newExtent max: 36@16).
	"
	bounds extent = newExtent ifTrue: [^ self].
	super extent: newExtent.
	self setScrollDeltas! !

!PluggableTextMorph methodsFor: 'geometry' stamp: 'jmv 6/16/2010 21:35'!
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].
	super resetExtent! !

!PluggableTextMorph methodsFor: 'geometry' stamp: 'ar 6/15/2010 20:48'!
resizeScroller
	"Also needs to resize the text morph"

	super resizeScroller.
	textMorph ifNotNil:
		[textMorph extent: (self innerBounds width-6)@self height].
! !

