--- a/PullDownMenu.st	Mon Dec 11 17:52:55 1995 +0100
+++ b/PullDownMenu.st	Mon Dec 11 18:03:27 1995 +0100
@@ -12,14 +12,14 @@
 
 SimpleView subclass:#PullDownMenu
 	 instanceVariableNames:'receiver menus titles selectors activeMenuNumber
-                showSeparatingLines topMargin fgColor bgColor activeFgColor
-                activeBgColor onLevel offLevel edgeStyle keepMenu toggleKeep
-                raiseTopWhenActivated'
+		showSeparatingLines topMargin fgColor bgColor activeFgColor
+		activeBgColor onLevel offLevel edgeStyle keepMenu toggleKeep
+		raiseTopWhenActivated'
 	 classVariableNames:'DefaultFont DefaultViewBackground DefaultForegroundColor
-                DefaultBackgroundColor DefaultHilightForegroundColor
-                DefaultHilightBackgroundColor DefaultLevel DefaultHilightLevel
-                DefaultShadowColor DefaultLightColor DefaultEdgeStyle
-                DefaultKeepMenu DefaultToggleKeep DefaultSeparatingLines'
+		DefaultBackgroundColor DefaultHilightForegroundColor
+		DefaultHilightBackgroundColor DefaultLevel DefaultHilightLevel
+		DefaultShadowColor DefaultLightColor DefaultEdgeStyle
+		DefaultKeepMenu DefaultToggleKeep DefaultSeparatingLines'
 	 poolDictionaries:''
 	 category:'Views-Menus'
 !
@@ -611,10 +611,10 @@
 		    height:height
 		     level:(selected ifTrue:[onLevel] ifFalse:[offLevel])
     ].
-    self paint:fg.
+    self paint:fg on:bg.
     x := x + wSpace.
     stringOrImage isString ifTrue:[
-	self displayString:stringOrImage x:x y:y
+	self displayOpaqueString:stringOrImage x:x y:y
     ] ifFalse:[
 	stringOrImage isImageOrForm ifTrue:[
 	    stringOrImage depth == 1 ifTrue:[
@@ -1248,5 +1248,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.28 1995-11-23 18:15:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.29 1995-12-11 17:03:27 cg Exp $'
 ! !