--- a/ModalBox.st	Fri Jan 31 16:09:53 2020 +0100
+++ b/ModalBox.st	Wed Feb 05 13:55:32 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -14,7 +16,8 @@
 "{ NameSpace: Smalltalk }"
 
 StandardSystemView subclass:#ModalBox
-	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel closeOnOutsideButtonPress'
+	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel
+		closeOnOutsideButtonPress'
 	classVariableNames:'UseTransientViews DefaultExtent'
 	poolDictionaries:''
 	category:'Views-Basic'
@@ -732,7 +735,11 @@
 
     self fixSize.
     self makeFullyVisible.
-    self openModal
+    [
+        self openModal
+    ] ensure:[
+        self destroy.
+    ]    
 
     "
      |b|
@@ -741,7 +748,8 @@
      b show.
     "
 
-    "Modified: 7.3.1996 / 17:57:49 / cg"
+    "Modified: / 07-03-1996 / 17:57:49 / cg"
+    "Modified: / 05-02-2020 / 13:40:53 / Stefan Vogel"
 !
 
 showAt:aPoint
@@ -750,7 +758,11 @@
 
     self fixSize.
     self fixPosition:aPoint.
-    self openModal
+    [
+        self openModal
+    ] ensure:[
+        self destroy.
+    ]    
 
     "
      |b|
@@ -759,6 +771,8 @@
      b showAt:(0 @ 0).
      b showAt:(400 @ 400).
     "
+
+    "Modified: / 05-02-2020 / 13:41:05 / Stefan Vogel"
 !
 
 showAt:aPoint center:center
@@ -785,18 +799,22 @@
 
     self fixSize.
     centerX ifTrue:[
-	dx := self width // 2.
+        dx := self width // 2.
     ] ifFalse:[
-	dx := 0
+        dx := 0
     ].
     centerY ifTrue:[
-	dy := self height // 2.
+        dy := self height // 2.
     ] ifFalse:[
-	dy := 0
+        dy := 0
     ].
     self origin:(aPoint - (dx @ dy)).
     self makeFullyVisible.
-    self openModal
+    [
+        self openModal
+    ] ensure:[
+        self destroy.
+    ]    
 
     "
      |b|
@@ -807,6 +825,7 @@
     "
 
     "Modified: / 21-01-2011 / 13:58:29 / cg"
+    "Modified: / 05-02-2020 / 13:41:12 / Stefan Vogel"
 !
 
 showAtCenter