Sorry for the text formating, it was wrong, hope it is better now:

sourceIn: composite

������ ^ composite pharoMethod

������ ������ title: 'Source code' translated;

������ ������ smalltalkClass: [ :each | each methodClass];

������ ������ display: [ :aCompiledMethod | aCompiledMethod sourceCode ];

������ ������ act: [ :presentation :compiledMethod |

������ ������ ������ compiledMethod methodClass compile: presentation text.

������ ������ ������ presentation update.] 

������ ������ on: $s 

������ ������ entitled: 'Save' translated

-- 
Dr. Geo
http://drgeo.eu

-- 
Dr. Geo
http://drgeo.eu