aboutsummaryrefslogtreecommitdiffstats
path: root/GSMDriver.st
diff options
context:
space:
mode:
Diffstat (limited to 'GSMDriver.st')
-rw-r--r--GSMDriver.st10
1 files changed, 10 insertions, 0 deletions
diff --git a/GSMDriver.st b/GSMDriver.st
index 53e7de2..72bc091 100644
--- a/GSMDriver.st
+++ b/GSMDriver.st
@@ -192,6 +192,10 @@ classes.'>
each serviceAccepted.
].
]
+
+ onConnectionConfirmed [
+ mainProc connectionConfirmed.
+ ]
]
Object subclass: ProcedureBase [
@@ -240,6 +244,12 @@ Object subclass: ProcedureBase [
"I should return the initial message of the transaction"
self subclassResponsibility
]
+
+ connectionConfirmed [
+ | cm |
+ cm := GSM48RRClassmarkChange new.
+ conn nextPutData: (BSSAPDTAP initWith: cm linkIdentifier: 0).
+ ]
]