# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1026735112 -7200
# Node ID e4897b61395c689408725b43c134e7f5e91916b9
# Parent  bf9c5ca8e48a856c3ab456616ee1de8c3d8edcc4
Remove unused method var

diff -r bf9c5ca8e48a -r e4897b61395c UIPainter.st
--- 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.
diff -r bf9c5ca8e48a -r e4897b61395c UIPainterView.st
--- 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).