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.
missing return
authortz
Mon, 23 Feb 1998 20:17:59 +0100
changeset 780 b5e301a1293c
parent 779 0abab228a8fd
child 781 6a3fecc22e7b
missing return
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- a/SelTreeV.st	Mon Feb 23 19:28:01 1998 +0100
+++ b/SelTreeV.st	Mon Feb 23 20:17:59 1998 +0100
@@ -595,7 +595,7 @@
                 "/ vertical line from previous to current form
                 (     xCross >= x0
                  and:[level ~~ 1
-                 and:[node parent children last == node]]
+                 and:["node parent children notEmpty and: ["node parent children last == node"]"]]
                 ) ifTrue:[
                     self displayLineFromX:xCross y:yTop - 1 toX:xCross y:yCtr
                 ].
@@ -852,7 +852,7 @@
     ].
 
     (selectConditionBlock isNil or:[selectConditionBlock value:index]) ifTrue:[
-        super key:key select:index x:x y:y
+        ^ super key:key select:index x:x y:y
     ].
 
     keyActionStyle == #pass ifTrue:[
@@ -1550,5 +1550,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.45 1998-02-23 16:53:35 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.46 1998-02-23 19:17:59 tz Exp $'
 ! !
--- a/SelectionInTreeView.st	Mon Feb 23 19:28:01 1998 +0100
+++ b/SelectionInTreeView.st	Mon Feb 23 20:17:59 1998 +0100
@@ -595,7 +595,7 @@
                 "/ vertical line from previous to current form
                 (     xCross >= x0
                  and:[level ~~ 1
-                 and:[node parent children last == node]]
+                 and:["node parent children notEmpty and: ["node parent children last == node"]"]]
                 ) ifTrue:[
                     self displayLineFromX:xCross y:yTop - 1 toX:xCross y:yCtr
                 ].
@@ -852,7 +852,7 @@
     ].
 
     (selectConditionBlock isNil or:[selectConditionBlock value:index]) ifTrue:[
-        super key:key select:index x:x y:y
+        ^ super key:key select:index x:x y:y
     ].
 
     keyActionStyle == #pass ifTrue:[
@@ -1550,5 +1550,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.45 1998-02-23 16:53:35 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.46 1998-02-23 19:17:59 tz Exp $'
 ! !
hg/stx-libwidg2