From b3f899f57f9937648bd6c556e383ee25baa6bca5 Mon Sep 17 00:00:00 2001 From: Staszek Wawrykiewicz Date: Wed, 2 Jul 2008 17:25:20 +0000 Subject: new tlpsv ver5.09t git-svn-id: svn://tug.org/texlive/trunk@9161 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlpsv/README | 10 +- Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo | Bin 15531 -> 15820 bytes Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo | Bin 14680 -> 14950 bytes Master/tlpkg/tlpsv/gswxlua.exe | Bin 1433088 -> 1458688 bytes Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo | Bin 0 -> 15016 bytes Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo | Bin 15388 -> 15696 bytes Master/tlpkg/tlpsv/psv.exe | Bin 24064 -> 24064 bytes Master/tlpkg/tlpsv/psv.ico | Bin 0 -> 2734 bytes Master/tlpkg/tlpsv/psv.wx.lua | 82 ++++++++++---- Master/tlpkg/tlpsv/psv_1.ico | Bin 11502 -> 0 bytes Master/tlpkg/tlpsv/psv_about.ps | 68 ++++++------ Master/tlpkg/tlpsv/psv_about_pl.ps | 67 ++++++------ Master/tlpkg/tlpsv/psv_help_en.htb | Bin 0 -> 78470 bytes Master/tlpkg/tlpsv/psv_help_pl.htb | Bin 0 -> 80630 bytes Master/tlpkg/tlpsv/psv_usage.pdf | Bin 198208 -> 0 bytes Master/tlpkg/tlpsv/psv_usage_pl.pdf | Bin 198208 -> 0 bytes Master/tlpkg/tlpsv/psv_view.ps | 181 ++++++++++++++++++++----------- 17 files changed, 248 insertions(+), 160 deletions(-) create mode 100644 Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo create mode 100644 Master/tlpkg/tlpsv/psv.ico delete mode 100644 Master/tlpkg/tlpsv/psv_1.ico create mode 100644 Master/tlpkg/tlpsv/psv_help_en.htb create mode 100644 Master/tlpkg/tlpsv/psv_help_pl.htb delete mode 100644 Master/tlpkg/tlpsv/psv_usage.pdf delete mode 100644 Master/tlpkg/tlpsv/psv_usage_pl.pdf (limited to 'Master/tlpkg/tlpsv') diff --git a/Master/tlpkg/tlpsv/README b/Master/tlpkg/tlpsv/README index 9ae4d8c926d..fbf9478a4b3 100644 --- a/Master/tlpkg/tlpsv/README +++ b/Master/tlpkg/tlpsv/README @@ -1,7 +1,7 @@ PS_View README This is PS_View (a previewing utility for Ghostscript interpreter) -version 5.07. It is after BachoTeX release -- it is fully +version 5.09. It is initial TeX-Live release -- it is fully functional and needs through testing. It can be used as a basic PostScript viewer, but it still probably has bugs. @@ -18,16 +18,16 @@ Package consists of: README -- this file gswxluas -- wxLuaGhostscript executable (ELF) file gswxlua.exe -- wxLuaGhostscript executable (WIN32) file - mingwm10.dll -- minGW library needed by gswxlua.exe psv.wx.lua -- wxLua part of PS_View program psv_view.ps -- PostScript part of PS_View program psv -- bash script for linux psv.bat -- batch script for windows psv.desktop -- info file for Xwindow users psv.xpm -- icon for Xwindow - psv_about.ps -- about info file - psv_obsluga.pdf -- usage help file - pl/, de/, en/ -- locale messages + psv_about*.ps -- about info files + psv_help*.htb -- help files + pl/, de/, en/, nl/ -- locale messages + Usage: psv[.bat] [Postscript/PDF file] or diff --git a/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo b/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo index 3da4cd90f05..6a6f5a7734c 100644 Binary files a/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo and b/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo differ diff --git a/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo b/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo index f952e19fd10..071b922fe53 100644 Binary files a/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo and b/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo differ diff --git a/Master/tlpkg/tlpsv/gswxlua.exe b/Master/tlpkg/tlpsv/gswxlua.exe index 07590c421cc..8e23be13549 100755 Binary files a/Master/tlpkg/tlpsv/gswxlua.exe and b/Master/tlpkg/tlpsv/gswxlua.exe differ diff --git a/Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo b/Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo new file mode 100644 index 00000000000..dd2c97467f8 Binary files /dev/null and b/Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo differ diff --git a/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo b/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo index 26179800ed3..4518f24f98f 100644 Binary files a/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo and b/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo differ diff --git a/Master/tlpkg/tlpsv/psv.exe b/Master/tlpkg/tlpsv/psv.exe index 33e632ab554..ca59d810950 100755 Binary files a/Master/tlpkg/tlpsv/psv.exe and b/Master/tlpkg/tlpsv/psv.exe differ diff --git a/Master/tlpkg/tlpsv/psv.ico b/Master/tlpkg/tlpsv/psv.ico new file mode 100644 index 00000000000..2e240602bbc Binary files /dev/null and b/Master/tlpkg/tlpsv/psv.ico differ diff --git a/Master/tlpkg/tlpsv/psv.wx.lua b/Master/tlpkg/tlpsv/psv.wx.lua index 4c8461f8735..6c4f470b537 100644 --- a/Master/tlpkg/tlpsv/psv.wx.lua +++ b/Master/tlpkg/tlpsv/psv.wx.lua @@ -5,7 +5,7 @@ -- bop@bop.com.pl -- Copyright: (c) 2008 BOP s.c. -- Licence: GPL --- Current version: 5.05; 26.04.2008 +-- Current version: 5.09; 02.07.2008 -- -- 4.95 -- first working version of Lua engine -- 4.96 -- mouse interface added (and many other changes) @@ -21,10 +21,13 @@ -- 5.04 -- DSC reading corrected, `layer' and updating image corrected -- 5.05 -- post-Pingwinaria release, 'layer' and printing bug corrected -- 5.06 -- BachoTeX release +-- 5.07 -- post BachoTeX release +-- 5.08 -- full-screen mode +-- 5.09 -- LaTeX/HTML help added ------------------------------------------------------------------------------]] local PS_VIEW_NAME="PS_View" -local PS_VIEW_VERSION=5.06 +local PS_VIEW_VERSION=5.09 local PS_VIEW_VERSION_STRING -- defined later, after locale loading local PSV_GsPars = {"-dNOPAUSE","-dDELAYBIND","-dNOEPS"} @@ -34,6 +37,7 @@ local gsobj={ instancechecker = nil, gsdll = nil, config = nil, + helpctrl = nil, locale = nil, ghostscript = nil, image = nil, @@ -41,11 +45,9 @@ local gsobj={ dscthread = nil, dialog = nil, menu = nil, - SBsty = {}, - SBall = {}, + SBsty = {}, SBall = {}, overlay = nil, - bbmp = nil, - obmp = nil, + bbmp = nil, obmp = nil, } local gswin={ @@ -83,8 +85,8 @@ local gsstat = { update = 0, working = false, ready = false, - inoverlay= false, - drawoverlay= false, + inoverlay = false, drawoverlay = false, + -- fullscreen = false, } function MakeIcons() @@ -298,7 +300,6 @@ function PrepareKeyNames() [wx.WXK_NUMPAD_MULTIPLY]="MULTIPLY", [wx.WXK_NUMPAD_SUBTRACT]="SUBSTRACT", [wx.WXK_NUMPAD_ADD]="ADD", - [wx.WXK_NUMPAD_ENTER]="RETURN", [wx.WXK_NUMPAD_EQUAL]="EQUAL", [wx.WXK_NUMPAD_BEGIN]="BEGIN", --[wx.WXK_NUMPAD_DECIMAL]="", @@ -308,6 +309,7 @@ function PrepareKeyNames() for i = 0, 9 do s=string.format("%d",i) key_text[wx["WXK_NUMPAD" .. s]]=s end char_text={ + [wx.WXK_NUMPAD_ENTER]="RETURN", [wx.WXK_RETURN]="RETURN", [wx.WXK_BACK]="BACK", [string.byte("`")]="GRAVE", @@ -431,10 +433,6 @@ function SendEventCommand (c,s,...) RunPScode:add(string.format(s,...) .. " /" .. c .. " EVENTCOMMAND") end -function SendDSCEventCommand (c,s,...) - RunDSCcode:add(string.format(s,...) .. " /" .. c .. " EVENTCOMMAND") -end - function SendMenuCommand (m,s) RunInputString() RunPScode:add("/" .. m .. " /" .. s .. " MENUCOMMAND") @@ -453,6 +451,16 @@ function SendMouseCommandWithStatus(mouse,cmd) SendMouseCommand (mouse.bx,mouse.by,mouse.ex,mouse.ey,cmd,mod_text[mouse.mod]) end +function SendDSCEventCommand (c,s,...) + RunDSCcode:add(string.format(s,...) .. " /" .. c .. " EVENTCOMMAND") +end + +function SendDSCComment(comm,begc,endc) +-- comm=comm:gsub("[\128-\255]","#") + comm=comm:gsub("([\\%(%)])","\\%1") + SendDSCEventCommand ("DSCCOMMENT","(%s) %d %d",comm,begc,endc) +end + function CallPSVhook (str) local b=str:find(": ") local c,l=str:sub(1,b-1),str:sub(b+2,-1) @@ -473,6 +481,8 @@ function CallPSVhook (str) MakeStatusLine(f,s,p[1],p[2]) elseif c=="REFRESH" then MakeRefreshEvent(p[1]) + elseif c=="SIZE" then + MakeResizeEvent(f,s,p[1],p[2]) elseif c=="DRAW" then DrawObjectEvent(f,s,p[1],p[2],p[3]) elseif c=="HOOK" then @@ -481,6 +491,8 @@ function CallPSVhook (str) MakeConfigFile(f,p[1],p[2],p[3]) elseif c=="CONSOLE" then MakeConsole(f,p[1]) + elseif c=="HELP" then + MakeHelpWindow(f,p[1]) elseif c=="INFO" then SendInfoEvent() elseif c=="LOCALE" then @@ -544,6 +556,23 @@ function MakeConsole(l,a) end end +function MakeHelpWindow(l,a) + if l=="I" then + gsobj.helpctrl=wx.wxHtmlHelpController(wx.wxHF_DEFAULT_STYLE,frame) + gsobj.helpctrl:UseConfig(gsobj.config,"HelpControler") + gsobj.helpctrl:SetTitleFormat(PS_VIEW_NAME .. _T(" Help -- %s")) + local fname=wx.wxFileName(arg[0]):GetPath(wx.wxPATH_GET_VOLUME) + fname=wx.wxFileName(fname,a) + gsobj.helpctrl:AddBook(fname,false) +-- gsobj.helpctrl=wx.wxHelpController(frame) +-- gsobj.helpctrl:Initialize(a) + elseif l=="S" then + gsobj.helpctrl:DisplayContents() + elseif l=="C" then + gsobj.helpctrl:Display(a) + end +end + function SendInfoEvent() local info,infodict="","<<" infodict=infodict.."/ProgramName (" .. PS_VIEW_NAME ..") " @@ -586,15 +615,16 @@ function SendLocaleEvent(f,a) SendEventCommand ("LOCALE","(%s) (%s) -1",a,a) end elseif f=="I" then - SendEventCommand ("LOCALE","(%s) %d 0", gsobj.locale:GetLocale(), gsobj.locale:GetLanguage()) + SendEventCommand ("LOCALE","(%s) (%s) 0", gsobj.locale:GetLocale(), + string.sub(gsobj.locale:GetName(),1,2)) elseif f=="S" then local lang=gsobj.locale.FindLanguageInfo(a) SetLocale(lang.Language) end end -function RunLuaCode(l,a) - if l=="R" then +function RunLuaCode(f,a) + if f=="R" then local torun=loadstring(a) if torun then torun() end end @@ -692,12 +722,6 @@ function ReadDSCcomments(fname) return 0 end -function SendDSCComment(comm,begc,endc) --- comm=comm:gsub("[\128-\255]","#") - comm=comm:gsub("([\\%(%)])","\\%1") - SendDSCEventCommand ("DSCCOMMENT","(%s) %d %d",comm,begc,endc) -end - function MakeStatusLine(l,m,a,b) if not gswin.statusBar then if l=="C" then gswin.statusBar=frame:CreateStatusBar() end @@ -1023,9 +1047,9 @@ function DestroyOverlay() end function OnPaintExtra(event) - local dc=wx.wxPaintDC(gswin.gswindow) + local dc,sdc local xd, yd, w, h, xs, ys = 0, 0, gsobj.image.w, gsobj.image.h, 0, 0 - local sdc + dc=wx.wxPaintDC(gswin.gswindow) if gsstat.inoverlay then if gsstat.drawoverlay then dc:DrawBitmap(gsobj.bbmp,0,0,false) @@ -1108,6 +1132,13 @@ function ClearDrawObjects() end end +function MakeResizeEvent(f,s,x,y) + if f=="F" then + if s=="T" then frame:ShowFullScreen(true) + elseif s=="F" then frame:ShowFullScreen(false) end + elseif f=="S" then + end +end function MouseButtonEvent(event) local mod=wx.wxMOD_NONE @@ -1542,6 +1573,8 @@ function ClosePSV () if wx.wxIsBusy() then wx.wxEndBusyCursor() end if gswin.gswindow then gswin.gswindow:Destroy() gswin.gswindow=nil end if gsobj.instancechecker then gsobj.instancechecker:Destroy() end +-- if gsobj.helparch then gsobj.helparch:Destroy() end +-- if gsobj.helpctrl then gsobj.helpctrl:Destroy() end -- ConfigSavePaths(gsargs) ConfigSaveFramePosition(frame, "MainWindow") if console then @@ -1951,6 +1984,7 @@ function PrepareLocale() return wx.wxGetTranslation(str) end PS_VIEW_VERSION_STRING=string.format(_T("%s, version %g"), PS_VIEW_NAME, PS_VIEW_VERSION) + print("!!!!" .. psvpars.language.. "!".. lang .. PS_VIEW_VERSION_STRING .. "\n") end function CreateInstanceChecker() diff --git a/Master/tlpkg/tlpsv/psv_1.ico b/Master/tlpkg/tlpsv/psv_1.ico deleted file mode 100644 index cb28890edc7..00000000000 Binary files a/Master/tlpkg/tlpsv/psv_1.ico and /dev/null differ diff --git a/Master/tlpkg/tlpsv/psv_about.ps b/Master/tlpkg/tlpsv/psv_about.ps index 03b22a1b7b3..f671443c554 100644 --- a/Master/tlpkg/tlpsv/psv_about.ps +++ b/Master/tlpkg/tlpsv/psv_about.ps @@ -1,16 +1,16 @@ %!PS-Adobe-2.0 %%Creator: dvips(k) 5.96 Copyright 2005 Radical Eye Software %%Title: psv_about.dvi -%%CreationDate: Thu Apr 10 15:45:44 2008 +%%CreationDate: Tue Jul 1 16:19:28 2008 %%Pages: 1 %%PageOrder: Ascend %%BoundingBox: 0 0 567 392 %%DocumentFonts: QuasiSwiss-Regular %%EndComments %DVIPSWebPage: (www.radicaleye.com) -%DVIPSCommandLine: dvips psv_about.dvi +%DVIPSCommandLine: dvips -tunknown psv_about.dvi %DVIPSParameters: dpi=9000, comments removed -%DVIPSSource: TeX output 2008.04.10:1545 +%DVIPSSource: TeX output 2008.07.01:1619 %%BeginProcSet: tex.pro 0 0 /TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72 @@ -1160,7 +1160,7 @@ Black 26433 15449 a 8717 -2268 a 35433 x @beginspecial 12.104000 @llx 4.715000 @lly 450.476013 @urx 443.085999 @ury 2834.638672 @rwi @setspecial -%%BeginDocument: psv_logo.eps +%%BeginDocument: rys/psv_logo.eps /GSexport 100 dict def GSexport begin /h {closepath} def /m {moveto} def @@ -1283,51 +1283,51 @@ showpage 8717 33165 a 26433 15449 a currentpoint /OO_y exch def /OO_x exch def -26433 15449 a Blue 19346 1780 a +26433 15449 a Blue 19346 -1323 a gsave currentpoint 185.01277 100 div div exch 185.01277 100 div div exch currentpoint neg 185.01277 100 div mul exch neg 185.01277 100 div mul exch translate 185.01277 100 div 185.01277 100 div scale translate - 19346 1780 a Fa(PS\346Vie)-19 -b(w)27007 1780 y + 19346 -1323 a Fa(PS\346Vie)-19 +b(w)27007 -1323 y grestore - 27007 1780 a Black 8717 5422 a + 27007 -1323 a Black 8717 2320 a gsave currentpoint 140.91505 100 div div exch 140.91505 100 div div exch currentpoint neg 140.91505 100 div mul exch neg 140.91505 100 div mul exch translate 140.91505 100 div 140.91505 100 div scale translate 8717 -5422 a Fa(p)o(r)h(e)-29 b(vi)q(e)-19 b(w)g(e)o(r)622 +2320 a Fa(p)o(r)h(e)-29 b(vi)q(e)-19 b(w)g(e)o(r)622 b({)g(P)-46 b(o)o(s)-9 b(t)-18 b(S)o(cr)q(ip)-10 b(t)623 -b(&)f(P)o(DF)33862 5422 y +b(&)f(P)o(DF)33862 2320 y grestore - 33862 5422 a 6369 8224 a + 33862 2320 a 6369 5122 a gsave currentpoint 140.91505 100 div div exch 140.91505 100 div div exch currentpoint neg 140.91505 100 div mul exch neg 140.91505 100 div mul exch translate 140.91505 100 div 140.91505 100 div scale translate 6369 -8224 a Fa(g)o(r)-9 b(aph)o(i)q(ca)o(l)622 b(int)-28 b(er)47 +5122 a Fa(g)o(r)-9 b(aph)o(i)q(ca)o(l)622 b(int)-28 b(er)47 b(f)-19 b(ace)622 b(f)-19 b(or)622 b(G)q(h)o(os)-9 b(tscrip)g(t)34846 -8224 y +5122 y grestore - 34846 8224 a 8717 31637 a -gsave currentpoint 78.37602 100 div div exch 78.37602 100 div div exch currentpoint neg 78.37602 100 div mul exch neg 78.37602 100 div mul exch translate 78.37602 100 div 78.37602 100 div scale translate - 8717 31637 a Blue -22416 -x Fa(V)-103 b(er)9 b(sion:)p Black 19329 9221 a + 34846 5122 a 8717 34740 a +gsave currentpoint 93.46014 100 div div exch 93.46014 100 div div exch currentpoint neg 93.46014 100 div mul exch neg 93.46014 100 div mul exch translate 93.46014 100 div 93.46014 100 div scale translate + 8717 34740 a Blue -25218 +x Fa(V)-103 b(er)9 b(sion:)p Black 19329 9522 a PS_VIEW show 19329 -9221 a Blue 8717 12023 a Fa(A)-19 b(ut)-9 b(h)o(or)9 -b(s:)p Black 3681 w(B)o(.)623 b(Jac)9 b(k)-37 b(o)-19 -b(w)-10 b(ski,)623 b(P)-253 b(.)623 b(Pian)o(o)-19 b(w)-9 -b(ski,)622 b(P)-252 b(.)623 b(S)-10 b(tr)19 b(zelczyk)p -Blue 8717 14825 a(A)-19 b(dd)o(r)h(e)o(ss:)p Black 3285 -w(B)-10 b(OP)622 b(s.)150 b(c.)19329 17627 y(Gen)o(.)623 -b(T)-187 b(.)622 b(Bor)-9 b(a-K)-56 b(o)o(mor)-9 b(o)-19 -b(w)-10 b(skiego)622 b(2)o(4)19329 20429 y(8)o(0)149 -b(-)h(37)o(7)622 b(Gda\253sk,)g(P)-47 b(ola)o(nd)19329 -23231 y(b)o(op@b)o(op.com.pl)p Blue 8717 28835 a(Gho)o(s)-9 -b(tscri)q(p)f(t)-56 b(:)p Black 19329 28835 a +9522 a Blue 8717 12324 a Fa(L)o(i)q(ce)o(nse:)p Black +3559 w(GNU)621 b(G)q(e)o(ner)-10 b(al)622 b(Pub)o(lic)g(License)p +Blue 8717 15126 a(A)-19 b(ut)-9 b(h)o(or)9 b(s:)p Black +3681 w(P)-253 b(.)623 b(S)-10 b(t)q(r)18 b(zelczyk,)622 +b(P)-252 b(.)622 b(Piano)-19 b(w)-10 b(ski)p Blue 8717 +17928 a(A)-19 b(dd)o(r)h(e)o(ss:)p Black 3285 w(B)-10 +b(OP)622 b(s.)150 b(c.)19329 20730 y(Gen)o(.)623 b(T)-187 +b(.)622 b(Bor)-9 b(a-K)-56 b(o)o(mor)-9 b(o)-19 b(w)-10 +b(skiego)622 b(2)o(4)19329 23532 y(8)o(0)149 b(-)h(37)o(7)622 +b(Gda\253sk,)g(P)-47 b(ola)o(nd)19329 26334 y(b)o(op@b)o(op.com.pl)p +Blue 8717 31938 a(Gho)o(s)-9 b(tscri)q(p)f(t)-56 b(:)p +Black 19329 31938 a revision 100 div val_str cvs show - 19329 28835 -a Blue 8717 31637 a Fa(L)o(i)q(b)o(r)-9 b(aries:)p Black -19329 31637 a + 19329 31938 a Blue 8717 34740 a Fa(L)o(i)q(b)o(r)-9 +b(aries:)p Black 19329 34740 a /INFO_dict where {pop INFO_dict /LuaName known {INFO_dict /LuaName get show (, ) show} if INFO_dict /wxLuaName known {INFO_dict /wxLuaName get show (, ) show} if INFO_dict /wxWidgetsName known {INFO_dict /wxWidgetsName get show} if }{pop} ifelse - 19329 31637 a 53926 31637 a + 19329 34740 a 46629 34740 +a grestore - 53926 31637 -a -9000 39898 a + 46629 34740 a -9000 39898 a grestore -9000 39898 a eop end %%Trailer diff --git a/Master/tlpkg/tlpsv/psv_about_pl.ps b/Master/tlpkg/tlpsv/psv_about_pl.ps index 2dd3eb2922a..9759bf65763 100644 --- a/Master/tlpkg/tlpsv/psv_about_pl.ps +++ b/Master/tlpkg/tlpsv/psv_about_pl.ps @@ -1,16 +1,16 @@ %!PS-Adobe-2.0 %%Creator: dvips(k) 5.96 Copyright 2005 Radical Eye Software %%Title: psv_about_pl.dvi -%%CreationDate: Thu Apr 10 15:48:39 2008 +%%CreationDate: Tue Jul 1 16:19:32 2008 %%Pages: 1 %%PageOrder: Ascend %%BoundingBox: 0 0 567 392 %%DocumentFonts: QuasiSwiss-Regular %%EndComments %DVIPSWebPage: (www.radicaleye.com) -%DVIPSCommandLine: dvips psv_about_pl.dvi +%DVIPSCommandLine: dvips -tunknown psv_about_pl.dvi %DVIPSParameters: dpi=9000, comments removed -%DVIPSSource: TeX output 2008.04.10:1548 +%DVIPSSource: TeX output 2008.07.01:1619 %%BeginProcSet: tex.pro 0 0 /TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72 @@ -1155,7 +1155,7 @@ Black 26433 15449 a 8717 -2268 a 35433 x @beginspecial 12.104000 @llx 4.715000 @lly 450.476013 @urx 443.085999 @ury 2834.638672 @rwi @setspecial -%%BeginDocument: psv_logo.eps +%%BeginDocument: rys/psv_logo.eps /GSexport 100 dict def GSexport begin /h {closepath} def /m {moveto} def @@ -1278,49 +1278,50 @@ showpage 8717 33165 a 26433 15449 a currentpoint /OO_y exch def /OO_x exch def -26433 15449 a Blue 19346 1820 a +26433 15449 a Blue 19346 -488 a gsave currentpoint 185.01277 100 div div exch 185.01277 100 div div exch currentpoint neg 185.01277 100 div mul exch neg 185.01277 100 div mul exch translate 185.01277 100 div 185.01277 100 div scale translate - 19346 1820 a Fa(PS\346Vie)-19 -b(w)27007 1820 y + 19346 -488 a Fa(PS\346Vie)-19 +b(w)27007 -488 y grestore - 27007 1820 a Black 8717 5462 a + 27007 -488 a Black 8717 3154 a gsave currentpoint 121.36823 100 div div exch 121.36823 100 div div exch currentpoint neg 121.36823 100 div mul exch neg 121.36823 100 div mul exch translate 121.36823 100 div 121.36823 100 div scale translate 8717 -5462 a Fa(p)o(r)19 b(zeg)o(l\241da)o(r)10 b(ka)621 b(do)h(P)-47 -b(os)-9 b(t)-19 b(Scrip)-9 b(tu)622 b(i)g(PDF)37911 5462 +3154 a Fa(p)o(r)19 b(zeg)o(l\241da)o(r)10 b(ka)621 b(do)h(P)-47 +b(os)-9 b(t)-19 b(Scrip)-9 b(tu)622 b(i)g(PDF)37911 3154 y grestore - 37911 5462 a 8350 8264 a + 37911 3154 a 8350 5956 a gsave currentpoint 121.36823 100 div div exch 121.36823 100 div div exch currentpoint neg 121.36823 100 div mul exch neg 121.36823 100 div mul exch translate 121.36823 100 div 121.36823 100 div scale translate - 8350 8264 a Fa(nak\252a)o(dka)g(gr)-10 + 8350 5956 a Fa(nak\252a)o(dka)g(gr)-10 b(a\014czna)621 b(do)h(Ghos)-10 b(t)q(scrip)g(t)q(a)38148 -8264 y +5956 y grestore - 38148 8264 a 8717 31597 a -gsave currentpoint 78.37602 100 div div exch 78.37602 100 div div exch currentpoint neg 78.37602 100 div mul exch neg 78.37602 100 div mul exch translate 78.37602 100 div 78.37602 100 div scale translate - 8717 31597 a Blue -22416 -x Fa(W)-56 b(erj)o(sa:)p Black 19329 9181 a + 38148 5956 a 8717 33905 a +gsave currentpoint 87.47769 100 div div exch 87.47769 100 div div exch currentpoint neg 87.47769 100 div mul exch neg 87.47769 100 div mul exch translate 87.47769 100 div 87.47769 100 div scale translate + 8717 33905 a Blue -25218 +x Fa(W)-56 b(er)9 b(sja)o(:)p Black 19329 8687 a PS_VIEW show - 19329 9181 -a Blue 8717 11983 a Fa(A)-19 b(ut)g(or)19 b(zy)-47 b(:)p -Black 3830 w(B)o(.)623 b(Jac)9 b(k)-37 b(o)-19 b(w)-10 -b(ski,)623 b(P)-253 b(.)623 b(Pian)o(o)-19 b(w)-9 b(ski,)622 -b(P)-252 b(.)623 b(S)-10 b(tr)19 b(zelczyk)p Blue 8717 -14785 a(A)-19 b(dr)g(es:)p Black 5255 w(B)-10 b(OP)622 -b(s.)150 b(c.)19329 17587 y(u)o(l.)622 b(G)q(e)o(n.)g(T)-186 + 19329 +8687 a Blue 8717 11489 a Fa(L)o(i)q(ce)o(ncja)o(:)p Black +3145 w(GNU)621 b(G)q(e)o(ner)-10 b(al)622 b(Pub)o(lic)g(License)p +Blue 8717 14291 a(A)-19 b(ut)g(or)19 b(zy)-47 b(:)p Black +3830 w(P)-253 b(.)623 b(S)-10 b(t)q(r)18 b(zelczyk,)622 +b(P)-252 b(.)622 b(Piano)-19 b(w)-10 b(ski)p Blue 8717 +17093 a(A)-19 b(dr)g(es:)p Black 5255 w(B)-10 b(OP)622 +b(s.)150 b(c.)19329 19895 y(u)o(l.)622 b(G)q(e)o(n.)g(T)-186 b(.)622 b(Bor)-9 b(a)o(-K)-56 b(omor)-10 b(o)-19 b(w)-9 -b(skiego)621 b(24)19329 20389 y(8)o(0)149 b(-)h(37)o(7)622 -b(Gda\253sk,)g(P)-47 b(olska)19329 23191 y(b)o(op@b)o(op.com.pl)p -Blue 8717 28795 a(Gho)o(s)-9 b(tscri)q(p)f(t)-56 b(:)p -Black 19329 28795 a +b(skiego)621 b(24)19329 22697 y(8)o(0)149 b(-)h(37)o(7)622 +b(Gda\253sk)19329 25499 y(b)o(op@b)o(op.com.pl)p Blue +8717 31103 a(Gho)o(s)-9 b(tscri)q(p)f(t)-56 b(:)p Black +19329 31103 a revision 100 div val_str cvs show - 19329 28795 a Blue 8717 31597 a Fa(Bibl)o(i)q(o)-19 -b(t)-28 b(eki:)p Black 19329 31597 a + 19329 31103 a Blue 8717 33905 a Fa(Bibl)o(i)q(o)-19 +b(t)-28 b(eki:)p Black 19329 33905 a /INFO_dict where {pop INFO_dict /LuaName known {INFO_dict /LuaName get show (, ) show} if INFO_dict /wxLuaName known {INFO_dict /wxLuaName get show (, ) show} if INFO_dict /wxWidgetsName known {INFO_dict /wxWidgetsName get show} if }{pop} ifelse - 19329 31597 a 53926 -31597 a + 19329 33905 a 49222 +33905 a grestore - 53926 31597 a -9000 39898 a + 49222 33905 a -9000 39898 a grestore -9000 39898 a eop end diff --git a/Master/tlpkg/tlpsv/psv_help_en.htb b/Master/tlpkg/tlpsv/psv_help_en.htb new file mode 100644 index 00000000000..1cb0ce983c9 Binary files /dev/null and b/Master/tlpkg/tlpsv/psv_help_en.htb differ diff --git a/Master/tlpkg/tlpsv/psv_help_pl.htb b/Master/tlpkg/tlpsv/psv_help_pl.htb new file mode 100644 index 00000000000..a8286617fad Binary files /dev/null and b/Master/tlpkg/tlpsv/psv_help_pl.htb differ diff --git a/Master/tlpkg/tlpsv/psv_usage.pdf b/Master/tlpkg/tlpsv/psv_usage.pdf deleted file mode 100644 index 5b316e6012a..00000000000 Binary files a/Master/tlpkg/tlpsv/psv_usage.pdf and /dev/null differ diff --git a/Master/tlpkg/tlpsv/psv_usage_pl.pdf b/Master/tlpkg/tlpsv/psv_usage_pl.pdf deleted file mode 100644 index 5b316e6012a..00000000000 Binary files a/Master/tlpkg/tlpsv/psv_usage_pl.pdf and /dev/null differ diff --git a/Master/tlpkg/tlpsv/psv_view.ps b/Master/tlpkg/tlpsv/psv_view.ps index 575d7064e91..0bbeabe0040 100644 --- a/Master/tlpkg/tlpsv/psv_view.ps +++ b/Master/tlpkg/tlpsv/psv_view.ps @@ -31,11 +31,14 @@ %% Version: 5.04, 17.04.2008 (optional command parameters, and `layer' drawing corrected) %% Version: 5.05, 26.04.2008 (post-Pingwinaria release, 'layer' and printing bug corrected) %% Version: 5.06, 28.04.2008 (BachoTeX release) +%% 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) %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% userdict /view_dict 300 dict put view_dict begin -/PS_VIEW (PSView 5.06) def +/PS_VIEW (PSView 5.09) def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% userdict begin @@ -141,7 +144,7 @@ end % statusdict psv_unit_name (dd) eq {(DD_SET_psv_unit) check_SET_psv_unit} if psv_unit_name (bp) eq {(BP_SET_psv_unit) check_SET_psv_unit} if } if - psv_unit_name psv_unit meas + measure } def /ht_rel_conv {window_ht grid_ht div magnification div psv_unit div mul} def @@ -242,6 +245,12 @@ DELAYBIND {.bindnow /bind /.bind load .bind def} if } if } def +/bb_set_media { + bb_wd multi_x mul multi_dist psv_unit mul multi_x 1 sub mul add + bb_ht multi_y mul multi_dist psv_unit mul multi_y 1 sub mul add + dup 0 gt 2 index 0 gt and {(BB) set_media run_file} {pop pop} ifelse +} def + /screen_res_corr { screen_H page_H 72.0 div resolution_H mul div screen_W page_W 72.0 div resolution_W mul div minimum dup @@ -595,28 +604,6 @@ DELAYBIND {.bindnow /bind /.bind load .bind def} if % psv_sh_no_unit } def -/transl { - transl_dict exch 2 copy known - {get} {exch pop} ifelse -} def -/do_transl{ - flush (!PSV_LOCALE: T {) print - print - (}\n) print flush -} def -/prepare_locale { - /transl_dict 20 dict def - (Page: ) do_transl - (Pages: ) do_transl - (Angle: ) do_transl - (Flip: ) do_transl - (Zoom: ) do_transl - (None) do_transl - (Horizontal) do_transl - (Vertical) do_transl - (Both) do_transl -} def - /preview_toggle { /ciecolor ciecolor not def /alphabits ciecolor {4}{1} ifelse def @@ -1059,6 +1046,10 @@ cross2 init_cross run_file } def +/measure { + psv_unit_name psv_unit meas +} def + /meas {view_dict begin /new_psv_unit XD /new_psv_unit_name XD @@ -1138,8 +1129,8 @@ cross2 init_cross /sh_meas {z_conv orig_y add exch orig_x add exch cross1 /visible get { cross2 /visible get {pop pop pop pop hide_crosses} - {cross2 freeze_cross pop pop psv_unit_name psv_unit meas} ifelse - } {cross1 freeze_cross pop pop psv_unit_name psv_unit meas} ifelse + {cross2 freeze_cross pop pop measure} ifelse + } {cross1 freeze_cross pop pop measure} ifelse } def @@ -1212,6 +1203,14 @@ cross2 init_cross } if } def +/fullscreen { +dup /infullscreen exch def { + (!PSV_SIZE: FT\n) print flush +}{ + (!PSV_SIZE: FF\n) print flush +} ifelse +} def + /start_refresh { prepare_state /refresh_state XD INPUT /REFRESH get_PS_file @@ -2116,12 +2115,11 @@ cross2 init_cross /wr /write_restart LD -/ori_leave { +/leave { /CAUSE /LEAVE def flush (!PSV_MESSAGEBOX: 3 {LEAVE: save restart?}\n) print flush } def -/leave /ori_leave LD %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -2140,11 +2138,34 @@ cross2 init_cross (!PSV_CONFIG: G {PSV_Parameters}{language}{}\n) print flush } def +/transl { + transl_dict exch 2 copy known + {get} {exch pop} ifelse +} def +/do_transl{ + flush (!PSV_LOCALE: T {) print + print + (}\n) print flush +} def + +/prepare_locale { + /transl_dict 20 dict def + (Page: ) do_transl + (Pages: ) do_transl + (Angle: ) do_transl + (Flip: ) do_transl + (Zoom: ) do_transl + (None) do_transl + (Horizontal) do_transl + (Vertical) do_transl + (Both) do_transl + (!PSV_LOCALE: I\n) print flush +} def + /show_console {flush (!PSV_CONSOLE: S\n) print flush } def - /make_menu {flush (&File) (FILE) (MAIN) append_submenu (&Open\tCtrl+O) (OPEN) (FILE) append_item @@ -2155,7 +2176,8 @@ cross2 init_cross (&Load\tF3) (LOAD_RESTART) (RESTART) append_item (Load &from) (LOAD_FROM_RESTART) (RESTART) append_item (&Print) (PRINT) (FILE) append_item - (&Quit\tEsc, F4) (QUIT) (FILE) append_item + (&Leave\tEsc) (LEAVE) (FILE) append_item + (&Quit (and save restart)\tF4) (QUIT) (FILE) append_item (&Edit) (EDIT) (MAIN) append_submenu (&Undo\tDel, NumpadAsterisk) (UNDO) (EDIT) append_item (&Redo\tIns, Shift+NumpadAsterisk) (REDO) (EDIT) append_item @@ -2192,10 +2214,11 @@ cross2 init_cross (&Center\tCtrl+F11) (CENTER) (TRANSFORM) append_item (Reset &zoom && position\tF11) (RESET_ZOOM_&_POSITION) (TRANSFORM) append_item (Reset &transformations\tShift+F11) (RESET_TRANSFORMATIONS) (TRANSFORM) append_item + (Full &screen\tShift+F5) (FULL_SCREEN) (TRANSFORM) append_item (&Pages) (PAGES) (MAIN) append_submenu (&Next\tPgDn) (NEXT_PAGE) (PAGES) append_item (&Previous\tPgUp) (PREVIOUS_PAGE) (PAGES) append_item - (&Specified) (SPECIFIED_PAGE) (PAGES) append_item + (&Goto to) (SPECIFIED_PAGE) (PAGES) append_item (&First\tHome) (FIRST_PAGE) (PAGES) append_item (&Last\tEnd) (LAST_PAGE) (PAGES) append_item (&Grids && Frames) (GRIDS) (MAIN) append_submenu @@ -2257,8 +2280,9 @@ cross2 init_cross (Set &language) (CONF_LANGUAGE) (CONFIGURATION) append_item (&Show PS console) (SHOW_CONSOLE) (OPTIONS) append_item (&Help) (HELP) (MAIN) append_submenu - (&Usage\tF1) (USAGE) (HELP) append_item - (&About) (ABOUT) (HELP) append_item + (&Help\tF1) (HHELP) (HELP) append_item +% (&Manual) (USAGE) (HELP) append_item + (&About\tCtrl+F1) (ABOUT) (HELP) append_item (&Close help) (CLOSE_HELP) (HELP) append_item (CLOSE_HELP) gray_item % (&Show console) (SHOW_CONSOLE) (HELP) append_item show_menu @@ -2471,8 +2495,9 @@ cross2 init_cross llanguage () eq {(0) print} if llanguage (de) eq {(1) print} if llanguage (en) eq {(2) print} if - llanguage (pl) eq {(3) print} if - (|System default|Deutsch \(de\)|English \(en\)|Polish \(pl\)|) print + llanguage (nl) eq {(3) print} if + llanguage (pl) eq {(4) print} if + (|System default|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 @@ -2565,6 +2590,10 @@ cross2 init_cross /menu_shortcut {MENUCOMMANDS exch get def} def +/start_help { + (!PSV_HELP: S {}\n) print flush +} def + /open_help {/help_file_name XD prepare_state /after_help_state XD /main_file INPUT def @@ -2582,14 +2611,17 @@ cross2 init_cross /to_center true def /picture_on false def % /magnification 2.15246 def - /magnification 1 def + /magnification .9 def /curr_page 1 def /v_tape false def - KEYCOMMANDS begin NORM begin /F1 {} def end end - (USAGE) gray_item + KEYCOMMANDS begin NORM begin + /ESC_ori /ESC LD /F1_ori /F1 LD + /ESC {close_help} def + /F1 {close_help} def + end end +% (USAGE) gray_item (ABOUT) gray_item (CLOSE_HELP) normal_item - /leave /close_help LD /INPUT help_file_name findlibfile {closefile} if def 421 298 (BB) set_media 0 0 421 298 center_rect @@ -2598,11 +2630,10 @@ cross2 init_cross /close_help { after_help_state restore_state - (USAGE) normal_item +% (USAGE) normal_item (ABOUT) normal_item (CLOSE_HELP) gray_item - KEYCOMMANDS begin NORM begin /F1 /USAGE menu_shortcut end end - /leave /ori_leave LD + KEYCOMMANDS begin NORM begin /ESC /ESC_ori LD /F1 /F1_ori LD end end /INPUT main_file def /to_center main_to_center def /picture_on main_picture_on def @@ -2617,9 +2648,11 @@ cross2 init_cross /initials { %% Default settings /restart_name (!ps_rest.ps) def % name of the default restart file -/usage_file (psv_usage.pdf) def % name of the product info file +/help_file_en (psv_help_en.htb) def % name of the help file +/help_file_pl (psv_help_pl.htb) def % name of the help file +/usage_file_en (psv_usage.pdf) def % name of the manual file /usage_file_pl (psv_usage_pl.pdf) def -/about_file (psv_about.ps) def % name of the product info file +/about_file_en (psv_about.ps) def % name of the product info file /about_file_pl (psv_about_pl.ps) def /zoom_factor 2 sqrt def % MAG for the `m' command /shift_factor 5 def % SHIFT coeff. for the `mul_?' commands @@ -2687,6 +2720,7 @@ lc % set local window-oriented coordinates /background true def currentpagedevice /UseCIEColor get /ciecolor XD currentpagedevice /GraphicsAlphaBits get /alphabits XD + alphabits 1 eq {/alphabits 2 def} if % requested by users /in_print false def /multi_dist 0 def /multi_cycle false def @@ -2702,6 +2736,7 @@ userdict begin /psv_HS 0 def /psv_VS 0 def end /menu_on false def /inoverlay false def /drawoverlay false def +/infullscreen false def psv_init_print %% Command line parameters systemdict /LOCAL known {/LOCAL LOCAL def} {/LOCAL (null) def} ifelse @@ -2733,7 +2768,8 @@ MENUCOMMANDS begin /LOAD_RESTART {rr} def /LOAD_FROM_RESTART {/CAUSE /LOAD_FROM_RESTART def LOAD_FROM_RESTART_dialog} def /PRINT {pr} def - /QUIT {leave} def + /LEAVE {quit} def + /QUIT {q} def /UNDO {un} def /REDO {re} def /UNDO_REDO_TOGGLE {undo_redo} def @@ -2764,6 +2800,7 @@ MENUCOMMANDS begin /CENTER {cbb} def /RESET_ZOOM_&_POSITION {w} def /RESET_TRANSFORMATIONS {i} def + /FULL_SCREEN {infullscreen not fullscreen} def /NEXT_PAGE {n} def /PREVIOUS_PAGE {p} def /SPECIFIED_PAGE {SPECIFIED_PAGE_dlgbox} def @@ -2776,7 +2813,7 @@ MENUCOMMANDS begin /FINE_GRID {ggg} def /WINDOW_GRID {g} def /CLEAR_GRID {cgg} def - /MEASURE {psv_unit_name psv_unit meas} def + /MEASURE {measure} def /CM_SET_psv_unit {1 CM 10 (cm) (mm) set_psv_unit} def /MM_SET_psv_unit {1 MM 0.1 (mm) (cm) set_psv_unit} def /IN_SET_psv_unit {1 IN 12 (in) (1/12_in) set_psv_unit} def @@ -2787,17 +2824,14 @@ MENUCOMMANDS begin /A4L_SET_MEDIA { 842 595 (A4 Landscape) set_media run_file} def /A3_SET_MEDIA { 842 1190 (A3) set_media run_file} def /A3L_SET_MEDIA {1190 842 (A3 Landscape) set_media run_file} def - /BB_SET_MEDIA { - bb_wd multi_x mul multi_dist psv_unit mul multi_x 1 sub mul add - bb_ht multi_y mul multi_dist psv_unit mul multi_y 1 sub mul add - dup 0 gt 2 index 0 gt and {(BB) set_media run_file} {pop pop} ifelse - } def + /BB_SET_MEDIA {bb_set_media} def /ONE_PAGE {1 1 multipage} def /TWO_ONE_PAGE {2 1 multipage} def /TWO_ONE_PAGE_REVERSE {2 1 [2 1] multipage} def /ONE_TWO_PAGE {1 2 multipage} def /ONE_TWO_PAGE_REVERSE {1 2 [2 1] multipage} def /M_N_PAGE {M_N_PAGE_dlgbox} def + /VERTICAL_TAPE {save_state vertical_tape} def /CYCLE_TOGGLE {/multi_cycle multi_cycle not def multi_cycle {(&Cycle off) (CYCLE_TOGGLE) change_item} {(&Cycle on) (CYCLE_TOGGLE) change_item} ifelse @@ -2808,7 +2842,6 @@ MENUCOMMANDS begin /MULTIPAGE_BUNDLE_END {spl} def /MULTIPAGE_PERMUT {PERMUT_dlgbox} def /MULTIPAGE_DIST {MULTIPAGE_DIST_dlgbox} def - /VERTICAL_TAPE {save_state vertical_tape} def /SET_ZOOM_FACTOR {SET_ZOOM_FACTOR_dlgbox} def /SET_SHIFT_LENGTH {SET_SHIFT_LENGTH_dlgbox} def /BACKGROUND_TOGGLE {/background background not def @@ -2820,7 +2853,8 @@ MENUCOMMANDS begin /ALPHABITS_TOGGLE {/alphabits alphabits 1 gt {1}{4} ifelse def AlphaBits_set run_file} def /SHOW_CONSOLE {} def - /USAGE {usage_file open_help} def + /HHELP {start_help} def +% /USAGE {usage_file open_help} def /ABOUT {about_file open_help} def /CLOSE_HELP {close_help} def /SHOW_CONSOLE {show_console} def @@ -2856,8 +2890,8 @@ KEYCOMMANDS begin /LEFT_ARR /LEFT_KBD_MOVE menu_shortcut /DOWN_ARR /DOWN_KBD_MOVE menu_shortcut /UP_ARR /UP_KBD_MOVE menu_shortcut - /ESC /QUIT menu_shortcut - /F1 /USAGE menu_shortcut + /ESC {infullscreen {false fullscreen}{quit}ifelse} def + /F1 /HHELP menu_shortcut /F2 /SAVE_RESTART menu_shortcut /F3 /LOAD_RESTART menu_shortcut /F4 /QUIT menu_shortcut @@ -2887,6 +2921,7 @@ KEYCOMMANDS begin /END /MULTIPAGE_BUNDLE_END menu_shortcut /LESS /ZOOM_OUT menu_shortcut /GREATER /ZOOM_IN menu_shortcut + /F5 /FULL_SCREEN menu_shortcut /F11 /RESET_TRANSFORMATIONS menu_shortcut /F12 /FIT_HT menu_shortcut /MULTIPLY /REDO menu_shortcut @@ -2902,11 +2937,13 @@ KEYCOMMANDS begin /DOWN_ARR /DOWN_ALIGN menu_shortcut /UP_ARR /UP_ALIGN menu_shortcut /BEGIN /CENTER menu_shortcut + /L /FULL_SCREEN menu_shortcut /M /MEASURE menu_shortcut /O /OPEN menu_shortcut /R /FILE_REFRESH menu_shortcut /Z /UNDO_REDO_TOGGLE menu_shortcut /TAB /ROTATE_ANTICLOCKWISE menu_shortcut + /F1 /ABOUT menu_shortcut /F7 /CLEAR_GRID menu_shortcut /F8 /CLEAR_GRID menu_shortcut /F9 {preview_toggle} def @@ -3116,9 +3153,12 @@ end % MOUSECOMMANDS /REFRESH {pop pop start_refresh} def -/LOCALE {1 eq { +/LOCALE {dup 1 eq {pop transl_dict 3 1 roll put - }{pop pop} ifelse + }{ + 0 eq { + exch pop set_locale + }{pop pop} ifelse } ifelse } def /INFO {pop /INFO_dict XD /INFO_string XD} def @@ -3297,19 +3337,32 @@ end % MOUSECOMMANDS } def /LANGUAGELIST { - dup (1000) eq {/llanguage () def} if - dup (0100) eq {/llanguage (de) def} if - dup (0010) eq {/llanguage (en) def} if - (0001) eq {/llanguage (pl) def} if + 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 (!PSV_CONFIG: S {PSV_Parameters}{language}{) print llanguage print (}\n) print flush } def /PSV_Parameters_language { - pop /llanguage XD - llanguage (pl) eq { + pop dup /llanguage XD set_locale +} def +/set_locale{ + dup (pl) eq { /about_file about_file_pl def /usage_file usage_file_pl def - } if + (!PSV_HELP: I {) print + help_file_pl print + (}\n) print flush + }{ + /about_file about_file_en def + /usage_file usage_file_en def + (!PSV_HELP: I {) print + help_file_en print + (}\n) print flush + } ifelse + pop } def /CONFIG { -- cgit v1.2.3