--- a/AbstractLauncherApplication.st	Wed Aug 07 23:14:14 2002 +0200
+++ b/AbstractLauncherApplication.st	Thu Aug 08 12:50:02 2002 +0200
@@ -301,16 +301,16 @@
     |fileName|
 
     fileName := Dialog
-                    requestFileName:(resources string:'save image in:') 
+                    requestFileName:(resources string:'Save hardcopy image in:') 
                     default:(defaultName , '.tiff')
-                    ok:(resources string:'save')
-                    abort:(resources string:'cancel')
+                    ok:(resources string:'Save')
+                    abort:(resources string:'Cancel')
                     pattern:'*.tiff'
                     fromDirectory:nil
                     whenBoxCreatedEvaluate:[:box | 
                                                 |editButton|
 
-                                                editButton := Button label:(resources string:'edit').
+                                                editButton := Button label:(resources string:'Edit').
                                                 (DialogBox styleSheet at:'dialogBox.okAtLeft' default:false) ifFalse:[
                                                     box addButton:editButton before:nil
                                                 ] ifTrue:[
@@ -1529,15 +1529,15 @@
     |area|
 
     Processor 
-	addTimedBlock:[
-			[Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
-
-			area := Rectangle fromUser.
-			(area width > 0 and:[area height > 0]) ifTrue:[
-			    self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
-			]
-		      ] 
-	afterSeconds:1
+        addTimedBlock:[
+                        [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
+
+                        area := Rectangle fromUser.
+                        (area width > 0 and:[area height > 0]) ifTrue:[
+                            self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
+                        ]
+                      ] 
+        afterSeconds:(self window sensor shiftDown ifTrue:5 ifFalse:1)
 
     "Modified: / 18.8.1998 / 15:00:42 / cg"
 !
@@ -1608,14 +1608,13 @@
      let user specify a view and save its contents."
 
     Processor 
-	addTimedBlock:[
-			|v|
-			(v := Screen current viewFromUser) notNil ifTrue:[
-			    self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
-			]
-		      ] 
-	afterSeconds:1
-
+        addTimedBlock:[
+                        |v|
+                        (v := Screen current viewFromUser) notNil ifTrue:[
+                            self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
+                        ]
+                      ] 
+        afterSeconds:(self window sensor shiftDown ifTrue:5 ifFalse:1)
 !
 
 viewInspect
@@ -6443,5 +6442,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.200 2002-08-07 12:57:54 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.201 2002-08-08 10:50:02 tm Exp $'
 ! !