--- a/ModalBox.st	Fri Oct 23 14:29:05 2009 +0200
+++ b/ModalBox.st	Fri Oct 23 17:20:26 2009 +0200
@@ -298,7 +298,7 @@
     super initStyle.
     style := styleSheet name.
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
-        borderWidth := 0.
+        self borderWidth:0.
         UseTransientViews ifFalse:[
             self level:2
         ]
@@ -895,7 +895,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.97 2009-03-20 17:11:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.98 2009-10-23 15:20:26 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.98 2009-10-23 15:20:26 cg Exp $'
 ! !
 
 ModalBox initialize!