| rule result |
������ rule := CodeSearchingRule new
������ ������ matcher:
������ ������ ������ ������ (RBParseTreeSearcher new
������ ������ ������ ������ ������ ������ matches: 'super' do: [ :node :answer | node ];
������ ������ ������ ������ ������ ������ yourself);
������ ������ yourself.
������ result := RBSmalllintChecker runRule: rule onEnvironment: RBBrowserEnvironment default.
������ MessageBrowser browse: result result methods title:'super' autoSelect:'super'