'From etoys2.2 of 24 September 2007 [latest update: #1675] on 1 October 2007 at 1:51:03 pm'!
"Change Set:		playbackCursorPos-sw
Date:			1 October 2007
Author:			Scott Wallace

Fixes the initial positioning of the playback cursor in event-theatre and event-playback-space."!


!MentoringEventRecorder methodsFor: 'pause/resume' stamp: 'sw 9/28/2007 02:27'!
resumePlayIn: aWorld
	"Playback" 

	| anEvent aPosition |
	recordingSpace abandonReplayHandsAndHalos.
	self flag: #deferred.  "I guess it's the above line that messes up the nesting of these guys..."

	self state: #playback.
	recordingSpace populateControlsPanel.
	aWorld doOneCycle.

	playHand _ HandMorphForReplay new recorder: self.
	[((anEvent := tapeStream next) notNil and: [(anEvent isKindOf: UserInputEvent) not])]
		whileTrue: [].
	aPosition := anEvent
		ifNil:
			[recordingSpace contentArea center]
		ifNotNil:
			[anEvent position].
	tapeStream reset.
	playHand position: aPosition + recordingSpace areaOffset.
	aWorld addHand: playHand.
	playHand newKeyboardFocus: aWorld.
	playHand userInitials: 'play' andPicture: nil.

	lastEvent _ nil.
	lastDelta _ 0@0.
	self findPlayOffset.
	startPlaybackTime := Time millisecondClockValue.
	millisecondsIntoPlayback := 0.

	self synchronize
! !