#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 15 Nov 2016 00:19:20 +0100
changeset 17062 d57e024b384f
parent 17061 17e020091a74
child 17063 2cc4c00fa570
#UI_ENHANCEMENT by cg class: ProcessMonitorV2 comment/format in: #selectedApplicationTopViewsDo: changed: #raiseApplicationWindow when app is in a modalLoop, raise the modal window as well.
ProcessMonitorV2.st
--- a/ProcessMonitorV2.st	Sat Nov 12 11:51:07 2016 +0100
+++ b/ProcessMonitorV2.st	Tue Nov 15 00:19:20 2016 +0100
@@ -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|
+
+        topView raiseDeiconified.
+        wg := topView windowGroup.
+        [wg isInModalLoop] whileTrue:[
+            wg := wg modalGroup.
+            wg mainView raiseDeiconified.
+        ].
+    ]
 
     "Created: / 05-06-2007 / 18:37:30 / cg"
-    "Modified: / 07-06-2007 / 12:43:55 / cg"
+    "Modified: / 15-11-2016 / 00:17:44 / 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'!