--- a/NewInspectorListView.st Fri Oct 10 20:12:52 1997 +0200
+++ b/NewInspectorListView.st Fri Oct 10 20:59:33 1997 +0200
@@ -45,8 +45,6 @@
list:aList
"set the lists contents from another list
"
- |list selNr|
-
aList notNil ifTrue:[inspectorList := aList list]
ifFalse:[inspectorList := InspectorList new].
@@ -121,6 +119,8 @@
"
|nr|
+ nr := self visibleLineToListLine:visLineNr.
+
(inspectorList instanceTypeAt:nr) == #directory ifTrue:[
^ true
].
@@ -182,8 +182,6 @@
"set the list - redefined, since setting the list implies unselecting
and clearing attributes."
- |oldSelection|
-
"somewhat of a kludge: if selection is first line,
we have to remove the highlight frame by hand here"