--- 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).