17763393021

Committed 16 Sep 2025 10:52AM UTC coverage: 66.37% (+0.01%) from 66.36%

Build # 17763393021

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1419 from moosetechnology/1418-Hierarchical-visualizations-exportTo-PNGSVGPDF-button-raises-an-error

fix #1418

Run Details

0 of 2 new or added lines in 1 file covered. (0.0%)

19868 of 29935 relevant lines covered (66.37%)

1.33 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

36.07

/src/MooseIDE-Core/MiAbstractVisualizationBrowser.class.st

Class {
        #name : 'MiAbstractVisualizationBrowser',
        #superclass : 'MiAbstractBrowser',
        #instVars : [
                'mainPresenter'
        ],
        #category : 'MooseIDE-Core-Browser',
        #package : 'MooseIDE-Core',
        #tag : 'Browser'
}

{ #category : 'testing' }
MiAbstractVisualizationBrowser class >> isAbstract [

        ^ self == MiAbstractVisualizationBrowser
]

{ #category : 'testing' }
MiAbstractVisualizationBrowser >> canHighlight [

        ^ true
]

{ #category : 'export' }
MiAbstractVisualizationBrowser >> exportToPDF [

        self exportWith: RSPDFCairoExporter
]

{ #category : 'export' }
MiAbstractVisualizationBrowser >> exportToPNG [

        self exportWith: RSPNGExporter
]

{ #category : 'export' }
MiAbstractVisualizationBrowser >> exportToSVG [

        self exportWith: RSSVGCairoExporter
]

{ #category : 'export' }
MiAbstractVisualizationBrowser >> exportVisualization [

        SpMenuPresenter new
                addItem: [ :item | item name: 'Export to SVG'; action: [ self exportToSVG ] ];
                addItem: [ :item | item name: 'Export to PNG'; action: [ self exportToPNG ] ];
                addItem: [ :item | item name: 'Export to PDF'; action: [ self exportToPDF ] ];
                openWithSpecAtPointer
]

{ #category : 'export' }
MiAbstractVisualizationBrowser >> exportWith: roassalExporter [

        | file fileName |
        fileName := (self class title copyReplaceAll: ' ' with: '_') uncapitalized, '.', roassalExporter extension.
        file := UIManager default
                        chooseForSaveFileReference: 'Chose export destination'
                        extensions: {roassalExporter extension}
                        path: fileName asFileReference.

        file ifNotNil: [
                roassalExporter new
                        canvas: mainPresenter canvas;
                        zoomToShapes;
                        exportToFile: file ]
]

{ #category : 'testing' }
MiAbstractVisualizationBrowser >> hasVisualization [

        ^ true
]

{ #category : 'highlighting' }
MiAbstractVisualizationBrowser >> highlightEntity: entities [

        mainPresenter highlightEntities: entities
]

{ #category : 'accessing' }
MiAbstractVisualizationBrowser >> miSelectedItem [

        ^ mainPresenter miSelectedItem ifEmpty: [
                  specModel ifNil: [ ^ #(  ) ].
                  specModel entities ]
]

{ #category : 'actions' }
MiAbstractVisualizationBrowser >> runVisualization [

        mainPresenter run
]

1	Class {
2	#name : 'MiAbstractVisualizationBrowser',
3	#superclass : 'MiAbstractBrowser',
4	#instVars : [
5	'mainPresenter'
6	],
7	#category : 'MooseIDE-Core-Browser',
8	#package : 'MooseIDE-Core',
9	#tag : 'Browser'
10	}
11
12	{ #category : 'testing' }
13	MiAbstractVisualizationBrowser class >> isAbstract [	×
14		×
15	^ self == MiAbstractVisualizationBrowser	×
16	]	×
17
18	{ #category : 'testing' }
19	MiAbstractVisualizationBrowser >> canHighlight [	2✔
20		2✔
21	^ true	2✔
22	]	2✔
23
24	{ #category : 'export' }
25	MiAbstractVisualizationBrowser >> exportToPDF [	×
26		×
27	self exportWith: RSPDFCairoExporter	×
28	]	×
29
30	{ #category : 'export' }
31	MiAbstractVisualizationBrowser >> exportToPNG [	×
32		×
33	self exportWith: RSPNGExporter	×
34	]	×
35
36	{ #category : 'export' }
37	MiAbstractVisualizationBrowser >> exportToSVG [	×
38		×
39	self exportWith: RSSVGCairoExporter	×
40	]	×
41
42	{ #category : 'export' }
43	MiAbstractVisualizationBrowser >> exportVisualization [	×
44		×
45	SpMenuPresenter new	×
46	addItem: [ :item \| item name: 'Export to SVG'; action: [ self exportToSVG ] ];	×
47	addItem: [ :item \| item name: 'Export to PNG'; action: [ self exportToPNG ] ];	×
48	addItem: [ :item \| item name: 'Export to PDF'; action: [ self exportToPDF ] ];	×
49	openWithSpecAtPointer	×
50	]	×
51
52	{ #category : 'export' }
53	MiAbstractVisualizationBrowser >> exportWith: roassalExporter [	×
54		×
55	\| file fileName \|	×
56	fileName := (self class title copyReplaceAll: ' ' with: '_') uncapitalized, '.', roassalExporter extension.	×
57	file := UIManager default	×
58	chooseForSaveFileReference: 'Chose export destination'	×
NEW 59	extensions: {roassalExporter extension}	×
NEW 60	path: fileName asFileReference.	×
61		×
62	file ifNotNil: [	×
63	roassalExporter new	×
64	canvas: mainPresenter canvas;	×
65	zoomToShapes;	×
66	exportToFile: file ]	×
67	]	×
68
69	{ #category : 'testing' }
70	MiAbstractVisualizationBrowser >> hasVisualization [	2✔
71		2✔
72	^ true	2✔
73	]	2✔
74
75	{ #category : 'highlighting' }
76	MiAbstractVisualizationBrowser >> highlightEntity: entities [	2✔
77		2✔
78	mainPresenter highlightEntities: entities	2✔
79	]	2✔
80
81	{ #category : 'accessing' }
82	MiAbstractVisualizationBrowser >> miSelectedItem [	2✔
83		2✔
84	^ mainPresenter miSelectedItem ifEmpty: [	2✔
85	specModel ifNil: [ ^ #( ) ].	2✔
86	specModel entities ]	2✔
87	]	2✔
88
89	{ #category : 'actions' }
90	MiAbstractVisualizationBrowser >> runVisualization [	2✔
91		2✔
92	mainPresenter run	2✔
93	]	2✔

moosetechnology / MooseIDE / 17763393021

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous