Hello,

I think it would be good to include this example in GlamourExamples. There are some more in MooseBrowsers implemented by André.

| browser aModel|

browser := GLMDashboard new.

browser title: 'Customizable EyeSee Chart Example'.

browser addPaneNamed: #firstInput; addPaneNamed: #chart1 extent: 300@300.

browser transmit to: #firstInput; andShow: [ :a |

    a dropDownList

title: 'Colors';

      display: [ :model | model first ];

selectedIndex: 1

].

browser transmit 

to: #chart1; 

fromOutsidePort: #entity; from: #firstInput;

andShow: [ :a |

      a eyesee

title: 'Sample bar chart';

diagram: [:renderer :model :color |

                      renderer verticalBarDiagram

y: #yourself;

defaultColor: color;

models: model second;

width: 200;

height: 150;

baseAxisLine.

renderer interaction popupText: #yourself ]].

aModel := Array

with: {Color black. Color red. Color green}

with: #(1 2 3 4 5 6 7 8).

browser openOn: aModel.