SelectionInTreeView.st
changeset 3985 4638e9fbb842
parent 3744 b956bec8751b
child 4246 b2aeabea341b
--- a/SelectionInTreeView.st	Tue Jan 18 18:07:24 2011 +0100
+++ b/SelectionInTreeView.st	Wed Jan 19 19:34:53 2011 +0100
@@ -2281,9 +2281,11 @@
     |idx|
 
     (idx := self selectedIndex) ~~ 0 ifTrue:[
-        ^ listOfNodes at:idx
+        ^ listOfNodes at:idx ifAbsent:nil
     ].
-  ^ nil
+    ^ nil
+
+    "Modified: / 19-01-2011 / 18:41:02 / cg"
 !
 
 selectedNodes
@@ -2502,5 +2504,9 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.114 2009-09-16 14:16:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.115 2011-01-19 18:34:53 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.115 2011-01-19 18:34:53 cg Exp $'
 ! !