*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 28 Jul 1997 12:12:52 +0200
changeset 250 d2d028799b01
parent 249 bfa28b62528c
child 251 ea4577f6cc41
*** empty log message ***
UIPainter.st
--- a/UIPainter.st	Mon Jul 28 12:07:09 1997 +0200
+++ b/UIPainter.st	Mon Jul 28 12:12:52 1997 +0200
@@ -1666,8 +1666,6 @@
 closeRequest
     "close all windows open by builder
     "
-    |anyUnsavedChanges|
-
     self painter isModified ifTrue:[
         (self confirm:'quit without saving ?') ifFalse:[
             ^ self
@@ -2156,7 +2154,7 @@
 !
 
 doWindowSpec
-   |code code2 v|
+   |code v|
 
    code := self painter generateWindowSpecMethodSource.
 
@@ -2682,7 +2680,7 @@
 !
 
 doStepOut
-    |item next prnt prop spVw index canvas to|
+    |item next prnt canvas|
 
     (     (item := self selectedNode) isNil
       or:[(prnt := item parent) isNil