--- a/SelTreeV.st Mon Mar 30 14:05:40 1998 +0200
+++ b/SelTreeV.st Mon Mar 30 14:07:50 1998 +0200
@@ -931,7 +931,7 @@
[(idx := idx + inc) ~~ end] whileTrue:[
node := listOfNodes at:idx.
- node isDirectory ifTrue:[
+ node hasChildren ifTrue:[
^ self key:key select:idx x:x y:y
]
].
@@ -1750,5 +1750,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.50 1998-03-09 16:08:44 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.51 1998-03-30 12:07:50 ca Exp $'
! !
--- a/SelectionInTreeView.st Mon Mar 30 14:05:40 1998 +0200
+++ b/SelectionInTreeView.st Mon Mar 30 14:07:50 1998 +0200
@@ -931,7 +931,7 @@
[(idx := idx + inc) ~~ end] whileTrue:[
node := listOfNodes at:idx.
- node isDirectory ifTrue:[
+ node hasChildren ifTrue:[
^ self key:key select:idx x:x y:y
]
].
@@ -1750,5 +1750,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.50 1998-03-09 16:08:44 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.51 1998-03-30 12:07:50 ca Exp $'
! !