eyesee presentation within a GLMTabulator and horizontal scroll

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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

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 <[hidden email]> 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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
Andre Hora


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev