no need of scrolling for one item if selecting an item
authortz
Sat, 03 Oct 1998 11:03:49 +0200
changeset 1162 b1aee7c3fd98
parent 1161 42796d8e6544
child 1163 f46f69609c53
no need of scrolling for one item if selecting an item
SelTreeV.st
SelectionInTreeView.st
--- a/SelTreeV.st	Fri Oct 02 18:52:09 1998 +0200
+++ b/SelTreeV.st	Sat Oct 03 11:03:49 1998 +0200
@@ -1960,13 +1960,12 @@
     "redefined to scroll whenever line is not in top half"
 
     (aListLineNr >= firstLineShown) ifTrue:[
-        (aListLineNr < (firstLineShown + (nFullLinesShown // 2))) ifTrue:[
+        (aListLineNr < (firstLineShown + nFullLinesShown)) ifTrue:[
             ^ false
         ]
     ].
     ^ true
 
-    "Modified: / 7.8.1998 / 15:36:42 / cg"
 ! !
 
 !SelectionInTreeView methodsFor:'selection'!
@@ -2134,5 +2133,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.67 1998-09-01 13:38:18 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.68 1998-10-03 09:03:49 tz Exp $'
 ! !
--- a/SelectionInTreeView.st	Fri Oct 02 18:52:09 1998 +0200
+++ b/SelectionInTreeView.st	Sat Oct 03 11:03:49 1998 +0200
@@ -1960,13 +1960,12 @@
     "redefined to scroll whenever line is not in top half"
 
     (aListLineNr >= firstLineShown) ifTrue:[
-        (aListLineNr < (firstLineShown + (nFullLinesShown // 2))) ifTrue:[
+        (aListLineNr < (firstLineShown + nFullLinesShown)) ifTrue:[
             ^ false
         ]
     ].
     ^ true
 
-    "Modified: / 7.8.1998 / 15:36:42 / cg"
 ! !
 
 !SelectionInTreeView methodsFor:'selection'!
@@ -2134,5 +2133,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.67 1998-09-01 13:38:18 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.68 1998-10-03 09:03:49 tz Exp $'
 ! !