GSMDriver: Report call progress and such..

2010-12-11 08:51:15 +01:00 · 2010-12-11 08:51:15 +01:00 · 39c1d7ec47
parent 145efcb789
commit 39c1d7ec47
1 changed files with 10 additions and 1 deletions
--- a/GSMDriver.st
+++ b/GSMDriver.st
@ -248,7 +248,14 @@ ProcedureBase subclass: CallProcedure [

    execute [
        super execute.
-        'Call Complete' printNl.
+
+        self success
+            ifTrue:  [
+                'Call got accepted on the way' printNl.
+            ]
+            ifFalse: [
+                'Call was never connected' printNl.
+            ].
    ]

    serviceAccepted [
@ -266,6 +273,8 @@ ProcedureBase subclass: CallProcedure [
            | resp |
            resp := GSM48CCConnectAck new.
            conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0).
+
+            self success: true.
        ].

        aMsg class messageType = GSM48CCMessage msgDisconnect ifTrue: [