summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStaszek Wawrykiewicz <staw@gust.org.pl>2008-07-02 17:25:20 +0000
committerStaszek Wawrykiewicz <staw@gust.org.pl>2008-07-02 17:25:20 +0000
commitb3f899f57f9937648bd6c556e383ee25baa6bca5 (patch)
tree4d263823c053395389d104607a7955e7ac7cbd20
parent8674ade88de57ab47f31f6bc4d6e698e1f23f69a (diff)
new tlpsv ver5.09t
git-svn-id: svn://tug.org/texlive/trunk@9161 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/tlpsv/README10
-rw-r--r--Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mobin15531 -> 15820 bytes
-rw-r--r--Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mobin14680 -> 14950 bytes
-rwxr-xr-xMaster/tlpkg/tlpsv/gswxlua.exebin1433088 -> 1458688 bytes
-rw-r--r--Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mobin0 -> 15016 bytes
-rw-r--r--Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mobin15388 -> 15696 bytes
-rwxr-xr-xMaster/tlpkg/tlpsv/psv.exebin24064 -> 24064 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv.icobin0 -> 2734 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv.wx.lua82
-rw-r--r--Master/tlpkg/tlpsv/psv_1.icobin11502 -> 0 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv_about.ps68
-rw-r--r--Master/tlpkg/tlpsv/psv_about_pl.ps67
-rw-r--r--Master/tlpkg/tlpsv/psv_help_en.htbbin0 -> 78470 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv_help_pl.htbbin0 -> 80630 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv_usage.pdfbin198208 -> 0 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv_usage_pl.pdfbin198208 -> 0 bytes
-rw-r--r--Master/tlpkg/tlpsv/psv_view.ps181
17 files changed, 248 insertions, 160 deletions
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
--- a/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo
+++ b/Master/tlpkg/tlpsv/de/LC_MESSAGES/psv.mo
Binary files 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
--- a/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo
+++ b/Master/tlpkg/tlpsv/en/LC_MESSAGES/psv.mo
Binary files differ
diff --git a/Master/tlpkg/tlpsv/gswxlua.exe b/Master/tlpkg/tlpsv/gswxlua.exe
index 07590c421cc..8e23be13549 100755
--- a/Master/tlpkg/tlpsv/gswxlua.exe
+++ b/Master/tlpkg/tlpsv/gswxlua.exe
Binary files 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
--- /dev/null
+++ b/Master/tlpkg/tlpsv/nl/LC_MESSAGES/psv.mo
Binary files 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
--- a/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo
+++ b/Master/tlpkg/tlpsv/pl/LC_MESSAGES/psv.mo
Binary files differ
diff --git a/Master/tlpkg/tlpsv/psv.exe b/Master/tlpkg/tlpsv/psv.exe
index 33e632ab554..ca59d810950 100755
--- a/Master/tlpkg/tlpsv/psv.exe
+++ b/Master/tlpkg/tlpsv/psv.exe
Binary files differ
diff --git a/Master/tlpkg/tlpsv/psv.ico b/Master/tlpkg/tlpsv/psv.ico
new file mode 100644
index 00000000000..2e240602bbc
--- /dev/null
+++ b/Master/tlpkg/tlpsv/psv.ico
Binary files 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
--- a/Master/tlpkg/tlpsv/psv_1.ico
+++ /dev/null
Binary files 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
--- /dev/null
+++ b/Master/tlpkg/tlpsv/psv_help_en.htb
Binary files 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
--- /dev/null
+++ b/Master/tlpkg/tlpsv/psv_help_pl.htb
Binary files differ
diff --git a/Master/tlpkg/tlpsv/psv_usage.pdf b/Master/tlpkg/tlpsv/psv_usage.pdf
deleted file mode 100644
index 5b316e6012a..00000000000
--- a/Master/tlpkg/tlpsv/psv_usage.pdf
+++ /dev/null
Binary files 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
--- a/Master/tlpkg/tlpsv/psv_usage_pl.pdf
+++ /dev/null
Binary files 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 {