New subject: Issue 768 in moose-technology: Dynamic Presentation Example in Pharo 1.3

29 Dec 2011


      Status: New
Owner: ----
Labels: Type-Defect Priority-Medium
New issue 768 by sean.p.d...@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.