--- a/JavaVM.st	Thu Jul 15 00:52:40 1999 +0000
+++ b/JavaVM.st	Mon Jul 26 07:31:57 1999 +0000
@@ -7866,20 +7866,22 @@
 
     jFrame := nativeContext argAt:1.
     jFrame isNil ifTrue:[
-	self halt:'no frame in canvasPeer create'.
-	self internalError:'no frame in canvasPeer create'.     
-	^ self.
-    ].
-    frame := jFrame instVarNamed:'pData'.
-
-    subView := JavaView in:frame.
+        self halt:'no frame in canvasPeer create'.
+        subView := JavaView new.
+"/        self internalError:'no frame in canvasPeer create'.     
+"/        ^ self.
+    ] ifFalse:[
+        frame := jFrame instVarNamed:'pData'.
+        subView := JavaView in:frame.
+    ].
+
     subView delegate:self.
     subView javaPeer:jCanvasPeer.
 
     self createdWindowsView:subView for:jCanvasPeer.
 
     WindowCreationTrace == true ifTrue:[
-	'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
+        'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
     ].
 
     "Created: / 5.1.1998 / 00:59:19 / cg"
@@ -12041,6 +12043,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.155 1999/07/15 00:52:40 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.156 1999/07/26 07:31:57 cg Exp $'
 ! !
 JavaVM initialize!