GSM: Export if something is finished or not yet.
This commit is contained in:
parent
6f8c0a7fff
commit
cfb10be704
16
GSMDriver.st
16
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.
|
||||
|
||||
|
|
Reference in New Issue