--- a/Launcher.st	Fri Sep 20 09:36:27 1996 +0200
+++ b/Launcher.st	Mon Sep 23 14:38:56 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 19-sep-1996 at 22:53:40'                   !
-
 ApplicationModel subclass:#Launcher
 	instanceVariableNames:'myMenu buttonPanel transcript infoView infoProcess helpIsOn
 		isMainLauncher'
@@ -2157,9 +2155,15 @@
     "after a second (to allow redraw of views under menu ...),
      save the contents of the whole screen."
 
-    Processor addTimedBlock:[
-	self saveScreenImage:(Image fromScreen) defaultName:'screen'
-    ] afterSeconds:1
+    Processor 
+        addTimedBlock:[
+                        self 
+                            saveScreenImage:(Image fromScreen) 
+                            defaultName:'screen'
+                      ] 
+        afterSeconds:1
+
+    "Modified: 23.9.1996 / 14:36:14 / cg"
 !
 
 garbageCollect
@@ -2185,12 +2189,16 @@
 
     |area|
 
-    Processor addTimedBlock:[
-	area := Rectangle fromUser.
-	(area width > 0 and:[area height > 0]) ifTrue:[
-	    self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
-	]
-    ] afterSeconds:1
+    Processor 
+        addTimedBlock:[
+                        area := Rectangle fromUser.
+                        (area width > 0 and:[area height > 0]) ifTrue:[
+                            self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
+                        ]
+                      ] 
+        afterSeconds:1
+
+    "Modified: 23.9.1996 / 14:36:28 / cg"
 !
 
 startEventMonitor
@@ -2274,14 +2282,18 @@
     "after a second (to allow redraw of views under menu ...),
      let user specify a view and save its contents."
 
-    Processor addTimedBlock:[
-	|v|
-
-	v := Screen current viewFromUser.
-	v notNil ifTrue:[
-	    self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
-	]
-    ] afterSeconds:1
+    Processor 
+        addTimedBlock:[
+                        |v|
+
+                        v := Screen current viewFromUser.
+                        v notNil ifTrue:[
+                            self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
+                        ]
+                      ] 
+        afterSeconds:1
+
+    "Modified: 23.9.1996 / 14:36:48 / cg"
 !
 
 viewInspect
@@ -3476,5 +3488,5 @@
 !Launcher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.190 1996-09-20 07:36:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.191 1996-09-23 12:38:56 cg Exp $'
 ! !