From cfb10be704cb37d14baad4e52c5066aeec416793 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sun, 12 Dec 2010 01:45:53 +0100
Subject: [PATCH] GSM: Export if something is finished or not yet.

---
 GSMDriver.st | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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.