--- a/WinPrinterContext.st	Tue Apr 17 13:07:23 2007 +0200
+++ b/WinPrinterContext.st	Tue Apr 17 13:07:58 2007 +0200
@@ -108,8 +108,8 @@
 
    "
     WinPrinterContext print: 'Holaaaa!! (from:  WinPrinterContext>>print:aString font:aFont title:aTitle)' font: nil title: 'Printing Test'
-    WinPrinterContext print: self printingTestString font: nil title: 'Printing Test String'
-    WinPrinterContext print: self printingTestString font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String'
+    WinPrinterContext print: (WinPrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font: nil title: 'Printing Test String'
+    WinPrinterContext print: (WinPrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String'
    "
 
     "Created: / 27-07-2006 / 17:52:33 / fm"
@@ -138,8 +138,8 @@
 
     "
      WinPrinterContext print: 'Holaaaa!! (from:  PrinterContext>>print:aString font:aFont title:aTitle)' font: nil title: 'Printing Test' wordWrap: true
-     WinPrinterContext print: (PrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font:nil title:'Printing Test String' wordWrap:true
-     WinPrinterContext print: (PrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String' wordWrap: true
+     WinPrinterContext print: (WinPrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font:nil title:'Printing Test String' wordWrap:true
+     WinPrinterContext print: (WinPrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String' wordWrap: true
     "
 
     "Created: / 03-08-2006 / 18:51:53 / fm"
@@ -434,6 +434,12 @@
     "Modified: / 10-10-2006 / 18:14:28 / cg"
 !
 
+deleteDC
+    "Private - Delete a device context for the receiver"
+
+    OperatingSystem deletePrinterDC: gcId.
+!
+
 executor
     |aCopy|
 
@@ -442,6 +448,14 @@
     ^ aCopy
 
     "Created: / 16-04-2007 / 12:39:02 / cg"
+!
+
+releaseDC
+    "Private - Delete and clear the device context of the receiver."
+
+    self deleteDC.
+    device close.
+    gcId := nil
 ! !
 
 !WinPrinterContext methodsFor:'printing process'!
@@ -458,7 +472,7 @@
     "Modified: / 10-10-2006 / 18:14:44 / cg"
 !
 
-endPrintJob
+endPrintJobWithoutRelease
     "End the print job.  Everything drawn between startPrintJob
      and endPrintJob will become one entry in the print queue."
     
@@ -466,8 +480,6 @@
 
     self endPage.
     result := OperatingSystem endDoc:gcId.
-    device close.
-    gcId := nil.
     jobid := nil.
     result >= 0 ifFalse:[ self error ]
 
@@ -599,5 +611,5 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.4 2007-04-16 14:12:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.5 2007-04-17 11:07:58 fm Exp $'
 ! !