From f8fc45deb056b35ed735f590ac8cab1956fb8f0f Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <holger@moiji-mobile.com>
Date: Sat, 22 Feb 2014 14:45:02 +0100
Subject: misc: Make sure all classes can be viewed/filed-out with VisualGST

---
 GSM48.st | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

(limited to 'GSM48.st')

diff --git a/GSM48.st b/GSM48.st
index 525de08..feafb45 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -95,11 +95,6 @@ GSM48IE subclass: GSM48FixedSizeIE [
             gsmValueLength := aLength
         ]
 
-        gsmValueLength [
-            <category: 'gsm-pragma'>
-            ^gsmValueLength
-        ]
-
         classPragmas [
             <category: 'gsm-pragma'>
             ^super classPragmas, #(#gsmValueLength)
@@ -118,7 +113,10 @@ GSM48IE subclass: GSM48FixedSizeIE [
 
         gsmValueLength [
             <category: 'parsing'>
-            ^ gsmValueLength ifNil: [self superclass gsmValueLength]
+            ^ gsmValueLength ifNil: [
+                self = GSM48FixedSizeIE
+                    ifTrue: [nil]
+                    ifFalse: [self superclass gsmValueLength]]
         ]
 
         asTLVDescription [
@@ -155,12 +153,16 @@ GSM48IE subclass: GSM48VariableSizedIE [
 
         gsmValueSizeMin [
             <category: 'gsm-pragma'>
-            ^gsmValueRange first
+            ^(self = GSM48VariableSizedIE or: [self = GSM48DataHolder])
+                ifTrue: [nil]
+                ifFalse: [gsmValueRange first]
         ]
 
         gsmValueSizeMax [
             <category: 'gsm-pragma'>
-            ^gsmValueRange last
+            ^(self = GSM48VariableSizedIE or: [self = GSM48DataHolder])
+                ifTrue: [nil]
+                ifFalse: [gsmValueRange last]
         ]
 
         gsmValueSizeMin: aMin [
@@ -834,6 +836,7 @@ GSM48VariableSizedIE subclass: GSM48MIdentity [
 
     <gsmElementId: 23>
     <gsmName: 'mi'>
+    <gsmMinValueSize: 1 max: 8>
 
     GSM48MIdentity class >> createDefault [
         <category: 'creation'>
@@ -1988,6 +1991,7 @@ GSM48NetworkName subclass: GSM48ShortName [
     <comment: '10.5.3.5a'>
     <gsmElementId: 16r45>
     <gsmName: 'shortNetworkName'>
+    <gsmMinValueSize: 1 max: 128>
 ]
 
 GSM48SimpleData subclass: GSM48TimeZone [
-- 
cgit v1.2.3