Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
oops
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 1997 14:02:31 +0100
changeset 311 d790d0524822
parent 310 15ef4f52f8cf
child 312 ec32b0a6259a
oops
ComboBoxV.st file | annotate | diff | comparison | revisions
ComboBoxView.st file | annotate | diff | comparison | revisions 
--- a/ComboBoxV.st	Fri Feb 28 13:55:44 1997 +0100
+++ b/ComboBoxV.st	Fri Feb 28 14:02:31 1997 +0100
@@ -186,7 +186,18 @@
 
 !ComboBoxView methodsFor:'user interaction'!
 
-entryChanged:index
+fieldLeft
+    field accept.
+
+    action notNil ifTrue:[
+        action value:(field contents)
+    ].
+
+    "Modified: 26.2.1997 / 19:38:24 / cg"
+    "Created: 26.2.1997 / 19:42:30 / cg"
+!
+
+select:index
     |what|
 
     what := list at:index.
@@ -198,23 +209,12 @@
         action value:what
     ].
 
-    "Created: 9.2.1996 / 01:06:01 / cg"
     "Modified: 26.2.1997 / 19:38:24 / cg"
-!
-
-fieldLeft
-    field accept.
-
-    action notNil ifTrue:[
-        action value:(field contents)
-    ].
-
-    "Modified: 26.2.1997 / 19:38:24 / cg"
-    "Created: 26.2.1997 / 19:42:30 / cg"
+    "Created: 28.2.1997 / 14:01:53 / cg"
 ! !
 
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboBoxV.st,v 1.14 1997-02-26 18:47:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboBoxV.st,v 1.15 1997-02-28 13:02:31 cg Exp $'
 ! !
--- a/ComboBoxView.st	Fri Feb 28 13:55:44 1997 +0100
+++ b/ComboBoxView.st	Fri Feb 28 14:02:31 1997 +0100
@@ -186,7 +186,18 @@
 
 !ComboBoxView methodsFor:'user interaction'!
 
-entryChanged:index
+fieldLeft
+    field accept.
+
+    action notNil ifTrue:[
+        action value:(field contents)
+    ].
+
+    "Modified: 26.2.1997 / 19:38:24 / cg"
+    "Created: 26.2.1997 / 19:42:30 / cg"
+!
+
+select:index
     |what|
 
     what := list at:index.
@@ -198,23 +209,12 @@
         action value:what
     ].
 
-    "Created: 9.2.1996 / 01:06:01 / cg"
     "Modified: 26.2.1997 / 19:38:24 / cg"
-!
-
-fieldLeft
-    field accept.
-
-    action notNil ifTrue:[
-        action value:(field contents)
-    ].
-
-    "Modified: 26.2.1997 / 19:38:24 / cg"
-    "Created: 26.2.1997 / 19:42:30 / cg"
+    "Created: 28.2.1997 / 14:01:53 / cg"
 ! !
 
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.14 1997-02-26 18:47:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.15 1997-02-28 13:02:31 cg Exp $'
 ! !
hg/stx-libwidg2