WinWorkstation.st
changeset 4941 f9fae1143962
parent 4939 8f9071993f39
child 4946 d4c1424b0431
--- a/WinWorkstation.st	Wed Apr 23 16:33:08 2008 +0200
+++ b/WinWorkstation.st	Wed Apr 23 17:10:46 2008 +0200
@@ -10206,12 +10206,17 @@
 		gcData->bkMode = BK_TRANSPARENT;
 	    }
 	}
+	/* leftover code from tries to make TextOut honor the gc-mode,
+	 * until I googled, that TextOut does not (by purpose, or backward-bug compatibility)
+	 */
 #if 0
 	hOldFont = SelectObject(hDC, gcData->hFont);
 	SetTextColor(hDC, gcData->fgColor);
 	SetBkColor(hDC, gcData->bgColor);
 #endif
+#if 0
 	GcDataGetPen(hDC, gcData);
+#endif
 
 	cls = __qClass(aString);
 
@@ -10282,7 +10287,9 @@
 	    }
 	}
 ret:;
+#if 0
 	GcDataReleasePen(hDC, gcData);
+#endif
 #if 0
 	SelectObject(hDC, hOldFont);
 #endif
@@ -17815,7 +17822,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.362 2008-04-23 14:32:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.363 2008-04-23 15:10:46 cg Exp $'
 ! !
 
 WinWorkstation initialize!