#BUGFIX by stefan
class: Structure
changed: #doesNotUnderstand:
return flase for methods satrting with 'has'
--- 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'!