--- a/AbstractLauncherApplication.st Wed Oct 29 13:06:17 2008 +0100
+++ b/AbstractLauncherApplication.st Thu Oct 30 12:27:14 2008 +0100
@@ -1922,22 +1922,18 @@
let user specify a rectangular area on the screen
and save its contents."
-
- Processor
- addTimedBlock:[
- |area|
-
- [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
-
- area := Rectangle fromUser.
- (area width > 0 and:[area height > 0]) ifTrue:[
- 10 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
- self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
- ]
- ]
- afterSeconds:0.5
-
- "Modified: / 18.8.1998 / 15:00:42 / cg"
+ |area|
+
+ [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
+
+ area := Rectangle fromUser.
+ (area width > 0 and:[area height > 0]) ifTrue:[
+ [
+ 10 timesRepeat:[ Screen current beep. Delay waitForSeconds:1. ].
+ self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
+ ] fork
+ ]
+
!
showFlyByWindowInformation
@@ -6666,5 +6662,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.365 2008-10-26 13:16:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.366 2008-10-30 11:27:14 cg Exp $'
! !