--- a/GC.st	Sun May 12 22:05:21 1996 +0200
+++ b/GC.st	Sun May 12 22:25:26 1996 +0200
@@ -516,7 +516,9 @@
     "set the background painting color (which is used for
      opaqueForms and opaqueStrings). aColor can be a dithered one."
 
-    ^ self subclassResponsibility
+    bgPaint := aColor
+
+    "Modified: 12.5.1996 / 22:25:17 / cg"
 !
 
 capStyle
@@ -529,7 +531,13 @@
     "set the cap-style for line-drawing;
      possible styles are: #notLast, #butt, #round, #projecting"
 
-    ^ self subclassResponsibility
+    aStyleSymbol isNil ifTrue:[
+        capStyle := #butt
+    ] ifFalse:[
+        capStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:24:30 / cg"
 !
 
 clipRect
@@ -601,7 +609,13 @@
     "set the join-style of lines in polygon-drawing;
      possible styles are: #miter, #bevel, #round"
 
-    ^ self subclassResponsibility
+    aStyleSymbol isNil ifTrue:[
+        joinStyle := #miter
+    ] ifFalse:[
+        joinStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:24:14 / cg"
 !
 
 lineStyle
@@ -614,7 +628,13 @@
     "set the line-drawing-style;
      possible styles are: #solid, #dashed, #doubleDashed"
 
-    lineStyle := aStyleSymbol
+    aStyleSymbol isNil ifTrue:[
+        lineStyle := #solid
+    ] ifFalse:[
+        lineStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:19:25 / cg"
 !
 
 lineWidth
@@ -1271,6 +1291,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.31 1996-05-12 17:42:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.32 1996-05-12 20:25:26 cg Exp $'
 ! !
 GraphicsContext initialize!

--- a/GraphicsContext.st	Sun May 12 22:05:21 1996 +0200
+++ b/GraphicsContext.st	Sun May 12 22:25:26 1996 +0200
@@ -516,7 +516,9 @@
     "set the background painting color (which is used for
      opaqueForms and opaqueStrings). aColor can be a dithered one."
 
-    ^ self subclassResponsibility
+    bgPaint := aColor
+
+    "Modified: 12.5.1996 / 22:25:17 / cg"
 !
 
 capStyle
@@ -529,7 +531,13 @@
     "set the cap-style for line-drawing;
      possible styles are: #notLast, #butt, #round, #projecting"
 
-    ^ self subclassResponsibility
+    aStyleSymbol isNil ifTrue:[
+        capStyle := #butt
+    ] ifFalse:[
+        capStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:24:30 / cg"
 !
 
 clipRect
@@ -601,7 +609,13 @@
     "set the join-style of lines in polygon-drawing;
      possible styles are: #miter, #bevel, #round"
 
-    ^ self subclassResponsibility
+    aStyleSymbol isNil ifTrue:[
+        joinStyle := #miter
+    ] ifFalse:[
+        joinStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:24:14 / cg"
 !
 
 lineStyle
@@ -614,7 +628,13 @@
     "set the line-drawing-style;
      possible styles are: #solid, #dashed, #doubleDashed"
 
-    lineStyle := aStyleSymbol
+    aStyleSymbol isNil ifTrue:[
+        lineStyle := #solid
+    ] ifFalse:[
+        lineStyle := aStyleSymbol
+    ]
+
+    "Modified: 12.5.1996 / 22:19:25 / cg"
 !
 
 lineWidth
@@ -1271,6 +1291,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.31 1996-05-12 17:42:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.32 1996-05-12 20:25:26 cg Exp $'
 ! !
 GraphicsContext initialize!