#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Mon, 24 Jul 2017 16:17:45 +0200
changeset 4169 a5c8df72bfca
parent 4168 82b9675da2d7
child 4170 78e576bb587c
#BUGFIX by stefan class: Structure changed: #doesNotUnderstand: return flase for methods satrting with 'has'
Structure.st
--- a/Structure.st	Sun Jul 16 14:34:20 2017 +0200
+++ b/Structure.st	Mon Jul 24 16:17:45 2017 +0200
@@ -1465,7 +1465,7 @@
     (sel == #instSize) ifTrue:[
          ^ instSize
     ].
-    (sel startsWith:'is') ifTrue:[
+    ((sel startsWith:'is') or:[sel startsWith:'has']) ifTrue:[
         ^ false.
     ].
     'Structure [warning]: return nil for: ' infoPrint.
@@ -1476,6 +1476,7 @@
 
     "Created: / 13-05-1996 / 20:22:22 / cg"
     "Modified: / 16-07-2017 / 13:54:58 / cg"
+    "Modified: / 24-07-2017 / 15:56:14 / stefan"
 ! !
 
 !Structure class methodsFor:'documentation'!