--- a/WindowBuilder.st	Thu Oct 11 18:29:52 2001 +0200
+++ b/WindowBuilder.st	Thu Oct 11 18:32:49 2001 +0200
@@ -1224,7 +1224,8 @@
     ].
 
     type == #dialog ifTrue:[
-        origin == #center ifTrue:[
+        ((origin isNil and:[window class forceModalBoxesToOpenAtCenter])
+        or:[origin == #center]) ifTrue:[
             window origin:(window device center - (window extent // 2))
         ] ifFalse:[
             window fixPosition:(window device pointerPosition - window positionOffset).
@@ -1266,5 +1267,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.93 2001-09-12 15:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.94 2001-10-11 16:32:49 cg Exp $'
 ! !