equal
deleted
inserted
replaced
53 PostscriptPrinterStream notNil ifTrue:[ |
53 PostscriptPrinterStream notNil ifTrue:[ |
54 isStupidSYSV3 ifTrue:[ |
54 isStupidSYSV3 ifTrue:[ |
55 PostscriptPrinterStream |
55 PostscriptPrinterStream |
56 defaultCommands:#( |
56 defaultCommands:#( |
57 'lpr' |
57 'lpr' |
58 'cat | remsh <hostname> lpr -h' |
58 'cat | remsh {hostname} lpr -h' |
59 'cat > preview.ps' |
59 'cat > preview.ps' |
60 'cat > preview.ps; ghostview preview.ps' |
60 'cat > preview.ps; ghostview preview.ps' |
61 ). |
61 ). |
62 ] ifFalse:[ |
62 ] ifFalse:[ |
63 PostscriptPrinterStream |
63 PostscriptPrinterStream |
64 defaultCommands:#( |
64 defaultCommands:#( |
65 'lpr -h' |
65 'lpr -h' |
66 'cat | rsh <hostname> lpr -h' |
66 'cat | rsh {hostname} lpr -h' |
67 'cat > preview.ps' |
67 'cat > preview.ps' |
68 'cat > preview.ps; ghostview preview.ps' |
68 'cat > preview.ps; ghostview preview.ps' |
69 ). |
69 ). |
70 ]. |
70 ]. |
71 PostscriptPrinterStream printCommand:'lpr'. |
71 PostscriptPrinterStream printCommand:'lpr'. |
74 PrinterStream notNil ifTrue:[ |
74 PrinterStream notNil ifTrue:[ |
75 isStupidSYSV3 ifTrue:[ |
75 isStupidSYSV3 ifTrue:[ |
76 PrinterStream |
76 PrinterStream |
77 defaultCommands:#( |
77 defaultCommands:#( |
78 'lpr -h' |
78 'lpr -h' |
79 'cat | remsh <hostname> lpr -h' |
79 'cat | remsh {hostname} lpr -h' |
80 'a2ps | remsh <hostname> lpr -h' |
80 'a2ps | remsh {hostname} lpr -h' |
81 'a2ps > preview.ps; ghostview preview.ps' |
81 'a2ps > preview.ps; ghostview preview.ps' |
82 ). |
82 ). |
83 ] ifFalse:[ |
83 ] ifFalse:[ |
84 PrinterStream |
84 PrinterStream |
85 defaultCommands:#( |
85 defaultCommands:#( |
86 'lpr -h' |
86 'lpr -h' |
87 'cat | rsh <hostname> lpr -h' |
87 'cat | rsh {hostname} lpr -h' |
88 'a2ps | rsh <hostname> lpr -h' |
88 'a2ps | rsh {hostname} lpr -h' |
89 'a2ps > preview.ps; ghostview preview.ps' |
89 'a2ps > preview.ps; ghostview preview.ps' |
90 ). |
90 ). |
91 ]. |
91 ]. |
92 Printer := PrinterStream. |
92 Printer := PrinterStream. |
93 PrinterStream printCommand:'lpr'. |
93 PrinterStream printCommand:'lpr'. |
100 "/ You can change this for YOUR environment and/or make it unconditional. |
100 "/ You can change this for YOUR environment and/or make it unconditional. |
101 "/ Consider the stuff below as an example; you should add |
101 "/ Consider the stuff below as an example; you should add |
102 "/ corresponding setup into a private h_xxxx.rc file. |
102 "/ corresponding setup into a private h_xxxx.rc file. |
103 |
103 |
104 domain := OperatingSystem getDomainName. |
104 domain := OperatingSystem getDomainName. |
105 (domain = 'exept.de') ifTrue:[ |
105 (domain = 'exept.de' or:[domain = 'axept.de']) ifTrue:[ |
106 isStupidSYSV3 ifTrue:[ |
106 isStupidSYSV3 ifTrue:[ |
107 PostscriptPrinterStream printCommand:'cat | remsh ibm lpr -h'. |
107 PostscriptPrinterStream printCommand:'cat | remsh ibm lpr -h'. |
108 PrinterStream printCommand:'cat | remsh ibm lpr -h'. |
108 PrinterStream printCommand:'cat | remsh ibm lpr -h'. |
109 PostscriptPrinterStream defaultCommands:#( |
109 PostscriptPrinterStream defaultCommands:#( |
110 'cat | remsh ibm lpr -h' |
110 'cat | remsh ibm lpr -h' |