equal
deleted
inserted
replaced
3709 ^ nil |
3709 ^ nil |
3710 ]. |
3710 ]. |
3711 |
3711 |
3712 sel := fullParseTree selector. |
3712 sel := fullParseTree selector. |
3713 arg1Tree := fullParseTree arg1. |
3713 arg1Tree := fullParseTree arg1. |
3714 (arg1Tree notNil and:[arg1Tree isConstant]) ifTrue:[ |
3714 (arg1Tree notNil and:[arg1Tree isLiteral]) ifTrue:[ |
3715 name := arg1Tree value asString. |
3715 name := arg1Tree value asString. |
3716 |
3716 |
3717 "/ is it a private-class ? |
3717 "/ is it a private-class ? |
3718 ('*privateIn:' match:sel) ifTrue:[ |
3718 ('*privateIn:' match:sel) ifTrue:[ |
3719 ownerTree := fullParseTree args last. |
3719 ownerTree := fullParseTree args last. |
3799 and:[recTree name = 'Smalltalk']]]) ifTrue:[ |
3799 and:[recTree name = 'Smalltalk']]]) ifTrue:[ |
3800 arg1Tree := aParseTree arg1. |
3800 arg1Tree := aParseTree arg1. |
3801 (arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[ |
3801 (arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[ |
3802 oldName := arg1Tree name. |
3802 oldName := arg1Tree name. |
3803 arg2Tree := aParseTree arg2. |
3803 arg2Tree := aParseTree arg2. |
3804 (arg2Tree notNil and:[arg2Tree isConstant]) ifTrue:[ |
3804 (arg2Tree notNil and:[arg2Tree isLiteral]) ifTrue:[ |
3805 newName := arg2Tree evaluate. |
3805 newName := arg2Tree evaluate. |
3806 (Smalltalk classNamed:oldName) notNil ifTrue:[^ oldName ]. |
3806 (Smalltalk classNamed:oldName) notNil ifTrue:[^ oldName ]. |
3807 (Smalltalk classNamed:newName) notNil ifTrue:[^ newName ]. |
3807 (Smalltalk classNamed:newName) notNil ifTrue:[^ newName ]. |
3808 ]. |
3808 ]. |
3809 ]. |
3809 ]. |
3850 sel := aParseTree selector. |
3850 sel := aParseTree selector. |
3851 (#( |
3851 (#( |
3852 #'removeSelector:' |
3852 #'removeSelector:' |
3853 ) includes:sel) ifTrue:[ |
3853 ) includes:sel) ifTrue:[ |
3854 sel := aParseTree arguments at:1. |
3854 sel := aParseTree arguments at:1. |
3855 sel isConstant ifTrue:[ |
3855 sel isLiteral ifTrue:[ |
3856 sel := sel evaluate. |
3856 sel := sel evaluate. |
3857 sel isSymbol ifTrue:[ |
3857 sel isSymbol ifTrue:[ |
3858 ^ sel |
3858 ^ sel |
3859 ] |
3859 ] |
3860 ] |
3860 ] |
6577 "/ could be an ST/V, VAge or Dolphin definition |
6577 "/ could be an ST/V, VAge or Dolphin definition |
6578 cls definitionSelector = (sel , 'category:') |
6578 cls definitionSelector = (sel , 'category:') |
6579 ]) |
6579 ]) |
6580 ifTrue:[ |
6580 ifTrue:[ |
6581 ((cls superclass isNil |
6581 ((cls superclass isNil |
6582 and:[p receiver isConstant |
6582 and:[p receiver isLiteral |
6583 and:[p receiver evaluate isNil]]) |
6583 and:[p receiver evaluate isNil]]) |
6584 or:[ |
6584 or:[ |
6585 cls superclass notNil |
6585 cls superclass notNil |
6586 and:[p receiver isConstant not |
6586 and:[p receiver isLiteral not |
6587 and:[cls superclass name = p receiver name]] |
6587 and:[cls superclass name = p receiver name]] |
6588 ]) ifTrue:[ |
6588 ]) ifTrue:[ |
6589 (sel == #'variableByteSubclass:classVariableNames:poolDictionaries:category:') |
6589 (sel == #'variableByteSubclass:classVariableNames:poolDictionaries:category:') |
6590 ifTrue:[ |
6590 ifTrue:[ |
6591 "/ VSE definition message |
6591 "/ VSE definition message |