equal
deleted
inserted
replaced
1599 nameOfNonMetaClass := aClass theNonMetaclass name. |
1599 nameOfNonMetaClass := aClass theNonMetaclass name. |
1600 (self changedClasses contains:[:someClass | someClass theNonMetaclass name = nameOfNonMetaClass]) ifFalse:[^ false]. |
1600 (self changedClasses contains:[:someClass | someClass theNonMetaclass name = nameOfNonMetaClass]) ifFalse:[^ false]. |
1601 |
1601 |
1602 nameOfClass := aClass name. |
1602 nameOfClass := aClass name. |
1603 |
1603 |
1604 ^ self contains:[:aChange | (selector = aChange selector) and:[nameOfClass = aChange className]] |
1604 ^ self contains:[:aChange | aChange notNil and:[(selector = aChange selector) and:[nameOfClass = aChange className]]] |
1605 |
1605 |
1606 " |
1606 " |
1607 ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass: |
1607 ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass: |
1608 " |
1608 " |
1609 |
1609 |
1610 "Created: / 31.10.2001 / 10:26:31 / cg" |
1610 "Created: / 31-10-2001 / 10:26:31 / cg" |
1611 "Modified: / 31.10.2001 / 10:59:49 / cg" |
1611 "Modified: / 30-11-2017 / 18:00:38 / cg" |
1612 ! |
1612 ! |
1613 |
1613 |
1614 includesChangeForClassNamed:aClassName |
1614 includesChangeForClassNamed:aClassName |
1615 (self changedClasses contains:[:aClass | aClass theNonMetaclass name = aClassName]) ifFalse:[^ false]. |
1615 (self changedClasses contains:[:aClass | aClass theNonMetaclass name = aClassName]) ifFalse:[^ false]. |
1616 ^ self contains:[:aChange | aChange className = aClassName] |
1616 ^ self contains:[:aChange | aChange className = aClassName] |