Merge pull request #22 from zweidenker/clean-startup

Trying to cleanup stuff from startup

Dockerfile

@@ -18,8 +18,8 @@ COPY source /opt/source
 ARG CACHEBUST=1
 RUN \
     /opt/pharo /opt/SnapDump.image eval --save "Metacello new repository: 'filetree:///opt/source'; baseline: #SnapDump; load: #('server')" && \
-    /opt/pharo /opt/SnapDump.image eval --save "LGitLibrary class compile: 'startUp: isImageStarting'" && \
-    rm -rf /opt/pharo-local /opt/source
+    /opt/pharo /opt/SnapDump.image eval --save "SnapDump prepareForDeployment" && \
+    rm -rf /opt/pharo-local
 
 RUN \
   apt-get -y remove --purge unzip libgit2-26 && \

source/SnapDump-Server/SnapDeployment.class.st

@@ -0,0 +1,61 @@
+Class {
+	#name : #SnapDeployment,
+	#superclass : #Object,
+	#category : #'SnapDump-Server'
+}
+
+{ #category : #decoration }
+SnapDeployment class >> closeMorphs [
+	World submorphs do: #delete
+
+]
+
+{ #category : #decoration }
+SnapDeployment class >> disableChangesLog [
+	ChangesLog reset.
+	self 
+		removeFromStartup: SmalltalkImage
+]
+
+{ #category : #decoration }
+SnapDeployment class >> disableEpicea [
+	EpMonitor current disable.
+	self 
+		removeFromStartup: EpLostChangesDetector;
+		removeFromStartup: OmDeferrer;
+		removeFromStartup: OmSessionStore
+
+]
+
+{ #category : #decoration }
+SnapDeployment class >> disableFreeType [
+	FreeTypeSystemSettings loadFt2Library: false.
+	self 
+		removeFromStartup: FreeTypeCache;
+		removeFromStartup: FreeTypeSettings;
+		removeFromStartup: LogicalFont;
+		removeFromStartup: StrikeFont
+
+
+]
+
+{ #category : #decoration }
+SnapDeployment class >> disableIceberg [
+	self removeFromStartup: LGitLibrary
+
+]
+
+{ #category : #decoration }
+SnapDeployment class >> prepare [ 
+	self closeMorphs.
+	self disableEpicea.
+	self disableFreeType.
+	self disableIceberg
+
+]
+
+{ #category : #decoration }
+SnapDeployment class >> removeFromStartup: aClass [
+	SessionManager default unregisterClassNamed: aClass name
+
+]

source/SnapDump-Server/SnapDump.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #SnapDump }
+
+{ #category : #'*SnapDump-Server' }
+SnapDump class >> prepareForDeployment [
+	^ SnapDeployment prepare
+]