|
|
Hi,
For blocks, we now have the correct model to destinguish “block creation” from “block execution”:
1) put a link on the block node, it will be called when the block definition (creation) is executed.
e.g. when you put a before link on the block in this method, it will be called when you execute the method:
TT>>method
^[1 + 2].
2) put a link on the *body* of the block (the sequence of statements), it will be called when the block *executes*.
For the example, it would not be called when executing “TT new method”, but only when you do “TT new method value”.
Test:
testBeforeBlockSequenceNoValue
| sequence link |
sequence := (ReflectivityExamples >> #exampleBlockNoValue) ast statements first value body.
self assert: sequence isSequence.
link := MetaLink new
metaObject: self;
selector: #tagExec.
sequence link: link.
self assert: sequence hasMetalinkBefore.
self assert: (ReflectivityExamples >> #exampleBlockNoValue) class = ReflectiveMethod.
self assert: tag isNil.
ReflectivityExamples new exampleBlockNoValue.
self assert: tag isNil.
ReflectivityExamples new exampleBlockNoValue value.
self assert: tag = 'yes'.
self assert: (ReflectivityExamples >> #exampleBlockNoValue) class = CompiledMethod.
link uninstall.
ReflectivityExamples recompile: #exampleBlockNoValue
Marcus
|
Locked
