summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Dispatcher.st2
-rw-r--r--Tests.st4
-rw-r--r--changes_for_pharo.st2
3 files changed, 6 insertions, 2 deletions
diff --git a/Dispatcher.st b/Dispatcher.st
index d6121fb..0442512 100644
--- a/Dispatcher.st
+++ b/Dispatcher.st
@@ -23,7 +23,7 @@ Object subclass: Dispatcher [
Dispatcher class >> instance [
<category: 'singleton'>
- ^ Smalltalk at: #OsmoDispatcher ifAbsentPut: [Dispatcher new].
+ ^ Smalltalk at: #OsmoDispatcher ifAbsent: [self install].
]
Dispatcher class >> new [
diff --git a/Tests.st b/Tests.st
index 4e88ec0..b256966 100644
--- a/Tests.st
+++ b/Tests.st
@@ -30,6 +30,10 @@ TestCase subclass: DispatcherTest [
OsmoDispatcher dispatchBlock: [sem signal].
self assert: sem signals = 1.
]
+
+ testSameDispatcher[
+ self assert: Dispatcher instance == Dispatcher instance
+ ]
]
TestCase subclass: TimerSchedulerTest [
diff --git a/changes_for_pharo.st b/changes_for_pharo.st
index c452aad..0df5832 100644
--- a/changes_for_pharo.st
+++ b/changes_for_pharo.st
@@ -49,6 +49,6 @@ TimerScheduler extend [
Dispatcher class extend [
initialize [
- ^ self instance
+ self instance
]
]