browser := GLMTabulator new.
browser
column: #one;
column: [ :c |
c
row: #rowOne span: 0.2;
row: #rowTwo ].
browser transmit
to: #one;
andShow: [ :a |
a list
shouldValidate: true;
updateOn: GLMItemRemoved from: #yourself;
updateOn: GLMItemAdded from: #yourself;
updateOn: WSRefresh from: self announcer;
display: [ :anObject | Array withAll: self actions ];
format: [ :anAction | anAction name ];
act: [ :b | actions add: WSAction new ]
icon: GLMUIThemeExtraIcons glamorousAdd
on: $+
entitled: 'Add a new action';
act: [ :actionToBeRemoved :b |
actions remove: actionToBeRemoved selection.
self refreshList ]
icon: GLMUIThemeExtraIcons glamorousRemove
on: $-
entitled: 'Remove the selected action';
act: [ :b | self doAllActions ]
icon: GLMUIThemeExtraIcons glamorousGo
on: $g
entitled: 'Executes all actions' ].
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
On Pharo 3:
On Pharo 4:
The code can be downloaded from the configuration browser. Just look for WorkingSet
Any idea what’s going on?
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.