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