standard
authorClaus Gittinger <cg@exept.de>
Wed, 28 May 2008 13:25:45 +0200
changeset 2482 798c34fa1efb
parent 2481 1fc2941fe30e
child 2483 be285c88b641
standard
WinPrinterContext.st
--- a/WinPrinterContext.st	Tue May 27 13:14:38 2008 +0200
+++ b/WinPrinterContext.st	Wed May 28 13:25:45 2008 +0200
@@ -1009,21 +1009,21 @@
 
     printer := self fromPrinterInfo: printerInfo.
     [
-	printer startPrintJob: 'Strings with Position'.
-	printer foreground:Color black background:Color white.
-	stringAndPositionsArray
-	    do:[:pairOfPointsAndPosition |
-		 printer displayString:(pairOfPointsAndPosition at: 1)
-			    x:(pairOfPointsAndPosition at: 2) x
-			    y:(pairOfPointsAndPosition at: 2) y
-	    ].
-	printer endPrintJob.
+        printer startPrintJob: 'Strings with Position'.
+        printer foreground:Color black background:Color white.
+        stringAndPositionsArray
+            do:[:pairOfPointsAndPosition |
+                 printer displayString:(pairOfPointsAndPosition at: 1)
+                            x:(pairOfPointsAndPosition at: 2) x
+                            y:(pairOfPointsAndPosition at: 2) y
+            ].
+        printer endPrintJob.
     ] forkAt: 3
 
     "
      WinPrinterContext printStrings:
-	(Array with: (Array with:'Testing printing with standart method' with:10@10)
-	       with: (Array with:'Another test string to print' with:80@200))
+        (Array with: (Array with:'Testing printing with standard method' with:10@10)
+               with: (Array with:'Another test string to print' with:80@200))
     "
 
     "Created: / 07-08-2006 / 12:09:48 / fm"
@@ -6020,5 +6020,5 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.33 2008-05-07 09:53:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.34 2008-05-28 11:25:45 cg Exp $'
 ! !