equal
deleted
inserted
replaced
175 "common code to change a channel" |
175 "common code to change a channel" |
176 |
176 |
177 |oldValue| |
177 |oldValue| |
178 |
178 |
179 oldChannel notNil ifTrue:[ |
179 oldChannel notNil ifTrue:[ |
180 oldChannel retractInterestsFor:self. |
180 oldChannel retractInterestsFor:self. |
181 oldValue := oldChannel value. |
181 oldValue := oldChannel value. |
182 ]. |
182 ]. |
183 newChannel onChangeSend:changeSelector to:self. |
183 newChannel notNil ifTrue:[ |
|
184 newChannel onChangeSend:changeSelector to:self. |
|
185 ]. |
184 self perform:changeSelector. |
186 self perform:changeSelector. |
185 ^ newChannel |
187 ^ newChannel |
|
188 |
|
189 "Modified: 28.3.1997 / 20:42:01 / cg" |
186 ! ! |
190 ! ! |
187 |
191 |
188 !View methodsFor:'accessing-menus'! |
192 !View methodsFor:'accessing-menus'! |
189 |
193 |
190 menuHolder |
194 menuHolder |
558 ! ! |
562 ! ! |
559 |
563 |
560 !View class methodsFor:'documentation'! |
564 !View class methodsFor:'documentation'! |
561 |
565 |
562 version |
566 version |
563 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.57 1997-02-28 18:54:00 cg Exp $' |
567 ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.58 1997-03-28 19:57:22 cg Exp $' |
564 ! ! |
568 ! ! |