diff options
-rw-r--r-- | GSMDriver.st | 10 |
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). + ] ] |