--- a/DeviceWorkstation.st	Wed Mar 30 12:13:08 1994 +0200
+++ b/DeviceWorkstation.st	Wed Mar 30 12:40:14 1994 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.11 1994-03-30 10:13:08 claus Exp $
+$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.12 1994-03-30 10:40:14 claus Exp $
 written jan 93 by claus
 '!
 
@@ -723,7 +723,7 @@
 rectangleFromUser
     "let user specify a rectangle"
 
-    |root curs1 curs2 p1 p2 |
+    |curs1 curs2 p1 p2 |
 
     curs1 := Cursor origin on:self.
     curs2 := Cursor corner on:self.
@@ -782,11 +782,11 @@
      not an st/x view, nil is returned.
      (send topView to the returned view to get its root-top)"
 
-    |view curs p id searchId foundId|
+    |view p id searchId foundId|
 
     p := self pointFromUser.
 
-    "search view the drop is in"
+    "search view the point is in"
     searchId := RootView id.
     [searchId notNil] whileTrue:[
         id := self viewIdFromPoint:p in:searchId.