From bfe0fc82b555b87675ea32ee7fc91cc967ae186d Mon Sep 17 00:00:00 2001
From: Gabriel Ullmann <ullmanng162@gmail.com>
Date: Thu, 3 Aug 2023 17:40:32 -0400
Subject: [PATCH] add export pdf functionality

---
 ...elineOfHierarchicalVisualizations.class.st |  5 +++-
 .../HExportasPDF.class.st                     | 30 +++++++++++++++++++
 2 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 src/Hierarchical-Roassal3-Menu/HExportasPDF.class.st

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