Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
detect empty area in screen-area hardcopy
authorclaus
Sun, 07 Aug 1994 21:31:48 +0200
changeset 32 faeb7030e2b8
parent 31 7ee4217817fa
child 33 11474e0f4d00
detect empty area in screen-area hardcopy
OldLauncher.st file | annotate | diff | comparison | revisions 
--- 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
 !
hg/stx-libtool