equal
deleted
inserted
replaced
3290 (receiver isGlobal and:[receiver name = 'Smalltalk']) ifTrue:[ |
3290 (receiver isGlobal and:[receiver name = 'Smalltalk']) ifTrue:[ |
3291 "/ (Smalltalk respondsTo:#isSmalltalkX) -> true |
3291 "/ (Smalltalk respondsTo:#isSmalltalkX) -> true |
3292 (selector == #respondsTo:) ifTrue:[ |
3292 (selector == #respondsTo:) ifTrue:[ |
3293 argArray size == 1 ifTrue:[ |
3293 argArray size == 1 ifTrue:[ |
3294 argArray first isConstant ifTrue:[ |
3294 argArray first isConstant ifTrue:[ |
3295 (#(isSmalltalkX isVisualSmalltalkEnterprise isVisualWorks isSqueak) |
3295 (#(isSmalltalkX isVisualSmalltalkEnterprise isVisualWorks isSqueak isDolphinSmalltalk) |
3296 includesIdentical: argArray first value) |
3296 includesIdentical: argArray first value) |
3297 ifTrue:[ |
3297 ifTrue:[ |
3298 "/ true here !! |
3298 "/ true here !! |
3299 aBlock value:true. |
3299 aBlock value:true. |
3300 ^ true |
3300 ^ true |
3413 ! ! |
3413 ! ! |
3414 |
3414 |
3415 !MessageNode class methodsFor:'documentation'! |
3415 !MessageNode class methodsFor:'documentation'! |
3416 |
3416 |
3417 version |
3417 version |
3418 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.215 2015-02-20 13:24:15 cg Exp $' |
3418 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.216 2015-02-20 13:24:40 cg Exp $' |
3419 ! |
3419 ! |
3420 |
3420 |
3421 version_CVS |
3421 version_CVS |
3422 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.215 2015-02-20 13:24:15 cg Exp $' |
3422 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.216 2015-02-20 13:24:40 cg Exp $' |
3423 ! |
3423 ! |
3424 |
3424 |
3425 version_SVN |
3425 version_SVN |
3426 ^ '$ Id $' |
3426 ^ '$ Id $' |
3427 ! ! |
3427 ! ! |