Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- | 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement