--- a/InspectorView.st	Wed Dec 19 12:16:51 2001 +0100
+++ b/InspectorView.st	Wed Dec 19 15:32:58 2001 +0100
@@ -500,7 +500,7 @@
 
     <resource: #programMenu>
 
-    |items labels selectors m sel|
+    |items m sel|
 
     items := #(
                        ('Copy Name or Key'             #doCopyKey              )
@@ -885,7 +885,7 @@
     "return a list of names to show in the selectionList.
      Leave hasMore as true, if a '...' entry should be added."
 
-    |aList n cls|
+    |aList cls|
 
     inspectedObject isNil ifTrue:[
         ^ hideReceiver ifTrue:[ #() ] ifFalse:[ #('-self') ]
@@ -920,7 +920,7 @@
     "return a list of indexed-variable names to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
-    |aList n cls|
+    | n cls|
 
     cls := inspectedObject class.
 
@@ -1212,7 +1212,7 @@
 !
 
 doAccept:theText
-    |newValue idx|
+    |newValue|
 
     Object errorSignal handle:[:ex |
         workspace flash
@@ -1332,7 +1332,7 @@
 showSelection:lineNr
     "user clicked on an instvar - show value in workspace"
 
-    |val obj|
+    |val|
 
     (hasMore and:[lineNr == listView list size]) ifTrue:[
         "clicked on the '...' entry"
@@ -1452,7 +1452,7 @@
     (line startsWith:'-hex') ifTrue:[
         ^ inspectedObject
     ].
-    self halt.
+    self error:'unknown special line'.
 
     "Created: / 31.10.2001 / 09:17:45 / cg"
 ! !
@@ -1460,5 +1460,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.121 2001-12-19 11:16:51 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.122 2001-12-19 14:32:58 stefan Exp $'
 ! !