'From Pharo7.0alpha of 25 July 2018 [Build information: Pharo-7.0+alpha.build.1131.sha.a46bfaef44ba209888c92fa0e3bd3a5e04a38c5d (64 Bit)] on 25 July 2018 at 6:40:57.991533 pm'!
Object subclass: #Freeze
	instanceVariableNames: ''
	classVariableNames: 'Process1 Process2'
	poolDictionaries: ''
	category: 'FreezeTest'!
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Freeze class
	instanceVariableNames: ''!

!Freeze class methodsFor: 'system startup' stamp: 'JohanBrichau 7/25/2018 18:29'!
startUp
	Process1 := [ self delayMeLoop ] forkAt: 20 named: 'process1'.
	Process2 := [ self delayMeLoop ] forkAt: 20 named: 'process2'.! !

!Freeze class methodsFor: 'system startup' stamp: 'JohanBrichau 7/25/2018 18:30'!
shutDown: quitting
	Process1 ifNotNil:[ Process1 terminate ].
	Process2 ifNotNil: [Process2 terminate ].
	Process1 := Process2 := nil! !


!Freeze class methodsFor: 'as yet unclassified' stamp: 'JohanBrichau 7/25/2018 18:30'!
delayMeLoop
	(Delay forSeconds: 10) wait.
	self delayMeLoop.! !


!Freeze class methodsFor: 'class initialization' stamp: 'JohanBrichau 7/25/2018 18:40'!
initialize
	SmalltalkImage current addToStartUpList: self.
	self startUp
	! !


Freeze initialize!