GSM: Export if something is finished or not yet.

1 files changed, 16 insertions, 0 deletions

diff --git a/GSMDriver.st b/GSMDriver.st
index eb0b919..6ff4bd6 100644
--- a/GSMDriver.st
+++ b/GSMDriver.st
@@ -25,6 +25,10 @@ classes.'>
         sapis := Dictionary new.
     ]
 
+    completeSem [
+        ^ completeSem
+    ]
+
     waitForCompletion [
         <category: 'accessing'>
         ^ completeSem wait
@@ -196,6 +200,10 @@ Object subclass: ProcedureBase [
         driver waitForCompletion.
     ]
 
+    complete [
+        ^ driver completeSem signals > 0
+    ]
+
     success [
         ^ success ifNil: [false]
     ]
@@ -221,6 +229,10 @@ ProcedureBase subclass: LUProcedure [
         self  openConnection: lu sapi: 0 phone: aPhone handler: aHandler.
     ]
 
+    name [
+        ^ 'Location Updating Procedure'
+    ]
+
     execute [
         super execute.
 
@@ -250,6 +262,10 @@ ProcedureBase subclass: CallProcedure [
         self openConnection: cm sapi: 0 phone: aPhone handler: aHandler.
     ]
 
+    name [
+        ^ 'Call Procedure'
+    ]
+
     execute [
         super execute.