'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 2 January 2010 at 11:41:52 pm'!

!PasteUpMorph methodsFor: 'initialization' stamp: 'jmv 1/2/2010 23:15'!
clearWaitDelay
	worldState clearWaitDelay! !


!ProjectX class methodsFor: 'as yet unclassified' stamp: 'jmv 1/2/2010 23:15'!
spawnNewProcessX

	UIProcess _ [
		World clearWaitDelay.
		[World doOneCycle.  Processor yield.  false] whileFalse: [].
	] newProcess priority: Processor userSchedulingPriority.
	UIProcess resume! !


!WorldState methodsFor: 'initialization' stamp: 'jmv 1/2/2010 23:13'!
clearWaitDelay
	waitDelay ifNotNil: [
		waitDelay unschedule.
		waitDelay _ nil ]! !

"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
| p |
	PopUpMenu inform: 'Warning: Some windows may be closed and the UI process will be restarted.
The load of this change set wont show in the Transcript.'.
	FileList2 allInstancesDo: [ :a | a containingWindow ifNotNil: [ :w | w delete ]].
	LazyListMorph allInstancesDo: [ :m | (m ownerThatIsA: SystemWindow) ifNotNil: [ :w | w delete ]].
	p _ ProjectX uiProcessX.
	ProjectX newProcessIfUIX: p.
	p terminate.!

