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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 20 Dec 1996 21:10:02 +0100
changeset 270 35558a88d500
parent 269 167651794a77
child 271 20c0553a327a
checkin from browser
ComboListV.st file | annotate | diff | comparison | revisions
ComboListView.st file | annotate | diff | comparison | revisions 
--- a/ComboListV.st	Fri Dec 20 12:19:23 1996 +0100
+++ b/ComboListV.st	Fri Dec 20 21:10:02 1996 +0100
@@ -5,7 +5,7 @@
 	category:'Views-Interactors'
 !
 
-!ComboListView  class methodsFor:'documentation'!
+!ComboListView class methodsFor:'documentation'!
 
 documentation
 "
@@ -180,20 +180,18 @@
 !ComboListView methodsFor:'user interaction'!
 
 entryChanged:index
-    |what|
+    |what changeArg|
 
     what := list at:index.
     field label:what.
 
-
     model notNil ifTrue:[
         useIndex ifTrue:[
-            self sendChangeMessage:changeMsg with:index
-"/            model value:index
+            changeArg := index
         ] ifFalse:[
-            self sendChangeMessage:changeMsg with:what
-"/            model value:what
-        ]
+            changeArg := what
+        ].
+        self sendChangeMessage:changeMsg with:changeArg
     ].
     pullDownButton turnOff.
 
@@ -201,8 +199,8 @@
     "Modified: 4.9.1996 / 22:38:57 / cg"
 ! !
 
-!ComboListView  class methodsFor:'documentation'!
+!ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.7 1996-09-04 21:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ComboListV.st,v 1.8 1996-12-20 20:10:02 cg Exp $'
 ! !
--- a/ComboListView.st	Fri Dec 20 12:19:23 1996 +0100
+++ b/ComboListView.st	Fri Dec 20 21:10:02 1996 +0100
@@ -5,7 +5,7 @@
 	category:'Views-Interactors'
 !
 
-!ComboListView  class methodsFor:'documentation'!
+!ComboListView class methodsFor:'documentation'!
 
 documentation
 "
@@ -180,20 +180,18 @@
 !ComboListView methodsFor:'user interaction'!
 
 entryChanged:index
-    |what|
+    |what changeArg|
 
     what := list at:index.
     field label:what.
 
-
     model notNil ifTrue:[
         useIndex ifTrue:[
-            self sendChangeMessage:changeMsg with:index
-"/            model value:index
+            changeArg := index
         ] ifFalse:[
-            self sendChangeMessage:changeMsg with:what
-"/            model value:what
-        ]
+            changeArg := what
+        ].
+        self sendChangeMessage:changeMsg with:changeArg
     ].
     pullDownButton turnOff.
 
@@ -201,8 +199,8 @@
     "Modified: 4.9.1996 / 22:38:57 / cg"
 ! !
 
-!ComboListView  class methodsFor:'documentation'!
+!ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.7 1996-09-04 21:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.8 1996-12-20 20:10:02 cg Exp $'
 ! !
hg/stx-libwidg2