WinPrinterContext.st
branchjv
changeset 3528 378efd6fd2f1
parent 3478 45ad75b68d16
parent 3526 8dea8945255b
child 3720 f27814c1b52a
--- a/WinPrinterContext.st	Sat Nov 21 06:50:48 2015 +0100
+++ b/WinPrinterContext.st	Fri Nov 27 23:22:56 2015 +0000
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 PrinterContext subclass:#WinPrinterContext
 	instanceVariableNames:'deviceFonts hatch supportsColor'
 	classVariableNames:'PostScriptBlackWhite'
@@ -277,7 +279,7 @@
 
     printerInfo := PrintingDialog getPrinterInfo.
     printerInfo isNil ifTrue:[^self].
-    printer := WinPrinterContext fromPrinterInfo: printerInfo.
+    printer := self fromPrinterInfo: printerInfo.
     ^ printer
 !
 
@@ -286,6 +288,10 @@
 !
 
 openGraphicContextWithoutDialog:withoutDialog
+    ^ self openGraphicContextWithoutDialog:withoutDialog jobName:nil
+!
+
+openGraphicContextWithoutDialog:withoutDialog jobName:jobName
     |printerInfo gc|
 
     printerInfo := PrintingDialog getPrinterInfoWithoutDialog:withoutDialog.
@@ -293,7 +299,7 @@
     gc := WinPrinterGraphicContext fromPrinterInfo:printerInfo.
 
     gc notNil ifTrue:[
-	gc startPrintJob
+        gc startPrintJob:jobName
     ].
     ^ gc
 ! !
@@ -6132,10 +6138,10 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.44 2013/07/04 10:57:17 mb Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.44 2013/07/04 10:57:17 mb Exp $'
+    ^ '$Header$'
 ! !