diff options
Diffstat (limited to 'Master/tlpkg/tlpsv/psv_view.ps')
-rw-r--r-- | Master/tlpkg/tlpsv/psv_view.ps | 52 |
1 files changed, 41 insertions, 11 deletions
diff --git a/Master/tlpkg/tlpsv/psv_view.ps b/Master/tlpkg/tlpsv/psv_view.ps index 0bbeabe0040..9869e09b436 100644 --- a/Master/tlpkg/tlpsv/psv_view.ps +++ b/Master/tlpkg/tlpsv/psv_view.ps @@ -34,11 +34,13 @@ %% Version: 5.07, 05.05.2008 (post BachoTeX release) %% Version: 5.08, 14.05.2008 (full-screen mode) %% Version: 5.09, 02.07.2008 (LaTeX/HTML help added -- more formatting needed) +%% Version: 5.10, 35.07.2008 (bug in DSC reading corrected) +%% Version: 5.11, 06.02.2009 (some changes to compatibility with GS 8.64, and builtin inits) %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% userdict /view_dict 300 dict put view_dict begin -/PS_VIEW (PSView 5.09) def +/PS_VIEW (PSView 5.11) def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% userdict begin @@ -84,6 +86,12 @@ userdict begin } if } def + /ori_dotsetpagedevice /.setpagedevice load def + /.setpagedevice { + % patch for ignore .setpagedevice in pdfshowpage_finish + dup /PageSpotColors known {pop}{ori_dotsetpagedevice} ifelse + } def + end % userdict statusdict begin @@ -189,6 +197,7 @@ end % statusdict pdfdict /pdfopen undef /pdfopen { % redefined to allow UseCIEcolors toggle in PDF + % (removed color space redefinition) pdfopenfile begin pdfopencache currentdict end @@ -288,6 +297,13 @@ DELAYBIND {.bindnow /bind /.bind load .bind def} if {pop pop true} {pop false} ifelse} def /read_DSC { + % in_document {(D)} {( )} ifelse + % in_prolog {(B)} {( )} ifelse concat_strings + % in_setup {(S)} {( )} ifelse concat_strings + % in_page {(P)} {( )} ifelse concat_strings + % in_inclusion val_str cvs concat_strings + % ( ) concat_strings + % DSC_line concat_strings = in_page { (%%BeginDocument) match {b_inclusion} if (%%EndDocument) match {e_inclusion} if @@ -2471,6 +2487,18 @@ dup /infullscreen exch def { (!PSV_DLGBOX: S {}\n) print flush } def +/CONF_CMDL_dlgbox { + flush + (!PSV_DLGBOX: I {100,60}{Configure comandline parameters (for Ghostscript)}\n) print flush + (!PSV_DLGBOX: T {C}{CIETEXT}{15,5,70,8}{Command line parameters}\n) print flush + (!PSV_DLGBOX: E {N) print + shift psv_normal_print_rounded + (}{CMDLINE_EDIT}{20,20,60,11}{}\n) print flush + (!PSV_DLGBOX: B {O}{OK}{25,45,35,12}{Save}\n) print flush + (!PSV_DLGBOX: B {C}{CANCEL}{80,45,35,12}{Cancel}\n) print flush + (!PSV_DLGBOX: S {}\n) print flush +} def + /CONF_GRAPICS_dlgbox { flush (!PSV_DLGBOX: I {140,60}{Configure graphics parameters}\n) print flush @@ -2493,11 +2521,12 @@ dup /infullscreen exch def { (!PSV_DLGBOX: T {R}{ALPHATEXT}{5,13,30,8}{Language}\n) print flush (!PSV_DLGBOX: L {N) print llanguage () eq {(0) print} if - llanguage (de) eq {(1) print} if - llanguage (en) eq {(2) print} if - llanguage (nl) eq {(3) print} if - llanguage (pl) eq {(4) print} if - (|System default|German \(de\)|English \(en\)|Dutch \(nl\)|Polish \(pl\)|) print + llanguage (cs) eq {(1) print} if + llanguage (de) eq {(2) print} if + llanguage (en) eq {(3) print} if + llanguage (nl) eq {(4) print} if + llanguage (pl) eq {(5) print} if + (|System default|Czech \(cs\)|German \(de\)|English \(en\)|Dutch \(nl\)|Polish \(pl\)|) print (}{LANGUAGELIST}{40,5,65,20}\n) print flush (!PSV_DLGBOX: T {C}{ALPHATEXT}{2,25,136,10}{Language will be changed after PS_View reset}\n) print flush (!PSV_DLGBOX: B {O}{OK}{25,35,35,12}{OK}\n) print flush @@ -3337,11 +3366,12 @@ end % MOUSECOMMANDS } def /LANGUAGELIST { - dup (10000) eq {/llanguage () def} if - dup (01000) eq {/llanguage (de) def} if - dup (00100) eq {/llanguage (en) def} if - dup (00010) eq {/llanguage (nl) def} if - (00001) eq {/llanguage (pl) def} if + dup (100000) eq {/llanguage () def} if + dup (010000) eq {/llanguage (cs) def} if + dup (001000) eq {/llanguage (de) def} if + dup (000100) eq {/llanguage (en) def} if + dup (000010) eq {/llanguage (nl) def} if + (000001) eq {/llanguage (pl) def} if (!PSV_CONFIG: S {PSV_Parameters}{language}{) print llanguage print (}\n) print flush } def |