'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 15 August 2008 at 8:56:56 am'!

!OldPasteUpMorph methodsFor: 'project state' stamp: 'jmv 8/15/2008 08:56'!
viewBox: newViewBox 
	self isWorldMorph
		ifTrue: [(self viewBox isNil
					or: [self viewBox extent ~= newViewBox extent])
				ifTrue: [worldState canvas: nil].
			worldState viewBox: newViewBox].
	super position: newViewBox topLeft.
	fullBounds _ bounds _ newViewBox.
	self
		disableCode: [self flag: #arNote.
			self isWorldMorph
				ifTrue: [worldState
						handsDo: [:hand | hand releaseKeyboardFocus].
					self fullRepaintNeeded]]! !

