--- a/PullDownMenu.st	Wed Jan 14 18:02:40 2004 +0100
+++ b/PullDownMenu.st	Fri Jan 30 00:00:26 2004 +0100
@@ -378,7 +378,7 @@
                        #'pullDownMenu.edgeStyle' 
                        #'pullDownMenu.toggleMode'
                        #'pullDownMenu.level'
-                       #'pullDownMenu.font' #'menu.font'
+                       #'pullDownMenu.font' 
                        #'pullDownMenu.separatingLines')>
 
     |styleSheet|
@@ -417,7 +417,9 @@
     DefaultToggleMode := styleSheet at:#'pullDownMenu.toggleMode' default:#toggle.
     DefaultLevel := styleSheet at:#'pullDownMenu.level' default:1.
     DefaultFont := styleSheet fontAt:#'pullDownMenu.font'.
-    DefaultFont isNil ifTrue:[DefaultFont := styleSheet fontAt:#'menu.font'].
+    DefaultFont isNil ifTrue:[
+        DefaultFont := MenuView defaultFont
+    ].
     DefaultSeparatingLines := styleSheet at:#'pullDownMenu.separatingLines' default:false.
 
     "
@@ -1803,5 +1805,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.96 2003-05-07 14:54:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.97 2004-01-29 23:00:26 ca Exp $'
 ! !