# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1202298382 -3600
# Node ID 1c53fc6edb39b27493eb72a51b481188c8ec654a
# Parent  8b55b558093b86cb27873e5a3bcb34e9c02ab8fc
*** empty log message ***

diff -r 8b55b558093b -r 1c53fc6edb39 WinPrinterContext.st
--- a/WinPrinterContext.st	Tue Feb 05 16:03:44 2008 +0100
+++ b/WinPrinterContext.st	Wed Feb 06 12:46:22 2008 +0100
@@ -770,6 +770,23 @@
 printImage: anImage
     "Opens a print dialog and prints the given image"
 
+    self printImage: anImage magnification:1.
+
+    "
+     WinPrinterContext printImage: (Image fromFile:'C:\vsw311\pavheadr.gif').
+     WinPrinterContext printImage: XPToolbarIconLibrary help32x32Icon.
+     WinPrinterContext printImage: XPToolbarIconLibrary eraseXP28x28Icon.
+     WinPrinterContext printImage: XPToolbarIconLibrary saveImageBlack22x22Icon.
+     WinPrinterContext printImage: XPToolbarIconLibrary changesBrowser18x22Icon.
+    "
+
+    "Created: / 07-08-2006 / 11:46:52 / fm"
+    "Modified: / 16-04-2007 / 15:37:34 / cg"
+!
+
+printImage:anImage magnification:factor
+    "Opens a print dialog and prints the given image"
+
     | printerInfo printer |
 
     printerInfo := PrintingDialog getPrinterInfo.
@@ -779,7 +796,7 @@
     [
         printer startPrintJob: 'Image'.
         printer background:Color white.
-        anImage displayOn:printer x:1000 y:1000.
+        (anImage magnifiedBy:factor) displayOn:printer x:0 y:0.
         printer endPrintJob.
     ] forkAt: 3
 
@@ -5937,5 +5954,5 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.30 2007-11-23 13:06:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.31 2008-02-06 11:46:22 cg Exp $'
 ! !