Customizable Eyesee chart example - Moose-dev

13 Feb 2013

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.