--- a/ComboBoxView.st Fri Jul 26 18:03:04 1996 +0200
+++ b/ComboBoxView.st Fri Jul 26 18:03:25 1996 +0200
@@ -5,7 +5,7 @@
category:'Views-Interactors'
!
-!ComboBoxView class methodsFor:'documentation'!
+!ComboBoxView class methodsFor:'documentation'!
documentation
"
@@ -155,17 +155,20 @@
!ComboBoxView methodsFor:'user interaction'!
-entryChanged:what
+entryChanged:index
+ |what|
+
+ what := list at:index.
field contents:what.
field accept.
pullDownButton turnOff.
"Created: 9.2.1996 / 01:06:01 / cg"
- "Modified: 28.2.1996 / 15:08:14 / cg"
+ "Modified: 26.7.1996 / 17:13:41 / cg"
! !
-!ComboBoxView class methodsFor:'documentation'!
+!ComboBoxView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.8 1996-05-18 15:43:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.9 1996-07-26 16:03:25 cg Exp $'
! !