equal
deleted
inserted
replaced
797 to accept their value." |
797 to accept their value." |
798 |
798 |
799 |holder| |
799 |holder| |
800 |
800 |
801 (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[ |
801 (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[ |
802 builder aspectAt:#acceptChannel put:(holder := false asValue). |
802 builder aspectAt:#acceptChannel put:(holder := ValueHolder with:false). |
803 ]. |
803 ]. |
804 ^ holder |
804 ^ holder |
805 |
805 |
806 "Modified: / 21.5.1998 / 03:39:49 / cg" |
806 "Modified: / 21.5.1998 / 03:39:49 / cg" |
807 ! |
807 ! |
812 the valueOfEnablingCommitButtons channel" |
812 the valueOfEnablingCommitButtons channel" |
813 |
813 |
814 |holder| |
814 |holder| |
815 |
815 |
816 (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[ |
816 (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[ |
817 builder aspectAt:#modifiedChannel put:(holder := false asValue). |
817 builder aspectAt:#modifiedChannel put:(holder := ValueHolder with:false). |
818 holder |
818 holder |
819 onChangeSend:#value |
819 onChangeSend:#value |
820 to:[ |
820 to:[ |
821 holder value ifTrue:[ |
821 holder value ifTrue:[ |
822 self valueOfEnablingCommitButtons value:true. |
822 self valueOfEnablingCommitButtons value:true. |
1177 ! ! |
1177 ! ! |
1178 |
1178 |
1179 !ToolApplicationModel class methodsFor:'documentation'! |
1179 !ToolApplicationModel class methodsFor:'documentation'! |
1180 |
1180 |
1181 version |
1181 version |
1182 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.86 1999-03-25 16:55:54 cg Exp $' |
1182 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.87 1999-04-12 11:19:11 cg Exp $' |
1183 ! ! |
1183 ! ! |