Status: New
Owner: ----
Labels: Type-Defect Priority-Medium
New issue 768 by sean.p.d...(a)gmail.com: Dynamic Presentation Example in
Pharo 1.3
http://code.google.com/p/moose-technology/issues/detail?id=768
http://www.themoosebook.org/book/internals/glamour/presentations/dynamic
I don't know if it was supposed to, but the example didn't work in Pharo
1.3, so I adjusted it
| browser |
browser := GLMTabulator new.
browser title: 'Multi Methods Viewer'.
browser
column: [:c | c row: #classes; row: #methods];
column: #source.
browser transmit to: #classes; andShow: [ :a |
a list
title: 'Classes';
display: [:model | model allClasses ] ].
browser transmit to: #methods; from: #classes; andShow: [ :a |
a list
title: [ :class | 'Methods from ', class name ];
beMultiple;
display: [ :class | class methods ];
format: [ :class | class selector ] ].
browser transmit to: #source; from: #methods; andShow: [ :a |
a dynamic with: [ :some :methods |
methods do: [ :each |
some text
title: each name asString;
display: [ each getSource] ].
some stackedArrangement ] ].
browser openOn: Smalltalk.