--- a/PullDownMenu.st	Wed May 03 02:30:14 1995 +0200
+++ b/PullDownMenu.st	Wed May 03 02:39:07 1995 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-View subclass:#PullDownMenu
+SimpleView subclass:#PullDownMenu
        instanceVariableNames:'menus titles selectors activeMenuNumber
 			      showSeparatingLines topMargin
 			      fgColor bgColor activeFgColor activeBgColor
@@ -33,7 +33,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.16 1995-04-11 16:24:06 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.17 1995-05-03 00:37:05 claus Exp $
 '!
 
 !PullDownMenu class methodsFor:'documentation'!
@@ -54,7 +54,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.16 1995-04-11 16:24:06 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.17 1995-05-03 00:37:05 claus Exp $
 "
 !
 
@@ -615,17 +615,13 @@
 setMenuOrigins
     "adjust origins of menus when font changes"
 
-    |index|
-
     (font device == device) ifTrue:[
-	index := 1.
-	menus do:[:aMenu |
+	menus keysAndValuesDo:[:index :aMenu |
 	    aMenu notNil ifTrue:[
 		aMenu origin:((left + (self titleLenUpTo:index)) 
 			      @
 			      (height + aMenu borderWidth))
 	    ].
-	    index := index + 1
 	]
     ]
 !