--- a/PopUpMenu.st	Wed May 22 13:18:22 1996 +0200
+++ b/PopUpMenu.st	Wed May 22 13:25:23 1996 +0200
@@ -901,7 +901,15 @@
 !PopUpMenu methodsFor:'accessing-look'!
 
 font:aFont
+    "set the menus font.
+     CAVEAT: with the addition of Text objects,
+             this method is going to be obsoleted by a textStyle
+             method, which allows specific control over
+             normalFont/boldFont/italicFont parameters."
+
     menuView font:aFont
+
+    "Modified: 22.5.1996 / 12:36:53 / cg"
 !
 
 viewBackground:aColor
@@ -1167,5 +1175,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.51 1996-05-18 15:41:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.52 1996-05-22 11:25:06 cg Exp $'
 ! !