check - warnings eliminated. Fix in InspectorList.st
--- 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).