--- a/DevGC.st	Wed Apr 02 15:47:49 1997 +0200
+++ b/DevGC.st	Wed Apr 02 15:50:26 1997 +0200
@@ -3274,6 +3274,10 @@
     |fgId bgId p|
 
     gcId notNil ifTrue:[^ self].
+    drawableId isNil ifTrue:[
+        self error:'drawing on non-realized drawable'.
+        ^ self
+    ].
     self createGC.
 
     foreground isNil ifTrue:[foreground := device blackColor].
@@ -3350,7 +3354,7 @@
 "/        device setFont:id in:gcId
 "/    ]
 
-    "Modified: 19.3.1997 / 11:06:21 / cg"
+    "Modified: 2.4.1997 / 15:50:04 / cg"
 !
 
 initialize
@@ -3574,6 +3578,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.33 1997-04-01 21:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.34 1997-04-02 13:50:26 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!

--- a/DeviceGraphicsContext.st	Wed Apr 02 15:47:49 1997 +0200
+++ b/DeviceGraphicsContext.st	Wed Apr 02 15:50:26 1997 +0200
@@ -3274,6 +3274,10 @@
     |fgId bgId p|
 
     gcId notNil ifTrue:[^ self].
+    drawableId isNil ifTrue:[
+        self error:'drawing on non-realized drawable'.
+        ^ self
+    ].
     self createGC.
 
     foreground isNil ifTrue:[foreground := device blackColor].
@@ -3350,7 +3354,7 @@
 "/        device setFont:id in:gcId
 "/    ]
 
-    "Modified: 19.3.1997 / 11:06:21 / cg"
+    "Modified: 2.4.1997 / 15:50:04 / cg"
 !
 
 initialize
@@ -3574,6 +3578,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.33 1997-04-01 21:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.34 1997-04-02 13:50:26 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!