--- a/AbstractLauncherApplication.st	Mon Jul 17 12:20:59 2017 +0200
+++ b/AbstractLauncherApplication.st	Mon Jul 17 12:22:12 2017 +0200
@@ -456,6 +456,37 @@
     PackageLoadDialog open
 ! !
 
+!AbstractLauncherApplication methodsFor:'actions - file'!
+
+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)').
+            ]
+        ] ensure:[
+            self restoreCursors.
+        ].
+    ].
+
+    "Modified: / 17-07-2017 / 10:14:09 / cg"
+! !
+
 !AbstractLauncherApplication methodsFor:'drag & drop'!
 
 canDropObjects:aCollectionOfDropObjects