OldLauncher.st
changeset 32 faeb7030e2b8
parent 29 8a72e10043f6
child 37 50f59bad66b1
--- a/OldLauncher.st	Fri Aug 05 12:21:22 1994 +0200
+++ b/OldLauncher.st	Sun Aug 07 21:31:48 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.11 1994-08-05 01:38:51 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.12 1994-08-07 19:31:48 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.11 1994-08-05 01:38:51 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.12 1994-08-07 19:31:48 claus Exp $
 "
 !
 
@@ -562,8 +562,13 @@
 !
 
 screenHardcopy
+    |area|
+
     Processor addTimedBlock:[
-        self saveScreenImage:(Image fromScreen:(Rectangle fromUser))
+        area := Rectangle fromUser.
+        (area width > 0 and:[area height > 0]) ifTrue:[
+            self saveScreenImage:(Image fromScreen:area)
+        ]
     ] afterSeconds:1
 !