--- 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 $'
 ! !