--- a/ComboView.st	Thu Jul 25 20:13:30 1996 +0200
+++ b/ComboView.st	Fri Jul 26 18:03:04 1996 +0200
@@ -192,7 +192,7 @@
     "
 
     "Created: 28.2.1996 / 15:03:17 / cg"
-    "Modified: 17.7.1996 / 11:39:25 / cg"
+    "Modified: 26.7.1996 / 17:44:27 / cg"
 ! !
 
 !ComboView methodsFor:'message delegation'!
@@ -253,13 +253,16 @@
 
 !ComboView methodsFor:'user interaction'!
 
-entryChanged:what
+entryChanged:index
+    |what|
+
+    what := list at:index.
     field contents:what.
     field accept.
     pullDownButton turnOff.
 
     "Created: 28.2.1996 / 15:03:17 / cg"
-    "Modified: 28.2.1996 / 15:06:24 / cg"
+    "Modified: 26.7.1996 / 17:13:10 / cg"
 !
 
 pullMenu
@@ -270,7 +273,7 @@
         m := PopUpMenu
                     labels:list
                     selectors:#entryChanged:
-                    args:list
+                    args:(1 to:list size)
                     receiver:self.
 
         m menuView resize.
@@ -288,11 +291,11 @@
     pullDownButton turnOff.
 
     "Created: 28.2.1996 / 15:03:18 / cg"
-    "Modified: 15.7.1996 / 12:23:06 / cg"
+    "Modified: 26.7.1996 / 17:11:54 / cg"
 ! !
 
 !ComboView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.6 1996-07-17 12:22:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.7 1996-07-26 16:03:04 cg Exp $'
 ! !