diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-11 12:21:07 +0100 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-11 12:21:36 +0100 |
commit | 1c8cce66ef7cd750fc48659919daca06eb2e14f0 (patch) | |
tree | 71d294f19a4a00ac8bed44e091c9df2dade62b2b /TestPhone.st | |
parent | 421ac8dd46ca48742bcf2f896232faa5dd5424bf (diff) |
GSM: Provide simple app to do a LU/Call without feedback.
Diffstat (limited to 'TestPhone.st')
-rw-r--r-- | TestPhone.st | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/TestPhone.st b/TestPhone.st index 4057f2c..5e2ef8a 100644 --- a/TestPhone.st +++ b/TestPhone.st @@ -104,16 +104,19 @@ Object subclass: IPAConfig [ semaphore [ ^ sem ] + doLU: aPhone [ + ^ LUProcedure initWith: (connection sccpHandler) phone: aPhone. + ] sendLU: aPhone [ - | proc | - proc := LUProcedure initWith: (connection sccpHandler) phone: aPhone. - proc execute. + (self doLU: aPhone) execute. + ] + + doCallNumber: aPhone [ + ^ CallProcedure initWith: (connection sccpHandler) phone: aPhone. ] callNumber: aPhone [ - | proc | - proc := CallProcedure initWith: (connection sccpHandler) phone: aPhone. - proc execute. + ^ (self doCallNumber: aPhone) execute ] ] |