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.
class: StandardSystemView
authorClaus Gittinger <cg@exept.de>
Wed, 24 Apr 2013 16:57:26 +0200
changeset 6049 9e2da07eefa9
parent 6048 25578230982a
child 6050 6d4531c62a46
class: StandardSystemView changed: #autoRaise
StandardSystemView.st file | annotate | diff | comparison | revisions 
--- a/StandardSystemView.st	Wed Apr 24 16:51:35 2013 +0200
+++ b/StandardSystemView.st	Wed Apr 24 16:57:26 2013 +0200
@@ -1005,7 +1005,14 @@
      - for example, if one view is controlling another. These get a chance to redefine this
      method"
 
-    self raise.
+    |app|
+
+    "/ if I have an application, let it decide
+    (app := self application) notNil ifTrue:[
+        app autoRaise:self
+    ] ifFalse:[
+        self raise.
+    ].
 !
 
 focusIn
@@ -1623,11 +1630,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.204 2013-04-24 14:51:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.205 2013-04-24 14:57:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.204 2013-04-24 14:51:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.205 2013-04-24 14:57:26 cg Exp $'
 ! !
hg/stx-libview