YourClass methods do: [ :method |
method ast�
forAllNodes: [ :node | node isVariable and: [ node isInstance ] ]
putAfter: [�RFMetalink expression: 'Transcript crShow: ''iv accessed''' ];
installWrapper ].

I tried this code but it fails in the latest version of Reflectivity :)

First "RFMetalink class(Object)>>doesNotUnderstand: #expression:"

then "A variable node on left side of assignment doesn''t accept metalinks"

�

Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel �http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.