--- a/UIPainter.st	Fri Sep 17 15:14:36 2004 +0200
+++ b/UIPainter.st	Tue Sep 21 12:30:01 2004 +0200
@@ -4300,12 +4300,11 @@
 
     |parent| 
 
-    parent := self detectItemRespondsToView:(aProperty view superView).
+    parent := self detectItemCorespondingToView:(aProperty view superView).
 
     parent notNil ifTrue:[
-	model add:(TreeItem new contents:aProperty) below:parent
+        model add:(TreeItem new contents:aProperty) below:parent
     ]
-
 !
 
 removeAll
@@ -4755,20 +4754,19 @@
 
 !UIPainter::TreeView methodsFor:'searching'!
 
-detectItemRespondsToView:aView
-    "detects the item responding to the view. The item of the view or the first
+detectItemCorespondingToView:aView
+    "detects the item coresponding to the view. The item of the view or the first
      subview providing the item is returned. If no property is detected nil is
      returned"
 
     |view item|
 
     (view := aView) notNil ifTrue:[
-	[(item := self itemOfView:view) isNil] whileTrue:[
-	    (view := view superView) isNil ifTrue:[^ listOfNodes at:1]
-	].
+        [(item := self itemOfView:view) isNil] whileTrue:[
+            (view := view superView) isNil ifTrue:[^ listOfNodes at:1]
+        ].
     ].
     ^ item
-
 ! !
 
 !UIPainter::TreeView methodsFor:'user interaction'!