equal
deleted
inserted
replaced
259 ^self subclassResponsibility |
259 ^self subclassResponsibility |
260 ! ! |
260 ! ! |
261 |
261 |
262 !ResourceSpecEditor methodsFor:'change & update'! |
262 !ResourceSpecEditor methodsFor:'change & update'! |
263 |
263 |
264 update:something with:aParameter from:someObject |
264 update:something with:aParameter from:changedObject |
265 "one of my aspects has changed; update modified channel for the commit buttons" |
265 "one of my aspects has changed; update modified channel for the commit buttons" |
266 |
266 |
267 self valueOfEnablingCommitButtons value: true |
267 |enableCommitButtonsHolder| |
|
268 |
|
269 enableCommitButtonsHolder := self valueOfEnablingCommitButtons. |
|
270 |
|
271 changedObject ~~ enableCommitButtonsHolder ifTrue:[ |
|
272 enableCommitButtonsHolder value: true |
|
273 ] |
268 |
274 |
269 ! |
275 ! |
270 |
276 |
271 updateAllToolInstances |
277 updateAllToolInstances |
272 "updates the channels of all other instances of my class" |
278 "updates the channels of all other instances of my class" |
347 ^ false |
353 ^ false |
348 ]. |
354 ]. |
349 |
355 |
350 answer ifTrue:[ |
356 answer ifTrue:[ |
351 self accept |
357 self accept |
352 ] ifFalse: [ |
358 ] ifFalse:[ |
353 anythingChangedHolder value: false. |
359 anythingChangedHolder value: false. |
354 self clearModifiedFlag. |
360 self clearModifiedFlag. |
355 modified := false. |
361 modified := false. |
356 ] |
362 ]. |
357 ]. |
363 ]. |
358 ^true |
364 ^true |
359 |
365 |
360 "Modified: / 30.10.2001 / 18:38:34 / cg" |
366 "Modified: / 30.10.2001 / 18:38:34 / cg" |
361 ! |
367 ! |
684 ! ! |
690 ! ! |
685 |
691 |
686 !ResourceSpecEditor class methodsFor:'documentation'! |
692 !ResourceSpecEditor class methodsFor:'documentation'! |
687 |
693 |
688 version |
694 version |
689 ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.26 2003-12-04 11:51:04 stefan Exp $' |
695 ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.27 2003-12-04 14:55:55 cg Exp $' |
690 ! ! |
696 ! ! |