summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpsv/psv_view.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlpsv/psv_view.ps')
-rw-r--r--Master/tlpkg/tlpsv/psv_view.ps52
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