TLV: Introduce isConditional, use the class selectors for comparison

2012-08-20 11:03:19 +02:00 · 2012-08-20 11:03:19 +02:00 · ebdc56fcb1
parent b2491f15be
commit ebdc56fcb1
1 changed files with 7 additions and 2 deletions
--- a/fakebts/TLV.st
+++ b/fakebts/TLV.st
@ -107,12 +107,17 @@ Object subclass: TLVDescription [

    isOptional [
        <category: 'access'>
-        ^ kind = #optional
+        ^ kind = self class optional
    ]

    isMandatory [
        <category: 'access'>
-        ^ self isOptional not
+        ^ kind = self class mandatory
+    ]
+
+    isConditional [
+        <category: 'access'>
+        ^ kind = self class conditional
    ]

    hasLength [