--- a/Launcher.st	Mon Jul 17 12:22:12 2017 +0200
+++ b/Launcher.st	Mon Jul 17 12:23:28 2017 +0200
@@ -356,81 +356,6 @@
     ]
 
     "Modified: 8.1.1997 / 14:50:00 / cg"
-!
-
-snapshot
-    "saves a snapshot image, after asking for a fileName"
-
-    |fileName|
-
-    fileName := DialogBox
-		    request:(resources at:'filename for image:') withCRs
-	      initialAnswer:(ObjectMemory nameForSnapshot) 
-		    okLabel:(resources at:'save')
-		      title:(resources string:'save image')
-		   onCancel:nil.
-
-    fileName notNil ifTrue:[
-	self showCursor:Cursor write.
-	[
-	    (ObjectMemory snapShotOn:fileName) ifFalse:[
-		"
-		 snapshot failed for some reason (disk full, no permission etc.)
-		"
-		self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
-	    ]
-	] valueNowOrOnUnwindDo:[
-	    self restoreCursors.
-	].
-    ].
-
-    "Modified: 8.1.1997 / 14:50:29 / cg"
-!
-
-snapshotAndExit
-    "saves a snapshot image and exits, after asking for a fileName"
-
-    |fileName ok|
-
-    fileName := DialogBox
-		    request:(resources at:'filename for image:') withCRs
-	      initialAnswer:(ObjectMemory nameForSnapshot) 
-		    okLabel:(resources at:'save & exit')
-		      title:(resources string:'save image & exit')
-		   onCancel:nil.
-
-    fileName notNil ifTrue:[
-	self showCursor:Cursor write.
-	[
-	    ok := ObjectMemory snapShotOn:fileName.
-	] valueNowOrOnUnwindDo:[
-	    self restoreCursors.
-	].
-
-	ok ifFalse:[
-	    "
-	     snapshot failed for some reason (disk full, no permission etc.)
-	     Do NOT exit in this case.
-	    "
-	    self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
-	] ifTrue:[
-	    "
-	     saveAllViews tells all views to shutdown neatly 
-	     (i.e. offer a chance to save the contents to a file).
-
-	     This is NOT required - all data should be in the snapshot ...
-	     ... however, if remote disks/mountable filesystems are involved,
-	     which may not be present the next time, it may make sense to 
-	     uncomment it and query for saving - time will show which is better.
-	    "
-"
-	    self saveAllViews.
-"
-	    Smalltalk exit
-	]
-    ].
-
-    "Modified: 8.1.1997 / 14:50:36 / cg"
 ! !
 
 !Launcher methodsFor:'actions - goodies'!
@@ -1725,6 +1650,6 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.407 2015-01-31 13:28:01 cg Exp $'
+    ^ '$Header$'
 ! !