| dic myBrowser |
dic := Dictionary new.
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 1 with: 2 with: 3)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 4 with: 5 with: 6)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 7 with: 8 with: 9)).
myBrowser := GLMTabulator new.
myBrowser
row: #methods;
row: #info.
myBrowser transmit to: #methods; andShow: [:a |
a custom: (MooseFinder new first startOn: dic keys asMooseGroup) ].
myBrowser transmit to: #info; from: #methods; andShow: [:a |
a list
title: 'Columns to map';
display: [:method | (self result at: method) ]].
myBrowser openOn: dic.
Any suggestion will be more than welcome. Thanks.