# HG changeset patch # User Gerd Moellmann # Date 953127550 0 # Node ID 16202d8d02cf0144cee7ad1f33c6a6893b743f16 # Parent 111343598e3e336d14cab911a27502d8b633f563 Eliminate CheckConfig. diff -r 111343598e3e -r 16202d8d02cf etc/ps-prin1.ps --- a/etc/ps-prin1.ps Wed Mar 15 13:35:02 2000 +0000 +++ b/etc/ps-prin1.ps Wed Mar 15 13:39:10 2000 +0000 @@ -389,9 +389,7 @@ /docState save def % ---- [andrewi] set PageSize based on chosen dimensions UseSetpagedevice{ - 0 - {<< /PageSize [PageWidth LandscapePageHeight] >> setpagedevice} - CheckConfig + << /PageSize [PageWidth LandscapePageHeight] >> setpagedevice }{ LandscapeMode{ % ---- translate to bottom-right corner of Portrait page @@ -695,24 +693,4 @@ % 3 cm 20 cm moveto 10 /Courier ReportFontInfo showpage % 3 cm 20 cm moveto ReportAllFontInfo showpage -/ErrorMessages - [(This PostScript printer is not configured with this document page size.) - (Duplex printing is not supported on this PostScript printer.)]def - -% stack: error-index proc |- -- -/CheckConfig{ - stopped{ - 1 cm LandscapePageHeight 0.5 mul moveto - /Courier findfont 10 scalefont setfont - gsave - (ps-print error:) show - grestore - 0 -10 rmoveto - ErrorMessages exch get show - showpage - $error /newerror false put - stop - }if -}bind def - % === END ps-print prologue 1 diff -r 111343598e3e -r 16202d8d02cf etc/ps-prin3.ps --- a/etc/ps-prin3.ps Wed Mar 15 13:35:02 2000 +0000 +++ b/etc/ps-prin3.ps Wed Mar 15 13:39:10 2000 +0000 @@ -1,14 +1,12 @@ % === BEGIN ps-print prologue 3 % --- duplex feature verification -1 UseSetpagedevice { - {<< /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice} + << /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice }{ - {statusdict begin - DuplexValue setduplexmode TumbleValue settumble - end} + statusdict begin + DuplexValue setduplexmode TumbleValue settumble + end }ifelse -CheckConfig % === END ps-print prologue 3