Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Wed, 05 Feb 2020 13:55:04 +0100
changeset 6814 e9155e18dfb4
parent 6813 73a74c77554b
child 6815 34586cf7ecbd
#BUGFIX by stefan class: EnterBox changed: #requestOnCancel: #ensure: block to destroy box on abort (e.g. via Timeout-Pin - see 15_Standard_Library_Test.ets)
EnterBox.st file | annotate | diff | comparison | revisions 
--- a/EnterBox.st	Wed Feb 05 13:52:58 2020 +0100
+++ b/EnterBox.st	Wed Feb 05 13:55:04 2020 +0100
@@ -677,10 +677,15 @@
      or cancelValue, if abort was pressed"
 
     self action:[:string | ^ string].
-    self open.
+    [
+        self open.
+    ] ensure:[
+        self destroy.
+    ].    
     ^ cancelValue value
 
-    "Created: 27.1.1996 / 14:47:47 / cg"
+    "Created: / 27-01-1996 / 14:47:47 / cg"
+    "Modified: / 05-02-2020 / 13:44:44 / Stefan Vogel"
 !
 
 requestPassword:title
hg/stx-libwidg