|browser |
browser := GLMTabulator new.
browser column: #one; column: #two.
browser transmit to: #one; andShow: [ :a |
a list
title: 'Table with actions';
icon: [:each | each asInteger odd
ifTrue: [ GLMUIThemeExtraIcons glamorousRedCircle ]
ifFalse: [ | v e shape morph |
v := RTView new.
shape := RTSVGPath new path: 'M50,50.002c48.046,20.595,149.05,16.396,142.596,109.369l-36.781,37.526
C64.183,198.499,65.876,100.672,50,50.002z M236.836,314.404c46.488,35.155,202.98,145.061,202.98,145.061
c12.942,8.801,28.532-7.157,19.496-19.948c0,0-113.425-153.879-149.669-199.452c-28.634-36.068-42.95-37.333-93.729-52.295
l-33.528,34.274C198.463,272.378,200.123,286.61,236.836,314.404z M153.117,371.604l44.978-45.096
c-4.459-4.19-8.398-8.315-11.852-12.423l-45.263,45.381L153.117,371.604z M294.64,179.983l82.462-82.647l36.982,36.999
l-80.619,80.786c7.511,9.02,13.965,17.519,21.392,27.191l107.139-107.34l-84.96-84.969L261.664,165.591
C273.768,169.513,284.464,173.88,294.64,179.983z M377.672,122.197l-68.18,68.348c4.124,3.42,8.315,7.267,12.573,11.692
l67.743-67.903L377.672,122.197z M211.137,337.707l-61.792,61.927L98.214,413.8l14.149-51.147l63.117-63.268
c-6.119-10.008-10.595-20.637-14.752-32.673l-79.412,79.562L50,461.996l116.276-30.745l72.555-72.688
C221.665,346.056,221.145,345.721,211.137,337.707z'.
shape color: Color black.
shape scale: 0.03.
e := shape element.
v add: e.
morph := TRMorph new.
morph canvas: v canvas.
morph extent: e encompassingRectangle extent.
v canvas camera focusOnCenter. morph ] ]].
browser openOn: ($A to: $z)