--- a/WindowGroup.st	Mon Nov 14 14:03:16 2016 +0100
+++ b/WindowGroup.st	Tue Nov 15 00:14:00 2016 +0100
@@ -642,6 +642,15 @@
     "Created: 20.8.1997 / 17:57:35 / cg"
 !
 
+modalGroup
+    "if the receiver has given up control to some other modal windowGroup
+     (i.e. if it has popped up a modal dialog or a popUpMenu), this is the modelGroup"
+
+    ^ modalGroup
+
+    "Modified (comment): / 15-11-2016 / 00:13:47 / cg"
+!
+
 previousGroup
     "return the windowgroup that started this group. (for modal groups only).
      This may be another modalGroup (for boxes opened by boxes).