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
