[Moose-dev] Get a form from an EyeSee diagram

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