equal
deleted
inserted
replaced
614 !UISpecificationTool methodsFor:'accessing channels'! |
614 !UISpecificationTool methodsFor:'accessing channels'! |
615 |
615 |
616 modifiedHolder:aValueHolder |
616 modifiedHolder:aValueHolder |
617 "set the value holder set to true in case of modifying attributes |
617 "set the value holder set to true in case of modifying attributes |
618 " |
618 " |
|
619 |
619 modifiedHolder notNil ifTrue:[ |
620 modifiedHolder notNil ifTrue:[ |
620 modifiedHolder removeDependent:self. |
621 modifiedHolder removeDependent:self. |
621 ]. |
622 ]. |
622 |
623 |
623 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
624 (modifiedHolder := aValueHolder) notNil ifTrue:[ |
716 " |
717 " |
717 someone ~~ modifiedHolder ifTrue:[ |
718 someone ~~ modifiedHolder ifTrue:[ |
718 "/ any in the spec has changed. |
719 "/ any in the spec has changed. |
719 "/ update my modified holders value |
720 "/ update my modified holders value |
720 |
721 |
721 modifiedHolder value ~~ true ifTrue:[ |
722 modifiedHolder value:true |
722 modifiedHolder value:true |
|
723 ] |
|
724 ] |
723 ] |
725 |
724 |
726 "Modified: / 16.7.1998 / 19:25:59 / cg" |
725 "Modified: / 16.7.1998 / 19:25:59 / cg" |
727 ! ! |
726 ! ! |
728 |
727 |