Get a form from an EyeSee diagram - Moose-dev

27 May 2011

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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.