--- a/WinPrinterContext.st	Tue May 06 22:01:12 2008 +0200
+++ b/WinPrinterContext.st	Wed May 07 11:53:31 2008 +0200
@@ -251,6 +251,16 @@
     "Modified: / 16-04-2007 / 12:36:26 / cg"
 !
 
+newPrinter
+
+    | printer printerInfo|
+
+    printerInfo := PrintingDialog getPrinterInfo.
+    printerInfo isNil ifTrue:[^self].
+    printer := WinPrinterContext fromPrinterInfo: printerInfo.
+    ^ printer
+!
+
 openGraphicContext
     |printerInfo gc|
 
@@ -6010,5 +6020,5 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.32 2008-02-27 14:55:22 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.33 2008-05-07 09:53:31 fm Exp $'
 ! !