--- a/ModalBox.st	Thu Feb 19 07:16:11 2015 +0100
+++ b/ModalBox.st	Fri Feb 20 14:19:24 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 StandardSystemView subclass:#ModalBox
 	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel'
 	classVariableNames:'UseTransientViews DefaultExtent'
@@ -433,9 +435,10 @@
     shown ifTrue:[
         delta := width - newExtent x.
         newLeft := left + delta.
-        (((newLeft @ top) extent:newExtent)
-            containsPoint:self graphicsDevice pointerPosition)
-        ifFalse:[newLeft := left].
+        (((newLeft @ top) extent:newExtent) containsPoint:self graphicsDevice pointerPosition
+        ) ifFalse:[
+            newLeft := left
+        ].
         newLeft < 0 ifTrue:[newLeft := 0].
         screenWidth := self graphicsDevice usableWidth.
         newLeft + newExtent x > screenWidth ifTrue:[
@@ -904,11 +907,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.111 2014-02-18 14:59:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.112 2015-02-20 13:19:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.111 2014-02-18 14:59:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.112 2015-02-20 13:19:24 cg Exp $'
 ! !