From 27b2de5c7669b30d3ad603e0a608a09428743a5e Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sun, 21 Oct 2012 15:50:20 +0200
Subject: [PATCH] gsmdriver: Send a Classmark Change after the connection is
 confirmed

---
 GSMDriver.st | 10 ++++++++++
 1 file changed, 10 insertions(+)

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).
+    ]
 ]