--- a/PopUpList.st	Wed Aug 18 16:31:38 1999 +0200
+++ b/PopUpList.st	Wed Aug 18 16:39:18 1999 +0200
@@ -844,7 +844,7 @@
     ] ifFalse:[
         "hack: simulate logo change to longest menu entry"
 
-        font := font on:device.
+        font := font onDevice:device.
         longest := logo.
         logo isNil ifTrue:[
             longestWidth := 0
@@ -1044,5 +1044,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.62 1999-06-10 16:17:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.63 1999-08-18 14:39:18 cg Exp $'
 ! !