--- a/GC.st	Mon Jun 07 14:16:56 1999 +0200
+++ b/GC.st	Wed Jun 09 19:09:48 1999 +0200
@@ -347,12 +347,16 @@
 
     White isNil ifTrue:[
         Color isNil ifTrue:[^ self].
+
+        White := Color white.
+        Black := Color black.
+
         Display isNil ifTrue:[^ self].
 
         Color initialize.
 
-        White := Color white on:Display.
-        Black := Color black on:Display.
+        White := White on:Display.
+        Black := Black on:Display.
 
         Font initialize.
         DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12
@@ -2131,6 +2135,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.74 1999-05-27 15:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.75 1999-06-09 17:09:48 cg Exp $'
 ! !
 GraphicsContext initialize!

--- a/GraphicsContext.st	Mon Jun 07 14:16:56 1999 +0200
+++ b/GraphicsContext.st	Wed Jun 09 19:09:48 1999 +0200
@@ -347,12 +347,16 @@
 
     White isNil ifTrue:[
         Color isNil ifTrue:[^ self].
+
+        White := Color white.
+        Black := Color black.
+
         Display isNil ifTrue:[^ self].
 
         Color initialize.
 
-        White := Color white on:Display.
-        Black := Color black on:Display.
+        White := White on:Display.
+        Black := Black on:Display.
 
         Font initialize.
         DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12
@@ -2131,6 +2135,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.74 1999-05-27 15:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.75 1999-06-09 17:09:48 cg Exp $'
 ! !
 GraphicsContext initialize!