data := Dictionary new.
data at: 1 put: (GTPlayPage new content:'Smalltalk').
data at: 2 put: (GTPlayPage new content:'4+1').

innerBrowser := GTPlayground new.

browser := GLMTabulator  new
   title: 'Minimal test'.
browser column: #keys; column: #values.
browser transmit
   to: #keys;
   andShow: [:k | k list display: #keys ].
browser transmit
   from: #keys;
   to: #values;
	transformed: [ :key |  (data at: key)];
   andShow: [:code | (code custom: innerBrowser)].
browser openOn: data