Merge pull request #77 from nkinesis/feature/export-pdf

add export pdf functionality
ObjectProfile · Aug 4, 2023 · 3ecf6eb · 3ecf6eb
2 parents d6fb482 + bfe0fc8
commit 3ecf6eb
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 1 deletion.
diff --git 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
@@ -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
+]