From cc81dd2b666f665de3ebd7fadc16034561bb8fac Mon Sep 17 00:00:00 2001
From: Dany LE <xsang.le@gmail.com>
Date: Fri, 12 Aug 2022 12:28:18 +0200
Subject: [PATCH] Add support for basic Graphic primitives

---
 bin/build_base_image_diya.sh |  2 +-
 export.st                    | 24 +++++++++++++++++++++++-
 2 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/bin/build_base_image_diya.sh b/bin/build_base_image_diya.sh
index d85bdcd..b556d33 100755
--- a/bin/build_base_image_diya.sh
+++ b/bin/build_base_image_diya.sh
@@ -20,7 +20,7 @@ if [ ! -e "$SRC_IMG" ]; then
     cd "$BASE_DIR/builder/"
     curl "https://get.pharo.org/$ARCH/70+vm" | bash
     cd "$W"
-    find . -name "*SDL*.so*" -exec  rm -f {} \;
+    #find . -name "*SDL*.so*" -exec  rm -f {} \;
 fi
 cp -rf "$W/fonts" "$BASE_DIR/builder/" 
 # chmod  -R a+rw $BASE_DIR
diff --git a/export.st b/export.st
index ae87676..6d9d204 100644
--- a/export.st
+++ b/export.st
@@ -48,6 +48,8 @@ packages := #(
 	'System-Localization' 
 	'STON-Core'
 	'Colors'
+	'Graphics-Primitives'
+	'Graphics-Files'
 	'Diya'
 ).
 
@@ -65,7 +67,6 @@ ignoresClasses := {
 	ManifestGraphicsPrimitives.
 	EllipseMidpointTracer.
 	GrafPort.
-	Form
 }.
 "remove some unused meothods"
 AbstractFileReference
@@ -93,6 +94,20 @@ Rectangle class
 
 CompositeTransform removeSelector:#asMorphicTransform.
 
+	Form class 
+		removeSelector: #serviceOpenImageInWindow;
+		removeSelector: #openImageInWindow:;
+		removeSelector: #serviceImageAsBackground;
+		removeSelector: #setBackgroundFromImageFileNamed:;
+		removeSelector: #services.
+Form
+	removeSelector: #setAsBackground;
+	compile: 'scaledByDisplayScaleFactor
+	'.
+
+	GIFReadWriter class
+	removeSelector: #exampleAnim.
+
 packages do:[:name | |pkg trait classes extensionMethods|
 	Transcript show: 'Processing package ',name;cr.
 	FFIMethodRegistry resetAll.
@@ -133,6 +148,13 @@ core addClass: (HEClass for:OSWindowPlatformSpecificHandle);
 	addClass: (HEClass for:STCommandLineHandler);
 	addClass: (HEClass for:FreeTypeFace);
 	"form object support"
+	addClass: (HEClass for:DisplayObject);
+	addClass: (HEClass for:DisplayMedium);
+	addClass: (HEClass for:Form);
+	addClass: (HEClass for:ColorForm);
+	addClass: (HEClass for:ColorArray);
+	addClass: (HEClass for: AnimatedImageFrame);
+
 	addClass: (HEClass for: ShortIntegerArray);
 	addClass: (HEClass for:DisplayTransform);
 	addClass: (HEClass for:MatrixTransform2x3);