raise selectionChanged notification in case that
authortm
Fri, 19 Mar 1999 12:57:36 +0100
changeset 1259 be271bf31e4b
parent 1258 d41cbd2c3dc8
child 1260 601b187cf4c4
raise selectionChanged notification in case that list changed and an selection exists before
DSVColumnView.st
--- a/DSVColumnView.st	Fri Mar 19 12:29:16 1999 +0100
+++ b/DSVColumnView.st	Fri Mar 19 12:57:36 1999 +0100
@@ -750,10 +750,12 @@
 list:aList
     "set the list of rows
     "
-    |makeDependent|
+    |makeDependent selectionHasChanged|
 
     "/ remove selection without redraw
 
+    selectionHasChanged := self hasSelection.
+
     editValue notNil ifTrue:[
         editValue removeDependent:self.
         editValue := nil
@@ -792,8 +794,9 @@
         self invalidate.
         self contentsChanged.
     ].
-
-
+    selectionHasChanged ifTrue:[
+        self selectionChanged.
+    ].
 
 
 ! !
@@ -3001,5 +3004,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.69 1999-03-19 11:29:16 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.70 1999-03-19 11:57:36 tm Exp $'
 ! !