--- a/ScrView.st	Wed Jan 24 14:25:52 1996 +0100
+++ b/ScrView.st	Wed Jan 24 16:29:41 1996 +0100
@@ -345,17 +345,18 @@
      The view will have full scrollbars if the corresponding miniH/miniV
      is false, miniscrollers if true."
 
-    |newView|
+    |newView dev|
 
     aView notNil ifTrue:[
-	newView := self basicNew.
-	newView device:(aView device).
+	dev := aView device
+    ] ifFalse:[ 
+	dev := Screen current
+    ].
+    newView := self basicNew device:dev.
+    newView initializeFor:aViewClass miniScrollerH:miniH miniScrollerV:miniV.
+    aView notNil ifTrue:[
 	aView addSubView:newView
-    ] ifFalse:[
-	"create on Display by default"
-	newView := self basicNew device:Display.
     ].
-    newView initializeFor:aViewClass miniScrollerH:miniH miniScrollerV:miniV.
     ^ newView
 !
 
@@ -855,5 +856,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.23 1995-12-10 16:53:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.24 1996-01-24 15:29:36 ah Exp $'
 ! !