diff --git a/src/BaselineOfHierarchicalVisualizations/BaselineOfHierarchicalVisualizations.class.st b/src/BaselineOfHierarchicalVisualizations/BaselineOfHierarchicalVisualizations.class.st index 7da68f3..f2b9457 100644 --- a/src/BaselineOfHierarchicalVisualizations/BaselineOfHierarchicalVisualizations.class.st +++ b/src/BaselineOfHierarchicalVisualizations/BaselineOfHierarchicalVisualizations.class.st @@ -16,7 +16,10 @@ BaselineOfHierarchicalVisualizations >> baseline: spec [ hasCanvas ifFalse: [ spec baseline: 'Roassal3' - with: [ spec repository: 'github://ObjectProfile/Roassal3/src' ] + with: [ spec repository: 'github://ObjectProfile/Roassal3/src' ]. + spec + baseline: 'Roassal3Exporters' + with: [ spec repository: 'github://ObjectProfile/Roassal3Exporters' ]. ]. spec package: 'Hierarchical-Model-Events'; diff --git a/src/Hierarchical-Roassal3-Menu/HExportasPDF.class.st b/src/Hierarchical-Roassal3-Menu/HExportasPDF.class.st new file mode 100644 index 0000000..72cca18 --- /dev/null +++ b/src/Hierarchical-Roassal3-Menu/HExportasPDF.class.st @@ -0,0 +1,30 @@ +" +this menu item allows export to PDF +" +Class { + #name : #HCollapseCanvasChildrenMenuItem, + #superclass : #HCanvasMenuItem, + #category : #'Hierarchical-Roassal3-Menu' +} + + +{ #category : #execution } +HCollapseCanvasChildrenMenuItem >> execute [ + |destinationDir timestamp| + timestamp := DateAndTime now asUnixTime asString. + destinationDir := ('image', timestamp, '.pdf') asFileReference. + RSPDFCairoExporter new + canvas: visualization container; + exportToFile: destinationDir. + GrowlMorph openWithLabel: 'Information' contents: 'Saved ', destinationDir asAbsolute asString. +] + +{ #category : #accessing } +HCollapseCanvasChildrenMenuItem >> label [ + ^ 'Export as PDF' +] + +{ #category : #accessing } +HCollapseCanvasChildrenMenuItem >> order [ + ^ 1 +] \ No newline at end of file