Shared Smalltalk Workspace http://ws.stfx.eu/
| browser dict |
dict := Dictionary new.
dict at: 1 put: 'uno'.
dict at: 2 put: 'dos'.
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;
andShow: [:v | v text display: [ :key | dict at: key ] ].
browser transmit
from: #values port: #entity;
from: #values port: #text;
when: [ :key :text | text notNil ];
to: #values port: #nirvana;
transformed: [ :key :text | dict at: key put: text ].
browser openOn: dict
THIS SOFTWARE SERVICE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHOR OR SERVICE PROVIDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE SERVICE OR THE USE OR OTHER DEALINGS
IN THE SOFTWARE SERVICE.