GSM: Make sure the caller of serve is always notified. provide isConnected

2010-12-11 12:19:37 +01:00 · 2010-12-11 12:19:37 +01:00 · 421ac8dd46
parent fe9d459ff9
commit 421ac8dd46
1 changed files with 11 additions and 3 deletions
--- a/TestPhone.st
+++ b/TestPhone.st
@ -88,12 +88,20 @@ Object subclass: IPAConfig [

    serve [
        [
-            connection serve.
-            'Connection disconnected' printNl.
-            sem signal.
+            [
+                connection serve.
+                'Connection disconnected' printNl.
+            ] ensure: [
+                connection := nil.
+                sem signal.
+            ]
        ] fork.
    ]

+    isConnected [
+        ^ connection isNil not
+    ]
+
    semaphore [ ^ sem ]

    sendLU: aPhone [