31 lines
726 B
Smalltalk
31 lines
726 B
Smalltalk
TimerScheduler extend [
|
|
TimerScheduler class >> initialize [
|
|
<category: 'loading'>
|
|
^ self instance
|
|
]
|
|
|
|
TimerScheduler class >> startUp [
|
|
Smalltalk at: #OsmoTimeScheduler ifPresent: [
|
|
OsmoTimeScheduler reinitialize.
|
|
].
|
|
]
|
|
|
|
platformInit [
|
|
<category: 'creation'>
|
|
"Pharo requires us to do some post-processing"
|
|
Smalltalk addToStartUpList: self class.
|
|
]
|
|
|
|
reinitialize [
|
|
<category: 'creation'>
|
|
"(Delay forSeconds: 1) wait can get stuck in Pharo for-ever.. Change the approach"
|
|
lastDelay ifNotNil: [lastDelay signalWaitingProcess]
|
|
]
|
|
]
|
|
|
|
Dispatcher class extend [
|
|
initialize [
|
|
^ self instance
|
|
]
|
|
]
|