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