--- a/HierarchicalListEditor.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/HierarchicalListEditor.st	Fri Oct 10 20:59:33 1997 +0200
@@ -960,7 +960,7 @@
 doDefineSelector
     "define selector only
     "
-    |sel cls bindings accepted|
+    |sel bindings accepted|
 
     accepted := true.
     bindings := IdentityDictionary new.
@@ -1206,7 +1206,7 @@
 buildFrom:aClass andSelector:aSelector
     "rebuild window from a class and selector
     "
-    |sel anchor stream|
+    |sel anchor|
 
     (specClass := aClass) isBehavior ifFalse:[
         specClass notNil ifTrue:[

--- a/InspectorList.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/InspectorList.st	Fri Oct 10 20:59:33 1997 +0200
@@ -201,7 +201,7 @@
     "returns the instnace variable assigned to the index or 
      nil in case of an invalid index.
     "
-    |idx nm|
+    |nm|
 
     (anIndex isNil or:[anIndex > instanceTypes size]) ifFalse:[
         nm := instanceNames at:anIndex.

--- a/InspectorListView.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/InspectorListView.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"
 

--- a/InspectorPanelView.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/InspectorPanelView.st	Fri Oct 10 20:59:33 1997 +0200
@@ -473,7 +473,7 @@
 viewMenu:anIndex
     "popup menu required for a view identified by its sequence number
     "
-    |view menu inst args lbls txt|
+    |view menu inst args lbls|
 
     view := listViews at:anIndex.
     view hasSelection ifFalse:[^ nil].
@@ -693,7 +693,7 @@
 moveContentsLeft:nTimes
     "move the contents of all views one position left
     "
-    |fView stop assoc inspObj pView index|
+    |fView stop pView index|
 
     (nTimes < 1 or:[listViews last isEmpty]) ifTrue:[
         ^ self
@@ -729,7 +729,7 @@
 moveContentsRight:nTimes
     "move the contents of all views one position right
     "
-    |view assoc size index lView fView|
+    |size index lView fView|
 
     size := leftHistory size.
 

--- a/NewInspectorList.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/NewInspectorList.st	Fri Oct 10 20:59:33 1997 +0200
@@ -201,7 +201,7 @@
     "returns the instnace variable assigned to the index or 
      nil in case of an invalid index.
     "
-    |idx nm|
+    |nm|
 
     (anIndex isNil or:[anIndex > instanceTypes size]) ifFalse:[
         nm := instanceNames at:anIndex.

--- 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"
 

--- a/NewInspectorPanelView.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/NewInspectorPanelView.st	Fri Oct 10 20:59:33 1997 +0200
@@ -473,7 +473,7 @@
 viewMenu:anIndex
     "popup menu required for a view identified by its sequence number
     "
-    |view menu inst args lbls txt|
+    |view menu inst args lbls|
 
     view := listViews at:anIndex.
     view hasSelection ifFalse:[^ nil].
@@ -693,7 +693,7 @@
 moveContentsLeft:nTimes
     "move the contents of all views one position left
     "
-    |fView stop assoc inspObj pView index|
+    |fView stop pView index|
 
     (nTimes < 1 or:[listViews last isEmpty]) ifTrue:[
         ^ self
@@ -729,7 +729,7 @@
 moveContentsRight:nTimes
     "move the contents of all views one position right
     "
-    |view assoc size index lView fView|
+    |size index lView fView|
 
     size := leftHistory size.
 

--- a/UIPainterView.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/UIPainterView.st	Fri Oct 10 20:59:33 1997 +0200
@@ -454,7 +454,7 @@
 !
 
 generateAspectMethods
-    |cls code skip modelSelector menuSelector menuPerformer protoSpec thisCode|
+    |cls code skip modelSelector menuSelector protoSpec thisCode|
 
     code := ''.
 
@@ -1015,7 +1015,7 @@
 updateFromSpec:aSpec
     "update current selected view from specification
     "
-    |props name builder v|
+    |props name builder|
 
     aSpec class == WindowSpec ifTrue:[
         ^ treeView canvasSpec:aSpec
@@ -1224,7 +1224,7 @@
 undoSpecModify:args
     "undo method when changing a spec; see 'createUndoSpecModify:'
     "
-    |builder view spec v props|
+    |builder view spec props|
 
     props := self propertyOfIdentifier:(args at:2).