Hi,
Please do not use get :). I would simply use form.
Cheers,
Doru
On 27 May 2011, at 01:07, Alexandre Bergel wrote:
Hi!
Is it okay to commit the following method?
-=-=-=-=-=-=-=-=-=
ESDiagramrenderer>>getRenderedForm
"Simulate the graphical morph rendering"
| form Name is already defined aCanvas c |
diagram gcWrapper: ESDiagramGraphicsContextWrapper new.
diagram setup.
aCanvas := ESCanvas onDiagram: diagram.
aCanvas updateBounds.
form := Form extent: aCanvas bounds extent depth: Display depth.
c := FormCanvas on: form.
aCanvas drawOn: c..
^ form
-=-=-=-=-=-=-=-=-=
Such a form can freely appear in Mondrian, as a popupView.
I am not sure whether this has been done already.
You can try:
-=-=-=-=-=-=-=-=-=
| diag factory |
factory := ESDummyFactory new.
factory yValues: #(25 50 19 24 35 23 28 26 24 23).
diag := ESDiagramRenderer new.
(diag verticalBarDiagram)
y: #yValue;
regularAxis;
width: 300;
height: 200;
setInvertedLinearFill;
setColoredFill;
models: factory buildDummies. "or setInvertedLinearFill"
diag getRenderedForm asMorph openInHand
-=-=-=-=-=-=-=-=-=
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev