theClass := TabsExample. link := MetaLink new metaObject: [ :context :object | context sender receiver == object ifTrue: [ context crLog ] ]; selector: #value:value:; arguments: #(context object); control: #before. theClass methods do: [ :each | each ast link: link. ] "and get rid of it" link uninstall. |