--- 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 $'
 ! !