GLMSTBrowserExample with SHTextStylerST80

Hi, i've just modified the this method for having the GLMSTBrowser render the source pane pretty printed.

Tudor, if your interested  you could integrate it into  glamour.

Saludos,

Fernando

GLMSTBrowserExample>>sourceOn: browser

browser showOn: #source; from: #category; from: #class; from: #selector; using: [

browser text

title: 'Source';

useExplicitNotNil;

when: [ :category :class :selector | class notNil and: [ selector notNil ] ];

display: [ :category :class :selector | class sourceCodeAt: selector ifAbsent: [ String new ] ].

browser text

title: 'Source';

useExplicitNotNil;

when: [ :category :class :selector | class notNil and: [ selector isNil ] ];

display: [ :category :class :selector | class definition ].

browser mondrian

title: 'Complexity';

useExplicitNotNil;

painting: [ :view :category :class :selector |

view nodeShape 

height: [ :model | model linesOfCode min: 50 max: 5 ];

width: [ :model | model instVarNames size + 5 ];

fillColor: [ :model | model = class ifTrue: [ Color red ] ifFalse: [ Color white ] ].

view nodes: (((Smalltalk organization listAtCategoryNamed: category)

collect: [ :each | Smalltalk classNamed: each ])

reject: [ :each | each isTrait ]).

view edgesFrom: [ :each | each superclass ].

view treeLayout ];

when: [ :category :class :selector | category notNil ] ]