| browser  data |
data := #('a' 'b' 'c').
browser := GLMTabulator  new
         title: 'Minimal test'.
browser column: #left; column: #right.
browser transmit
         to: #left;
         andShow: [:l | l list display: (data do: [:each | each value]) ].
browser transmit
         from: #left;
         to: #right;
         andShow: [:v :value | v text display: value;
				onChangeOfPort: #text act: [ :textPresentation |
					Transcript 
						show: (data indexOf: value);
						show: ' ';
						show: textPresentation text.
             	Transcript cr; cr.
					"data at: (data indexOf: value) put: textPresentation text asString."]
			].  
browser openOn: data