# HG changeset patch
# User ca
# Date 867063194 -7200
# Node ID 0e87610c2768c96f5c7b741bac1d0e3aff1c8d62
# Parent  a8468f4e83f0e4753eb385cc92b0e6a8318ec408
pick a view

diff -r a8468f4e83f0 -r 0e87610c2768 UIPainter.st
--- a/UIPainter.st	Mon Jun 23 10:19:58 1997 +0200
+++ b/UIPainter.st	Mon Jun 23 12:53:14 1997 +0200
@@ -1441,21 +1441,16 @@
     ].
 
     (view := Screen current viewFromUser) notNil ifTrue:[
-        view device == Screen current ifTrue:[
-            ^ self
-        ].
-
-        painter := self painter.
-
-        spec := UISpecification fromView:view topView.
+        view == Screen current rootView ifFalse:[
+            painter := self painter.
+            spec    := UISpecification fromView:view topView.
 
-     "/ ok, got it
-        painter setupFromSpec:spec.
-        painter className:view class name.
-        painter methodName:#newSpec.
+         "/ ok, got it
+            painter setupFromSpec:spec.
+            painter className:view class name.
+            painter methodName:#newSpec.
+        ]
     ]
-
-    "Modified: 17.6.1997 / 12:33:23 / cg"
 !
 
 doRaise