21 Jan
2012
21 Jan
'12
2:02 p.m.
Hi,
I try to show an eyesee presentation (diagram) within a column of a
gLMTabulator browser. Everything is ok except that if the diagram width is
large (larger than the column) the presentation/column does not show an
horizontal scroll bar! I did not find any mean to make the presentation
showing scroll bars. What is strange (and good) is that I had not this
problem with mondrian presentations.
Any idea to make eyesee presentation showing horizontal scroll bar?
This is the code of the browser (note that I use it to build a
rEPComputedConcern browser):
eyeseeBrowser
| browser |
browser := GLMTabulator new.
browser title: 'Customizable EyeSee Chart'.
browser column: #chart1 span: 1; column: [:c | c row: #xGranularity; row:
#chartType; row: #yAxisLeft span: 3; row: #yAxisRight span: 3 ].
"mod := Array with: xGranularityValues with: chartTypeSelectors with:
yAxisSelectors with: self."
browser transmit to: #xGranularity; andShow: [ :a |
a dropDownList
title: 'x axis granularity';
display: [ :mod | mod first ];
selectedIndex: 1].
browser transmit to: #chartType; andShow: [ :a |
a dropDownList
title: 'chart type';
display: [ :mod | mod second ];
selectedIndex: 1].
browser transmit to: #yAxisLeft; andShow: [ :a |
a list
title: 'y left axis metric';
display: [ :mod | mod third ] ].
browser transmit to: #yAxisRight; andShow: [ :a |
a list
title: 'y right axis metric';
display: [ :mod | #(#none), mod third ] ].
browser transmit
to: #chart1;
from: #xGranularity; from: #chartType; from: #yAxisLeft; from: #yAxisRight;
andShow: [ :a |
a eyesee
diagram: [ :renderer :xGranularity :chartTypeSelector :yAxisLeftSelector
:yAxisRightSelector |
self result fourth
viewEyeSeeChartYAxis: { yAxisLeftSelector. yAxisRightSelector }
xGranularity: xGranularity
chartType: chartTypeSelector
withLabels: false
on: renderer ] ].
browser transmit to: #xGranularity->#selection; fromOutside:
#xGranularityToSelect.
browser transmit to: #chartType->#selection; fromOutside:
#chartTypeToSelect.
browser transmit to: #yAxisLeft->#selection; fromOutside:
#yAxisLeftToSelect.
browser transmit to: #yAxisRight->#selection; fromOutside:
#yAxisRightToSelect.
^ browser