--- a/PrinterStream.st	Tue Apr 23 20:20:10 1996 +0200
+++ b/PrinterStream.st	Tue Apr 23 20:22:20 1996 +0200
@@ -12,7 +12,7 @@
 
 PipeStream subclass:#PrinterStream
 	instanceVariableNames:'native'
-	classVariableNames:'PrintCommand LeftMargin'
+	classVariableNames:'PrintCommand LeftMargin DefaultCommands'
 	poolDictionaries:''
 	category:'Streams-External'
 !
@@ -99,6 +99,28 @@
 
 !PrinterStream class methodsFor:'accessing'!
 
+defaultCommands
+    "return a list presented as possible commands for printed
+     (in the launchers printer configuration).
+     This list can be set from the startup script with:
+        PrinterStream defaultCommands:#( ... )"
+
+    ^ DefaultCommands
+
+    "Created: 23.4.1996 / 18:25:18 / cg"
+!
+
+defaultCommands:collectionOfCommandStrings
+    "set the list which will be presented as possible commands for printing.
+     (in the launchers printer configuration).
+     This can be done from the startup script with:
+        PrinterStream defaultCommands:#( ... )"
+
+    DefaultCommands := collectionOfCommandStrings
+
+    "Created: 23.4.1996 / 18:26:06 / cg"
+!
+
 leftMargin:aNumber
     "set the number of blanks for the left margin"
 
@@ -293,6 +315,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.19 1996-04-18 18:04:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.20 1996-04-23 18:22:20 cg Exp $'
 ! !
 PrinterStream initialize!