--- a/ProcessMonitorV2.st	Thu Nov 24 22:03:16 2016 +0000
+++ b/ProcessMonitorV2.st	Thu Nov 24 22:14:31 2016 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2003 by eXept Software AG
 	      All Rights Reserved
@@ -3017,25 +3019,37 @@
 raiseApplicationWindow
     "raise the selected process(es) topView(s)"
 
-    self selectedApplicationTopViewsDo:[:topView | topView raiseDeiconified]
+    self selectedApplicationTopViewsDo:[:topView |
+        |wg v|
+
+        topView raiseDeiconified.
+        wg := topView windowGroup.
+        [wg isInModalLoop] whileTrue:[
+            wg := wg modalGroup.
+            (v := wg mainView) notNil ifTrue:[v raiseDeiconified].
+        ].
+    ]
 
     "Created: / 05-06-2007 / 18:37:30 / cg"
-    "Modified: / 07-06-2007 / 12:43:55 / cg"
+    "Modified: / 15-11-2016 / 00:22:22 / cg"
 !
 
 selectedApplicationTopViewsDo:aBlock
     self selectedProcessesDo:[:eachProcess |
-	|wg app topView|
-
-	wg := self windowGroupOfProcess:eachProcess.
-	wg notNil ifTrue:[
-	    (topView := wg mainView) notNil ifTrue:[
-		aBlock value:topView.
-	    ]
-	]
+        |wg|
+
+        wg := self windowGroupOfProcess:eachProcess.
+        wg notNil ifTrue:[
+            |topView|
+
+            (topView := wg mainView) notNil ifTrue:[
+                aBlock value:topView.
+            ]
+        ]
     ]
 
     "Created: / 07-06-2007 / 12:42:09 / cg"
+    "Modified: / 15-11-2016 / 00:18:37 / cg"
 ! !
 
 !ProcessMonitorV2 methodsFor:'menu actions-debug'!