equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic2' }" |
12 "{ Package: 'stx:libbasic2' }" |
14 |
13 |
15 InterestConverter subclass:#InterestConverterWithParameters |
14 InterestConverter subclass:#InterestConverterWithParameters |
16 instanceVariableNames:'' |
15 instanceVariableNames:'defaultParameters' |
17 classVariableNames:'' |
16 classVariableNames:'' |
18 poolDictionaries:'' |
17 poolDictionaries:'' |
19 category:'Interface-Support-Models' |
18 category:'Interface-Support-Models' |
20 ! |
19 ! |
21 |
20 |
43 [author:] |
42 [author:] |
44 Claus Gittinger |
43 Claus Gittinger |
45 " |
44 " |
46 ! ! |
45 ! ! |
47 |
46 |
|
47 !InterestConverterWithParameters methodsFor:'accessing'! |
|
48 |
|
49 defaultParameters:something |
|
50 defaultParameters := something. |
|
51 ! ! |
|
52 |
48 !InterestConverterWithParameters methodsFor:'change & update'! |
53 !InterestConverterWithParameters methodsFor:'change & update'! |
49 |
54 |
50 update:something with:parameters from:someObject |
55 update:something with:parameters from:someObject |
51 (aspect isNil or:[aspect == something]) ifTrue:[ |
56 (aspect isNil or:[aspect == something]) ifTrue:[ |
52 destination perform:selector withArguments:parameters |
57 destination perform:selector withArguments:(parameters ? defaultParameters) |
53 ] |
58 ] |
54 ! ! |
59 ! ! |
55 |
60 |
56 !InterestConverterWithParameters class methodsFor:'documentation'! |
61 !InterestConverterWithParameters class methodsFor:'documentation'! |
57 |
62 |
58 version |
63 version |
59 ^ '$Header: /cvs/stx/stx/libbasic2/InterestConverterWithParameters.st,v 1.2 2006-03-15 10:24:50 cg Exp $' |
64 ^ '$Header: /cvs/stx/stx/libbasic2/InterestConverterWithParameters.st,v 1.3 2013-02-08 17:25:44 cg Exp $' |
60 ! ! |
65 ! ! |
|
66 |