--- a/DialogBox.st Fri Jan 31 17:32:01 2020 +0100
+++ b/DialogBox.st Wed Feb 05 13:52:58 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -4699,16 +4697,19 @@
centered := centeredOrNil ? (ForceModalBoxesToOpenAtCenter ? false).
- aPoint notNil ifTrue:[
- box showAt:aPoint center:centered
- ] ifFalse:[
- centered ifTrue:[
- box showAtCenter
+ [
+ aPoint notNil ifTrue:[
+ box showAt:aPoint center:centered
] ifFalse:[
- box showAtPointer
- ]
- ].
- box destroy.
+ centered ifTrue:[
+ box showAtCenter
+ ] ifFalse:[
+ box showAtPointer
+ ]
+ ].
+ ] ensure:[
+ box destroy.
+ ].
^ cancelValue value.
"
@@ -4770,6 +4771,7 @@
"Modified: / 05-05-1999 / 10:50:22 / cg"
"Modified (comment): / 03-08-2017 / 14:38:57 / cg"
"Modified: / 01-07-2018 / 10:09:02 / Claus Gittinger"
+ "Modified: / 05-02-2020 / 13:29:05 / Stefan Vogel"
!
request:aString displayAt:aPoint centered:centered action:resultAction initialAnswer:initial onCancel:cancelValue