equal
deleted
inserted
replaced
292 PageFormat isNil ifTrue:[ |
292 PageFormat isNil ifTrue:[ |
293 PageFormat := #letter |
293 PageFormat := #letter |
294 ]. |
294 ]. |
295 |
295 |
296 TopInset isNil ifTrue:[ |
296 TopInset isNil ifTrue:[ |
297 TopInset := 0.652778. "/ inches |
297 TopInset := 0.6. "/ inches |
298 ]. |
298 ]. |
299 BottomInset isNil ifTrue:[ |
299 BottomInset isNil ifTrue:[ |
300 BottomInset := 1.18056 "/ inches |
300 BottomInset := 1.2 "/ inches |
301 ]. |
301 ]. |
302 LeftInset isNil ifTrue:[ |
302 LeftInset isNil ifTrue:[ |
303 LeftInset := 0.625. "/ inches |
303 LeftInset := 0.6. "/ inches |
304 ]. |
304 ]. |
305 |
305 |
306 "/ +-----------------------------------------------+ PageHeight |
306 "/ +-----------------------------------------------+ PageHeight |
307 "/ | | |
307 "/ | | |
308 "/ | LeftX +---------------------------------------| TopY |
308 "/ | LeftX +---------------------------------------| TopY |
326 ]. |
326 ]. |
327 |
327 |
328 TopY := PageHeight - (UnitConverter convert:TopInset from:#inch to:#twip) rounded. |
328 TopY := PageHeight - (UnitConverter convert:TopInset from:#inch to:#twip) rounded. |
329 LinesPerPage := TopY - (UnitConverter convert:BottomInset from:#inch to:#twip) rounded // 200. |
329 LinesPerPage := TopY - (UnitConverter convert:BottomInset from:#inch to:#twip) rounded // 200. |
330 |
330 |
|
331 " |
|
332 TopInset := LeftInset := BottomInset := nil. |
|
333 self initPage |
|
334 " |
|
335 |
331 "Modified: 30.5.1996 / 17:24:55 / ca" |
336 "Modified: 30.5.1996 / 17:24:55 / ca" |
332 "Modified: 3.6.1996 / 10:45:34 / cg" |
337 "Modified: 4.6.1996 / 17:18:25 / cg" |
333 ! |
338 ! |
334 |
339 |
335 initPageProlog |
340 initPageProlog |
336 "define the page prolog" |
341 "define the page prolog" |
337 |
342 |
956 ! ! |
961 ! ! |
957 |
962 |
958 !PostscriptPrinterStream class methodsFor:'documentation'! |
963 !PostscriptPrinterStream class methodsFor:'documentation'! |
959 |
964 |
960 version |
965 version |
961 ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.36 1996-06-03 15:17:41 cg Exp $' |
966 ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.37 1996-06-04 15:19:09 cg Exp $' |
962 ! ! |
967 ! ! |
963 PostscriptPrinterStream initialize! |
968 PostscriptPrinterStream initialize! |