23 Jan
2012
23 Jan
'12
9:20 p.m.
Hello Hani,
It's strange because the example below works without any problem (i.e., it
is showing horizontal scroll bar). Could you try?
| browser |
browser := GLMTabulator new.
browser column: #one; column: #two.
browser transmit to: #one; andShow: [:a |
a eyesee
title: 'Sample bar chart';
diagram: [:renderer :x |
renderer verticalBarDiagram
y: #yourself;
models: x;
width: 2000;
height: 150;
baseAxisLine.
renderer interaction popupText: #yourself ]].
browser transmit from: #one; to: #two; andShow: [:a |
a text
title: 'Preview'].
browser openOn: (1 to: 100)
Could you provide an example that I can run from the workspace?
regards,
On Sat, Jan 21, 2012 at 2:02 PM, Hani Abdeen <hani.abdeen(a)gmail.com> wrote:
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
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
Andre Hora