ModalBox.st
changeset 5226 fa4660772f73
parent 5058 60bb10ed290b
child 5386 7bb5b24b9bb2
--- a/ModalBox.st	Tue Mar 17 20:41:28 2009 +0100
+++ b/ModalBox.st	Fri Mar 20 18:11:26 2009 +0100
@@ -177,26 +177,26 @@
      bring myself to the front again.
     "
     aView isPopUpView ifFalse:[
-	"
-	 if I have a mainGroup,
-	 only raise if its one of my maingroup-views
-	"
-	windowGroup notNil ifTrue:[
-	    mainGroup := windowGroup mainGroup.
-	    mainGroup notNil ifTrue:[
-		topViews := mainGroup topViews.
-		topViews notNil ifTrue:[
-		    topViews do:[:aTopView |
-			aView == aTopView ifTrue:[
-			    self raise.     
-			    ^ self
-			]
-		    ]
-		].
-		^ self
-	    ]
-	].
-	self raise
+        "
+         if I have a mainGroup,
+         only raise if its one of my maingroup-views
+        "
+        windowGroup notNil ifTrue:[
+            mainGroup := windowGroup mainGroup.
+            mainGroup notNil ifTrue:[
+                topViews := mainGroup topViews.
+                topViews notNil ifTrue:[
+                    topViews do:[:eachTopView |
+                        aView == eachTopView ifTrue:[
+                            self raise.     
+                            ^ self
+                        ]
+                    ]
+                ].
+                ^ self
+            ]
+        ].
+        self raise
     ]
 !
 
@@ -895,7 +895,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.96 2008-10-26 20:09:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.97 2009-03-20 17:11:26 stefan Exp $'
 ! !
 
 ModalBox initialize!