--- a/PrinterContext.st Mon Apr 16 13:02:37 2007 +0200
+++ b/PrinterContext.st Mon Apr 16 13:04:38 2007 +0200
@@ -88,9 +88,18 @@
defaultPrinterName
"Answer the name of the default printer, or nil if none."
- self subclassResponsibility
+ |printerInfo printerName|
+
+ printerInfo := OperatingSystem getDefaultPrinterName.
+ printerName := (printerInfo copyFrom:1 to:(printerInfo indexOf:$,) - 1) trimBlanks.
+ ^ printerName size == 0 ifTrue:[ nil ] ifFalse:[ printerName ]
- "Modified: / 16-04-2007 / 12:56:21 / cg"
+ "
+ PrinterContext defaultPrinterName
+ "
+
+ "Modified: / 02-08-2006 / 17:26:09 / fm"
+ "Modified: / 10-10-2006 / 17:32:45 / cg"
!
getPrinterInformation:printerNameString
@@ -908,5 +917,5 @@
!PrinterContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.13 2007-04-16 10:56:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.14 2007-04-16 11:04:38 cg Exp $'
! !