#UI_ENHANCEMENT by cg
class: ProcessMonitorV2
comment/format in: #selectedApplicationTopViewsDo:
changed: #raiseApplicationWindow
when app is in a modalLoop,
raise the modal window as well.
--- 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'!