equal
deleted
inserted
replaced
860 onChangeEvaluate:aBlock |
860 onChangeEvaluate:aBlock |
861 "arrange for aBlock to be evaluated whenever the receiver changes." |
861 "arrange for aBlock to be evaluated whenever the receiver changes." |
862 |
862 |
863 |na selector| |
863 |na selector| |
864 |
864 |
865 na := aBlock numArgs. |
865 na := aBlock argumentCount. |
866 na == 0 ifTrue:[ |
866 na == 0 ifTrue:[ |
867 selector := #value |
867 selector := #value |
868 ] ifFalse:[ |
868 ] ifFalse:[ |
869 selector := #( #'value:' #'value:value:' #'value:value:value:') at:na |
869 selector := #( #'value:' #'value:value:' #'value:value:value:') at:na |
870 ]. |
870 ]. |
871 ^ self onChangeSend:selector to:aBlock |
871 ^ self onChangeSend:selector to:aBlock |
872 |
872 |
873 " |
873 " |
874 |p b| |
874 |p b| |
1276 ! ! |
1276 ! ! |
1277 |
1277 |
1278 !stx_libbasic2 class methodsFor:'documentation'! |
1278 !stx_libbasic2 class methodsFor:'documentation'! |
1279 |
1279 |
1280 extensionsVersion_CVS |
1280 extensionsVersion_CVS |
1281 ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.30 2015-04-22 17:51:23 stefan Exp $' |
1281 ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.31 2015-06-05 16:13:05 stefan Exp $' |
1282 ! ! |
1282 ! ! |
1283 |
1283 |