--- a/PullDMenu.st	Thu Nov 17 15:34:12 1994 +0100
+++ b/PullDMenu.st	Thu Nov 17 15:38:53 1994 +0100
@@ -14,7 +14,7 @@
        instanceVariableNames:'menus titles activeMenuNumber
 			      showSeparatingLines topMargin
 			      fgColor bgColor activeFgColor activeBgColor
-			      onLevel offLevel
+			      onLevel offLevel edgeStyle
 			      keepMenu'
        classVariableNames:'DefaultFont
 			   DefaultViewBackground 
@@ -23,7 +23,8 @@
 			   DefaultHilightForegroundColor 
 			   DefaultHilightBackgroundColor
 			   DefaultLevel DefaultHilightLevel
-			   DefaultShadowColor DefaultLightColor'
+			   DefaultShadowColor DefaultLightColor 
+			   DefaultEdgeStyle DefaultKeep'
        poolDictionaries:''
        category:'Views-Menus'
 !
@@ -32,7 +33,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.7 1994-10-28 03:25:19 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.8 1994-11-17 14:38:32 claus Exp $
 '!
 
 !PullDownMenu class methodsFor:'documentation'!
@@ -53,7 +54,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.7 1994-10-28 03:25:19 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.8 1994-11-17 14:38:32 claus Exp $
 "
 !
 
@@ -108,6 +109,8 @@
     DefaultHilightLevel isNil ifTrue:[
 	DefaultHilightLevel := StyleSheet at:'menuHilightLevel' default:0.
     ].
+    DefaultEdgeStyle := StyleSheet at:'pullDownMenuEdgeStyle'.
+    DefaultKeepMenu := StyleSheet at:'pullDownMenuKeepMenu'.
     DefaultLevel := StyleSheet at:'pullDownMenuLevel' default:1.
     DefaultFont := StyleSheet fontAt:'pullDownMenuFont'.
     DefaultFont isNil ifTrue:[
@@ -172,7 +175,6 @@
 
 	((style == #iris) or:[style == #motif]) ifTrue:[
 	    self level:2.
-	    softEdge := true.
 	    onLevel := 2.
 	    offLevel := 0.
 	    activeFgColor := fgColor
@@ -183,6 +185,9 @@
 	topMargin := 0
     ].
 
+    edgeStyle := DefaultEdgeStyle.
+    keepMenu := DefaultKeepMenu.
+
     DefaultHilightForegroundColor notNil ifTrue:[
 	activeFgColor := DefaultHilightForegroundColor
     ].
@@ -200,8 +205,6 @@
     fgColor := fgColor on:device.
     activeBgColor := activeBgColor on:device.
     activeFgColor := activeFgColor on:device.
-
-    keepMenu := (style == #motif) or:[(style == #iris) or:[style == #mswindows]].
 !
 
 initEvents