--- a/UIPainter.st	Fri Jul 12 09:09:43 2002 +0200
+++ b/UIPainter.st	Mon Jul 15 14:11:52 2002 +0200
@@ -2640,7 +2640,6 @@
 !
 
 raiseTabView
-    |appl|
 
     self isLayoutToolSelected ifTrue:[
         helpTool   window unmap.
@@ -2660,7 +2659,6 @@
 "/            specTool selection:tabSelection.
         ]
     ]
-
 !
 
 raiseUIView:aView
@@ -3633,7 +3631,7 @@
 doSave
     "saves the window spec"
 
-    |code painter cls ns|
+    |code painter cls|
 
     self askForSectionModification.
 
@@ -3843,7 +3841,7 @@
 canvasSpec
     "returns spec assigned to canvas"
 
-    |spec list key block cls canvas modelBlock|
+    |spec list cls canvas|
 
     spec := self windowSpecClass new.
     canvas := self canvas.

--- a/UIPainterView.st	Fri Jul 12 09:09:43 2002 +0200
+++ b/UIPainterView.st	Mon Jul 15 14:11:52 2002 +0200
@@ -250,7 +250,7 @@
     "cut the selection into the cut&paste-buffer
      and open a transaction
     "
-    |specs coll index oldSelection newSelection treeModel parent children size nd|
+    |specs coll index oldSelection newSelection treeModel children size nd|
 
     coll := self minSetOfSuperViews:(self selection).