--- a/Form.st	Thu Dec 02 19:40:53 1999 +0100
+++ b/Form.st	Thu Dec 02 19:47:31 1999 +0100
@@ -1509,7 +1509,20 @@
     foreground := paint := Color colorId:1.
     background := bgPaint := Color colorId:0.
 
-    super initialize.
+    "/ must allow for device-less forms to be created
+    true "device isNil" ifTrue:[
+        realized := false.
+        width := 0.
+        height := 0.
+        function := #copy.
+        lineWidth := 1.
+        lineStyle := #solid.
+        joinStyle := #miter.
+        capStyle := #butt.
+        font := DefaultFont.
+    ] ifFalse:[
+        super initialize.
+    ].
     depth := 1.
 
 "/    foreground isNil ifTrue:[
@@ -2001,6 +2014,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.104 1999-12-02 18:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.105 1999-12-02 18:47:31 cg Exp $'
 ! !
 Form initialize!