smalltalk
/
osmo-st-testphone
Archived
1
0
Fork 0
Code Releases Activity

GSM: Move the success to the ProcedureBase

This commit is contained in:
Holger Hans Peter Freyther 2010-12-11 08:27:14 +01:00
parent fcc2e50854
commit 1250903788
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
GSMDriver.st
View File

@ -152,7 +152,7 @@ classes.'>
]
Object subclass: ProcedureBase [
| driver conn |
| driver conn success |
ProcedureBase class >> initWith: aHandler phone: aPhone [
^ self new
@ -177,16 +177,18 @@ Object subclass: ProcedureBase [
driver run.
driver waitForCompletion.
]
]
ProcedureBase subclass: LUProcedure [
| success |
success [
^ success ifNil: [false]
]
success: aSuc [
success := aSuc.
]
]
ProcedureBase subclass: LUProcedure [
createConnection: aHandler phone: aPhone [
| lu |
@ -211,7 +213,7 @@ ProcedureBase subclass: LUProcedure [
handleData: aMsg sapi: aSapi [
aMsg class messageType = GSM48MMMessage msgLUAcc ifTrue: [
success := true.
self success: true.
].
]
]