45 PostscriptPrinterStream |
45 PostscriptPrinterStream |
46 defaultCommands:#( |
46 defaultCommands:#( |
47 'lpr' |
47 'lpr' |
48 'cat | remsh {hostname} lpr -h' |
48 'cat | remsh {hostname} lpr -h' |
49 'cat > preview.ps' |
49 'cat > preview.ps' |
50 'cat > preview.ps; ghostview preview.ps' |
50 'cat > preview.ps; gv preview.ps' |
51 ). |
51 ). |
52 ] ifFalse:[ |
52 ] ifFalse:[ |
53 PostscriptPrinterStream |
53 PostscriptPrinterStream |
54 defaultCommands:#( |
54 defaultCommands:#( |
55 'lpr -h' |
55 'lpr -h' |
56 'cat | rsh {hostname} lpr -h' |
56 'cat | rsh {hostname} lpr -h' |
57 'cat > preview.ps' |
57 'cat > preview.ps' |
58 'cat > preview.ps; ghostview preview.ps' |
58 'cat > preview.ps; gv preview.ps' |
59 ). |
59 ). |
60 ]. |
60 ]. |
61 PostscriptPrinterStream printCommand:'lpr'. |
61 PostscriptPrinterStream printCommand:'lpr'. |
62 ]. |
62 ]. |
63 |
63 |
66 PrinterStream |
66 PrinterStream |
67 defaultCommands:#( |
67 defaultCommands:#( |
68 'lpr -h' |
68 'lpr -h' |
69 'cat | remsh {hostname} lpr -h' |
69 'cat | remsh {hostname} lpr -h' |
70 'a2ps | remsh {hostname} lpr -h' |
70 'a2ps | remsh {hostname} lpr -h' |
71 'a2ps > preview.ps; ghostview preview.ps' |
71 'a2ps > preview.ps; gv preview.ps' |
72 ). |
72 ). |
73 ] ifFalse:[ |
73 ] ifFalse:[ |
74 PrinterStream |
74 PrinterStream |
75 defaultCommands:#( |
75 defaultCommands:#( |
76 'lpr -h' |
76 'lpr -h' |
77 'cat | rsh {hostname} lpr -h' |
77 'cat | rsh {hostname} lpr -h' |
78 'a2ps | rsh {hostname} lpr -h' |
78 'a2ps | rsh {hostname} lpr -h' |
79 'a2ps > preview.ps; ghostview preview.ps' |
79 'a2ps > preview.ps; gv preview.ps' |
80 ). |
80 ). |
81 ]. |
81 ]. |
82 Printer := PrinterStream. |
82 Printer := PrinterStream. |
83 PrinterStream printCommand:'lpr'. |
83 PrinterStream printCommand:'lpr'. |
84 ]. |
84 ]. |
98 PostscriptPrinterStream printCommand:'cat | remsh exept lpr -h'. |
98 PostscriptPrinterStream printCommand:'cat | remsh exept lpr -h'. |
99 PrinterStream printCommand:'cat | remsh exept lpr -h'. |
99 PrinterStream printCommand:'cat | remsh exept lpr -h'. |
100 PostscriptPrinterStream defaultCommands:#( |
100 PostscriptPrinterStream defaultCommands:#( |
101 'cat | remsh exept lpr -h' |
101 'cat | remsh exept lpr -h' |
102 'cat > preview.ps' |
102 'cat > preview.ps' |
103 'cat > preview.ps; ghostview preview.ps' |
103 'cat > preview.ps; gv preview.ps' |
104 ). |
104 ). |
105 PrinterStream defaultCommands:#( |
105 PrinterStream defaultCommands:#( |
106 'cat | remsh exept lpr -h' |
106 'cat | remsh exept lpr -h' |
107 'a2ps | remsh exept lpr -h' |
107 'a2ps | remsh exept lpr -h' |
108 'a2ps > preview.ps; ghostview preview.ps' |
108 'a2ps > preview.ps; gv preview.ps' |
109 ). |
109 ). |
110 ] ifFalse:[ |
110 ] ifFalse:[ |
111 PostscriptPrinterStream printCommand:'cat | rsh exept lpr -h'. |
111 PostscriptPrinterStream printCommand:'cat | rsh exept lpr -h'. |
112 PrinterStream printCommand:'cat | rsh exept lpr -h'. |
112 PrinterStream printCommand:'cat | rsh exept lpr -h'. |
113 PostscriptPrinterStream defaultCommands:#( |
113 PostscriptPrinterStream defaultCommands:#( |
114 'cat | rsh exept lpr -h' |
114 'cat | rsh exept lpr -h' |
115 'cat > preview.ps' |
115 'cat > preview.ps' |
116 'cat > preview.ps; ghostview preview.ps' |
116 'cat > preview.ps; gv preview.ps' |
117 ). |
117 ). |
118 PrinterStream defaultCommands:#( |
118 PrinterStream defaultCommands:#( |
119 'cat | rsh exept lpr -h' |
119 'cat | rsh exept lpr -h' |
120 'a2ps | rsh exept lpr -h' |
120 'a2ps | rsh exept lpr -h' |
121 'a2ps > preview.ps; ghostview preview.ps' |
121 'a2ps > preview.ps; gv preview.ps' |
122 ). |
122 ). |
123 ]. |
123 ]. |
124 ]. |
124 ]. |
125 ]. |
125 ]. |
126 ]. |
126 ]. |
162 includes := includes , '-I/opt/smalltalk/include '. |
162 includes := includes , '-I/opt/smalltalk/include '. |
163 ] ifFalse:[ |
163 ] ifFalse:[ |
164 "/ if this is a production program, dont care for a warning |
164 "/ if this is a production program, dont care for a warning |
165 (Smalltalk isStandAloneApp or:[Smalltalk isHeadless]) |
165 (Smalltalk isStandAloneApp or:[Smalltalk isHeadless]) |
166 ifFalse:[ |
166 ifFalse:[ |
167 'private.rc [warning]: no >>include<< directory found along your path.' infoPrintCR. |
167 'private.rc [warning]: no >>include<< directory found along your path.' infoPrintCR. |
168 'private.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR. |
168 'private.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR. |
169 ] |
169 ] |
170 ] |
170 ] |
171 ]. |
171 ]. |
172 ]. |
172 ]. |
173 |
173 |