'From VisualWorks® NonCommercial, Release 5i.4 of August 9, 2001 on June 12, 2002 at 2:02:56 pm'!


!CormasNS.Kernel.Cormas methodsFor: 'simulation'!

run
	self currentSimulation isNil ifTrue: [^nil].
	self currentSimulation activeControl isNil ifTrue: [^self alert_NoDynamic].
	self stepCounter value = self cycle value ifTrue: [^nil].
	(self currentSimulation activeControl asString tokensBasedOn: $:) size = 3 ifTrue: [^self runNSimulations_old].
	process isNil ifFalse: [process suspendedContext isNil ifFalse: [process suspendingList isNil
				ifFalse: 
					[self runButtonLabel: 'Run'.
					^process suspend]
				ifTrue: 
					[self runButtonLabel: 'Pause'.
					^process resume]]].
	process := [self simulationsManager runNSimulations]
				forkAt: Processor userBackgroundPriority.
	self runButtonLabel: 'Pause'.
	self stepCounter value = self cycle value ifTrue: 
		[process terminate. process := nil]! !