--- a/SimpleView.st	Mon Dec 12 16:42:34 2016 +0100
+++ b/SimpleView.st	Tue Dec 13 11:37:18 2016 +0100
@@ -848,14 +848,15 @@
 
     newView := self basicNew.
     aView notNil ifTrue:[
-	viewsDevice := aView graphicsDevice.
+        viewsDevice := aView graphicsDevice.
 "/      newView container:aView.
-    ] ifFalse:[
-	viewsDevice := Screen current
+    ].
+    viewsDevice isNil ifTrue:[
+        viewsDevice := Screen current
     ].
     newView initializeForDevice:viewsDevice.
     (viewsDevice supportsNativeWidgetType:newView nativeWindowType) ifTrue:[
-	newView beNativeWidget
+        newView beNativeWidget
     ].
     aView notNil ifTrue:[aView addSubView:newView].
     ^ newView