new tlpsv ver5.09t

git-svn-id: svn://tug.org/texlive/trunk@9161 c570f23f-e606-0410-a88d-b1316a301751

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
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
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
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
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
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
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
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
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
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
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
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
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 {