Mercurial Mercurial > hg > stx-libview / 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.
#QUALITY by stefan
authorStefan Vogel <sv@exept.de>
Fri, 17 Aug 2018 17:46:55 +0200
changeset 8447 b158695507d9
parent 8446 c05738fe6b4d
child 8448 81656238ef7b
#QUALITY by stefan class: WindowGroup changed: #modalDialogStarts:
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WindowGroup.st	Wed Aug 15 15:05:49 2018 +0200
+++ b/WindowGroup.st	Fri Aug 17 17:46:55 2018 +0200
@@ -1010,12 +1010,14 @@
 modalDialogStarts:aModalGroup
     "invoked, when a modal dialog is opened"
 
-    self processEvents. "/ process any bufferd message send events
+    modalGroup := aModalGroup.      "/ set it first, so that events may find out that they are
+                                    "/ processed in a modal context
+    self processEvents. "/ process any buffered message send events
     inModalLoop := true.
-    modalGroup := aModalGroup.
 
     "Created: / 13-11-2016 / 17:18:31 / cg"
     "Modified: / 13-11-2016 / 22:58:57 / cg"
+    "Modified (comment): / 17-08-2018 / 17:46:38 / Stefan Vogel"
 !
 
 realizeTopViews
hg/stx-libview