--- a/EditField.st	Sat Jul 26 16:21:52 1997 +0200
+++ b/EditField.st	Sat Jul 26 16:24:45 1997 +0200
@@ -1441,7 +1441,7 @@
                           #DeleteLine #GotoLine #EndOfLine #EndOfText
                           #CursorDown #CursorUp)>
 
-    |leave xCol newOffset newWidth s oldContents newContents|
+    |leave oldContents newContents|
 
     enabled ifFalse:[
         ^ self
@@ -1633,7 +1633,7 @@
 sizeChanged:how
     "scroll to origin, if all fits"
 
-    |xCol newOffset|
+    |xCol|
 
     leftOffset ~~ 0 ifTrue:[
         xCol := self xOfCol:cursorCol inVisibleLine:cursorLine.
@@ -1943,5 +1943,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.94 1997-07-24 16:23:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.95 1997-07-26 14:24:45 cg Exp $'
 ! !