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:libview2' }" |
12 |
14 |
13 Model subclass:#ValueModel |
15 Model subclass:#ValueModel |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
97 |oldValue| |
99 |oldValue| |
98 |
100 |
99 oldValue := self value. |
101 oldValue := self value. |
100 oldValue ~~ newValue ifTrue:[ |
102 oldValue ~~ newValue ifTrue:[ |
101 self setValue:newValue. |
103 self setValue:newValue. |
102 self changed:#value |
104 self changed:#value with:newValue |
103 ] |
105 ] |
104 |
106 |
105 "Modified: 27.3.1997 / 15:14:04 / cg" |
107 "Modified: 27.3.1997 / 15:14:04 / cg" |
106 ! |
108 ! |
107 |
109 |
171 ! ! |
173 ! ! |
172 |
174 |
173 !ValueModel class methodsFor:'documentation'! |
175 !ValueModel class methodsFor:'documentation'! |
174 |
176 |
175 version |
177 version |
176 ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.28 2000-03-14 17:20:26 stefan Exp $' |
178 ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.29 2000-11-26 13:40:11 cg Exp $' |
177 ! ! |
179 ! ! |