--- a/AbstractLauncherApplication.st	Thu Oct 14 11:50:32 2004 +0200
+++ b/AbstractLauncherApplication.st	Thu Oct 14 11:51:42 2004 +0200
@@ -461,19 +461,15 @@
                     fromDirectory:nil
                     whenBoxCreatedEvaluate:[:box | 
                                                 |editButton|
-                                                UserPreferences current useNewFileDialog ifFalse:[
+                                                "/ UserPreferences current useNewFileDialog ifFalse:[
                                                     editButton := Button label:(resources string:'Edit').
-                                                    (DialogBox defaultOKButtonAtLeft) ifFalse:[
-                                                        box addButton:editButton before:nil
-                                                    ] ifTrue:[
-                                                        box addButton:editButton after:nil
-                                                    ].
                                                     editButton 
                                                         action:[ 
                                                             box hide; destroy.
                                                             ImageEditor openOnImage:anImage.
                                                         ].
-                                                ]
+                                                    box addButton:editButton
+                                                "/ ]
                                            ].
     fileName notNil ifTrue:[
         anImage saveOn:fileName
@@ -1791,6 +1787,28 @@
     "Modified: / 18.8.1998 / 15:00:42 / cg"
 !
 
+screenHardcopyWithDelay
+    "after some time (to allow user to pull menu or similar...),
+     let user specify a rectangular area on the screen
+     and save its contents."
+
+    |area|
+
+    Processor 
+        addTimedBlock:[
+                        [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
+
+                        area := Rectangle fromUser.
+                        (area width > 0 and:[area height > 0]) ifTrue:[
+                            5 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"
+!
+
 startWindowTreeView
     "open a windowTree (on a picked topView)"
 
@@ -6473,5 +6491,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.317 2004-09-22 10:24:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.318 2004-10-14 09:51:42 cg Exp $'
 ! !