--- a/AbstractLauncherApplication.st	Thu May 08 11:11:25 2008 +0200
+++ b/AbstractLauncherApplication.st	Thu May 08 13:48:23 2008 +0200
@@ -1846,7 +1846,7 @@
 
                         area := Rectangle fromUser.
                         (area width > 0 and:[area height > 0]) ifTrue:[
-                            5 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
+                            10 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
                             self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
                         ]
                       ] 
@@ -6577,5 +6577,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.355 2008-04-22 10:54:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.356 2008-05-08 11:48:23 cg Exp $'
 ! !