--- a/PullDMenu.st	Tue May 28 21:15:17 1996 +0200
+++ b/PullDMenu.st	Tue May 28 21:19:41 1996 +0200
@@ -1196,46 +1196,46 @@
 
     showSeparatingLines := DefaultSeparatingLines. "/ false.
     DefaultViewBackground notNil ifTrue:[
-	viewBackground := DefaultViewBackground on:device
+        viewBackground := DefaultViewBackground on:device
     ].
 
     DefaultForegroundColor notNil ifTrue:[
-	fgColor := DefaultForegroundColor
+        fgColor := DefaultForegroundColor
     ] ifFalse:[
-	fgColor := Black.
+        fgColor := Black.
     ].
     DefaultBackgroundColor notNil ifTrue:[
-	bgColor := DefaultBackgroundColor
+        bgColor := DefaultBackgroundColor
     ] ifFalse:[
-	bgColor := viewBackground.
+        bgColor := viewBackground.
     ].
     onLevel := DefaultHilightLevel.
     offLevel := DefaultLevel.
 
     self is3D ifTrue:[
-	device hasColors ifTrue:[
-	    activeFgColor := Color name:'yellow'
-	] ifFalse:[
-	    activeFgColor := White
-	].
-	device hasGreyscales ifTrue:[
-	    activeBgColor := bgColor.
-	] ifFalse:[
-	    activeBgColor := fgColor.
-	].
-	topMargin := 2.
+        device hasColors ifTrue:[
+            activeFgColor := Color name:'yellow'
+        ] ifFalse:[
+            activeFgColor := White
+        ].
+        device hasGrayscales ifTrue:[
+            activeBgColor := bgColor.
+        ] ifFalse:[
+            activeBgColor := fgColor.
+        ].
+        topMargin := 2.
 
-	style := styleSheet name.
-	((style == #iris) or:[style == #motif]) ifTrue:[
-	    self level:2.
-	    onLevel := 2.
-	    offLevel := 0.
-	    activeFgColor := fgColor
-	]
+        style := styleSheet name.
+        ((style == #iris) or:[style == #motif]) ifTrue:[
+            self level:2.
+            onLevel := 2.
+            offLevel := 0.
+            activeFgColor := fgColor
+        ]
     ] ifFalse:[
-	activeFgColor := bgColor.
-	activeBgColor := fgColor.
-	topMargin := 0
+        activeFgColor := bgColor.
+        activeBgColor := fgColor.
+        topMargin := 0
     ].
 
     edgeStyle := DefaultEdgeStyle.
@@ -1243,16 +1243,16 @@
     toggleKeep := DefaultToggleKeep.
 
     DefaultHilightForegroundColor notNil ifTrue:[
-	activeFgColor := DefaultHilightForegroundColor
+        activeFgColor := DefaultHilightForegroundColor
     ].
     DefaultHilightBackgroundColor notNil ifTrue:[
-	activeBgColor := DefaultHilightBackgroundColor
+        activeBgColor := DefaultHilightBackgroundColor
     ].
     DefaultShadowColor notNil ifTrue:[
-	shadowColor := DefaultShadowColor on:device
+        shadowColor := DefaultShadowColor on:device
     ].
     DefaultLightColor notNil ifTrue:[
-	lightColor := DefaultLightColor on:device
+        lightColor := DefaultLightColor on:device
     ].
 
     bgColor := bgColor on:device.
@@ -1261,6 +1261,8 @@
     activeFgColor := activeFgColor on:device.
 
     raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true.
+
+    "Modified: 28.5.1996 / 21:13:10 / cg"
 !
 
 initialize
@@ -1523,5 +1525,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.55 1996-05-25 12:22:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.56 1996-05-28 19:19:41 cg Exp $'
 ! !