--- a/ModalBox.st	Tue Jan 21 22:55:28 1997 +0100
+++ b/ModalBox.st	Wed Jan 22 18:24:33 1997 +0100
@@ -238,16 +238,20 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     |style|
 
     super initStyle.
     style := styleSheet name.
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
-	borderWidth := 0.
-	UseTransientViews ifFalse:[
-	    self level:2
-	]
+        borderWidth := 0.
+        UseTransientViews ifFalse:[
+            self level:2
+        ]
     ]
+
+    "Modified: 22.1.1997 / 11:57:35 / cg"
 !
 
 initialize
@@ -828,6 +832,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.50 1997-01-16 21:03:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.51 1997-01-22 17:24:33 cg Exp $'
 ! !
 ModalBox initialize!

--- a/PopUpView.st	Tue Jan 21 22:55:28 1997 +0100
+++ b/PopUpView.st	Wed Jan 22 18:24:33 1997 +0100
@@ -207,32 +207,36 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     styleSheet is3D == true ifTrue:[
-	borderWidth := 0.
-	level := 2
+        borderWidth := 0.
+        level := 2
     ] ifFalse:[
-	borderWidth := 1.
-	level := 0
+        borderWidth := 1.
+        level := 0
     ].
 
     DefaultBorderColor notNil ifTrue:[
-	self borderColor:(DefaultBorderColor on:device).
+        self borderColor:(DefaultBorderColor on:device).
     ].
     DefaultBorderWidth notNil ifTrue:[
-	borderWidth := DefaultBorderWidth.
+        borderWidth := DefaultBorderWidth.
     ].
 "/    DefaultEdgeStyle notNil ifTrue:[
 "/        edgeStyle := DefaultEdgeStyle.
 "/    ].
     DefaultLevel notNil ifTrue:[
-	self level:DefaultLevel.
+        self level:DefaultLevel.
     ].
 
     DefaultShadow ifTrue:[
-	shadowView := (ShadowView onDevice:device) for:self.
+        shadowView := (ShadowView onDevice:device) for:self.
     ].
+
+    "Modified: 22.1.1997 / 11:57:38 / cg"
 !
 
 initialize
@@ -336,5 +340,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.32 1997-01-10 17:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.33 1997-01-22 17:24:12 cg Exp $'
 ! !