diff -r 72af7609bb08 -r 493e0430518e UIPainterView.st
--- a/UIPainterView.st	Thu Jan 09 09:21:55 2003 +0100
+++ b/UIPainterView.st	Fri Jan 17 15:50:44 2003 +0100
@@ -149,19 +149,6 @@
 
 !
 
-findInputViewIn:aSuperView
-    "returns index of input view into superview or nil
-    "
-    aSuperView == self ifTrue:[
-        ^ self subViews findFirst:[:v| v == inputView ]
-    ].
-  ^ 0
-!
-
-inputView
-    ^ inputView
-!
-
 methodName
     ^ methodName
 !
@@ -453,7 +440,6 @@
 
     self realizeAllSubViews.
     newSel do:[:v| v raise].
-    inputView raise.
     self elementChangedSize:frame.
 
     newSel size == 1 ifTrue:[newSel := newSel at:1].
@@ -1337,19 +1323,17 @@
     self subViews do:[:aView|
         |vSpec|
 
-        aView ~~ inputView ifTrue:[
-            "/ care for wrapped views ...
-            vSpec := self fullSpecFor:aView.
-            vSpec isNil ifTrue:[
-                aView subViews size == 1 ifTrue:[
-                    vSpec := self fullSpecFor:(aView subViews first).
-                ]
-            ].
-            vSpec isNil ifTrue:[
-                self warn:'Oops - could not create spec for some view'
-            ].
-            spec add:vSpec
-        ]
+        "/ care for wrapped views ...
+        vSpec := self fullSpecFor:aView.
+        vSpec isNil ifTrue:[
+            aView subViews size == 1 ifTrue:[
+                vSpec := self fullSpecFor:(aView subViews first).
+            ]
+        ].
+        vSpec isNil ifTrue:[
+            self warn:'Oops - could not create spec for some view'
+        ].
+        spec add:vSpec
     ].
 
     spec := treeView generateFullSpecForComponents:spec named:methodName.
@@ -1486,12 +1470,10 @@
             self addSpec:(spec component) builder:builder in:self.
         ].
         self realizeAllSubViews.
-        inputView raise.
         spec notNil ifTrue:[
             treeView setAttributesFromWindowSpec:(spec window)
-        ]
-    ]
-
+        ].
+    ].
 !
 
 treeView:aTreeView
@@ -1860,7 +1842,6 @@
         ].
         treeView addProperty:p.
     ].
-
     ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
 
     "Modified: 4.7.1997 / 23:48:55 / cg"
@@ -1936,7 +1917,6 @@
         aView destroy.
         device flush  "sync" .
         aView becomeSameAs:v.
-        inputView raise.
     ] ifFalse:[
         aSpec setAttributesIn:aView with:builder.
         self elementChangedSize:aView.
@@ -2182,11 +2162,9 @@
     ].
     view := self addSpec:(args at:1) builder:(UIBuilder new isEditing:true) in:frame.
     view realize.
-    inputView raise.
 
     prop := self propertyOfView:view.
     prop identifier:(args at:2).
-
 !
 
 undoSpecModify:args