GSM: Move the IMSI/AuKey into a PhoneConfig class.

1 files changed, 24 insertions, 2 deletions

diff --git a/TestPhone.st b/TestPhone.st
index 15780f5..37cd8f1 100644
--- a/TestPhone.st
+++ b/TestPhone.st
@@ -96,10 +96,32 @@ Object subclass: IPAConfig [
 
     semaphore [ ^ sem ]
 
-    sendLU [
+    sendLU: aPhone [
         | proc |
-        proc := LUProcedure initWith: (connection sccpHandler).
+        proc := LUProcedure initWith: (connection sccpHandler) phone: aPhone.
         proc execute.
     ]
 ]
 
+Object subclass: PhoneConfig [
+    | imsi auKey |
+
+    <comment: 'I am the config of a phone. I do have an IMSI and such.'>
+
+    PhoneConfig class >> initWith: aImsi auKey: anAuKey [
+        ^ self new
+            imsi: aImsi;
+            auKey: anAuKey;
+            yourself
+    ]
+
+    imsi: aImsi [
+        imsi := aImsi.
+    ]
+
+    imsi [ ^ imsi ]
+    auKey [ ^ auKey ]
+    auKey: anAuKey [
+        auKey := anAuKey.
+    ]
+]