equal
deleted
inserted
replaced
1982 provides line-numbers; otherwise, nil is passed." |
1982 provides line-numbers; otherwise, nil is passed." |
1983 |
1983 |
1984 |dispatchSelector| |
1984 |dispatchSelector| |
1985 |
1985 |
1986 dispatchSelector := ('process_',(selector copyReplaceAll:$: with:$_)) asSymbol. |
1986 dispatchSelector := ('process_',(selector copyReplaceAll:$: with:$_)) asSymbol. |
1987 Transcript showCR:dispatchSelector. |
1987 "/ Transcript showCR:dispatchSelector. |
1988 (self class implements:dispatchSelector) ifTrue:[ |
1988 (self class implements:dispatchSelector) ifTrue:[ |
1989 ^ self perform:dispatchSelector. |
1989 ^ self perform:dispatchSelector. |
1990 ]. |
1990 ]. |
1991 |
1991 |
1992 "/ any subclass definiton selector ? |
1992 "/ any subclass definiton selector ? |
2481 ! ! |
2481 ! ! |
2482 |
2482 |
2483 !ChangeSet class methodsFor:'documentation'! |
2483 !ChangeSet class methodsFor:'documentation'! |
2484 |
2484 |
2485 version |
2485 version |
2486 ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.158 2009-09-17 13:14:17 cg Exp $' |
2486 ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.159 2009-09-19 11:27:26 cg Exp $' |
2487 ! ! |
2487 ! ! |