WinWorkstation.st
changeset 5661 52da326a0fe1
parent 5660 0c071b9e2f4e
child 5671 e8f727199c80
--- a/WinWorkstation.st	Thu Dec 02 18:22:35 2010 +0100
+++ b/WinWorkstation.st	Thu Dec 02 18:33:31 2010 +0100
@@ -1675,13 +1675,19 @@
 	Brush.lbColor = gcData->fgColor;
     } else {
 	Brush.lbStyle = BS_SOLID;
-
+	Brush.lbHatch = 0;
+	Brush.lbColor = gcData->fgColor;
+
+	hPen = (HPEN) 0;
+
+#if USE_OLD_CREATE_PEN
 	hPen = CreatePen((gcData->lStyle & PS_STYLE_MASK), lw, gcData->fgColor);
 
 	RESPRINTF(("CreatePen %x %d(%d) %x %x\n",
 		    gcData->lStyle,
 		    lw, gcData->lineWidth,
 		    gcData->fgColor, gcData->hMask));
+#endif
 
 	SetBkMode(hDC, TRANSPARENT);
 	gcData->bkMode = BK_TRANSPARENT;
@@ -18956,11 +18962,11 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.448 2010-12-02 17:22:35 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.449 2010-12-02 17:33:31 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.448 2010-12-02 17:22:35 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.449 2010-12-02 17:33:31 ca Exp $'
 ! !
 
 WinWorkstation initialize!