13 Feb
2013
13 Feb
'13
7:06 p.m.
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.