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.
first change selectionHolders value,
authorClaus Gittinger <cg@exept.de>
Wed, 19 Nov 1997 17:32:08 +0100
changeset 623 4de870640523
parent 622 2588f809445d
child 624 d98fe4700fc2
first change selectionHolders value, then make notifications
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- a/SelTreeV.st	Fri Nov 14 12:55:14 1997 +0100
+++ b/SelTreeV.st	Wed Nov 19 17:32:08 1997 +0100
@@ -1192,12 +1192,16 @@
 selectionChangedFrom:oldSelection
     "update selectionHolder if not nil
     "
-    super selectionChangedFrom:oldSelection.
 
+    "/ first change my selectionHolders value ...
     selectionHolder notNil ifTrue:[
         self selectionToModel.
     ].
 
+    "/ ... then make notifications.
+    super selectionChangedFrom:oldSelection.
+
+
 ! !
 
 !SelectionInTreeView methodsFor:'selection-actions'!
@@ -1339,5 +1343,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.30 1997-10-29 16:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.31 1997-11-19 16:32:08 cg Exp $'
 ! !
--- a/SelectionInTreeView.st	Fri Nov 14 12:55:14 1997 +0100
+++ b/SelectionInTreeView.st	Wed Nov 19 17:32:08 1997 +0100
@@ -1192,12 +1192,16 @@
 selectionChangedFrom:oldSelection
     "update selectionHolder if not nil
     "
-    super selectionChangedFrom:oldSelection.
 
+    "/ first change my selectionHolders value ...
     selectionHolder notNil ifTrue:[
         self selectionToModel.
     ].
 
+    "/ ... then make notifications.
+    super selectionChangedFrom:oldSelection.
+
+
 ! !
 
 !SelectionInTreeView methodsFor:'selection-actions'!
@@ -1339,5 +1343,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.30 1997-10-29 16:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.31 1997-11-19 16:32:08 cg Exp $'
 ! !
hg/stx-libwidg2