--- gfont.h.orig	Mon Mar 19 02:02:22 2001

+++ gfont.h	Sun Nov  2 21:31:45 2003

@@ -158,4 +158,4 @@

 void combo_drag_data_received(GtkWidget *entry, GdkDragContext *context,

 			      gint x, gint y, GtkSelectionData *data,

 			      guint info, guint time);

-#endif _GFONT_H

+#endif /* _GFONT_H */

--- ps.h.orig	Sun Jun 25 21:17:29 2000

+++ ps.h	Sun Nov  2 21:27:10 2003

@@ -71,303 +71,303 @@

 ";

-const char *text_samples = "\

-/TextSamplerDict 40 dict def

-TextSamplerDict begin

-/Inch {72 mul} def

-/linewidth 7 Inch def

-/yline 9.7 Inch def

-/LM 0.7 Inch def

-/wordbreak ( ) def

-/buf 8 string def

-

-/DoTitle { % fontname DoTitle

-  /Helvetica findfont 18 scalefont setfont

-  LM 10.5 Inch moveto

-  show 

-  ( at ) show fontsize buf cvs show ( points, spacing = ) show

-  spacing buf cvs show

-} def

-

-/DoSamples { % fontname fontsize spacing DoSamples

-  /spacing exch def

-  /fontsize exch def

-  /fontname exch def

-

-  fontname findfont fontsize scalefont setfont

-  /newline {/yline yline fontsize spacing mul sub def LM yline moveto} def

-  /breakwidth wordbreak stringwidth pop def

-  /curwidth 0 def

-  /lastwordbreak 0 def

-  /startchar 0 def

-  /restoftext textstring def

-

-

-  LM yline moveto

-  { restoftext wordbreak search

-    {

-      /nextword exch def pop

-      /restoftext exch def

-      /wordwidth nextword stringwidth pop def

-    

-      curwidth wordwidth add linewidth gt

-      {

-        textstring startchar lastwordbreak startchar sub getinterval

-        show newline

-        /startchar lastwordbreak def

-        /curwidth wordwidth breakwidth add def

-      }

-      {

-        /curwidth curwidth wordwidth breakwidth add add def

-      } 

-      ifelse

-      /lastwordbreak lastwordbreak nextword length 1 add add def

-    }

-    {pop exit}

-    ifelse

-  } loop

-  /lastchar textstring length def

-  textstring startchar lastchar startchar sub getinterval show

-} def

-end

+const char *text_samples = "\n\

+/TextSamplerDict 40 dict def\n\

+TextSamplerDict begin\n\

+/Inch {72 mul} def\n\

+/linewidth 7 Inch def\n\

+/yline 9.7 Inch def\n\

+/LM 0.7 Inch def\n\

+/wordbreak ( ) def\n\

+/buf 8 string def\n\

+\n\

+/DoTitle { % fontname DoTitle\n\

+  /Helvetica findfont 18 scalefont setfont\n\

+  LM 10.5 Inch moveto\n\

+  show\n\

+  ( at ) show fontsize buf cvs show ( points, spacing = ) show\n\

+  spacing buf cvs show\n\

+} def\n\

+\n\

+/DoSamples { % fontname fontsize spacing DoSamples\n\

+  /spacing exch def\n\

+  /fontsize exch def\n\

+  /fontname exch def\n\

+\n\

+  fontname findfont fontsize scalefont setfont\n\

+  /newline {/yline yline fontsize spacing mul sub def LM yline moveto} def\n\

+  /breakwidth wordbreak stringwidth pop def\n\

+  /curwidth 0 def\n\

+  /lastwordbreak 0 def\n\

+  /startchar 0 def\n\

+  /restoftext textstring def\n\

+\n\

+\n\

+  LM yline moveto\n\

+  { restoftext wordbreak search\n\

+    {\n\

+      /nextword exch def pop\n\

+      /restoftext exch def\n\

+      /wordwidth nextword stringwidth pop def\n\

+   \n\

+      curwidth wordwidth add linewidth gt\n\

+      {\n\

+        textstring startchar lastwordbreak startchar sub getinterval\n\

+        show newline\n\

+        /startchar lastwordbreak def\n\

+        /curwidth wordwidth breakwidth add def\n\

+      }\n\

+      {\n\

+        /curwidth curwidth wordwidth breakwidth add add def\n\

+      }\n\

+      ifelse\n\

+      /lastwordbreak lastwordbreak nextword length 1 add add def\n\

+    }\n\

+    {pop exit}\n\

+    ifelse\n\

+  } loop\n\

+  /lastchar textstring length def\n\

+  textstring startchar lastchar startchar sub getinterval show\n\

+} def\n\

+end\n\

 ";

-const char *check_type42 = "\

-languagelevel 2 lt

-{

-  /Helvetica findfont 14 scalefont setfont

-  72 420 moveto

-  (Your printer or PostScript interpreter does not support PostScript Level 2) show

-  showpage

-  quit

-} if

-

-42 /FontType resourcestatus not

-{

-  /Helvetica findfont 14 scalefont setfont

-  72 420 moveto

-  (Your printer or PostScript interpreter does not support Type 42 fonts) show

-  showpage

-  quit

-} if

-pop pop

+const char *check_type42 = "\n\

+languagelevel 2 lt\n\

+{\n\

+  /Helvetica findfont 14 scalefont setfont\n\

+  72 420 moveto\n\

+  (Your printer or PostScript interpreter does not support PostScript Level 2) show\n\

+  showpage\n\

+  quit\n\

+} if\n\

+\n\

+42 /FontType resourcestatus not\n\

+{\n\

+  /Helvetica findfont 14 scalefont setfont\n\

+  72 420 moveto\n\

+  (Your printer or PostScript interpreter does not support Type 42 fonts) show\n\

+  showpage\n\

+  quit\n\

+} if\n\

+pop pop\n\

 ";

-const char *phrase_samples = "\

-/PhraseSamplerDict 20 dict def

-PhraseSamplerDict begin

-/Inch {72 mul} def

-/LM 0.5 Inch def

-/RM 7.6 Inch def

-/Temp 64 string def

-/T /Helvetica findfont 10 scalefont def

-/T6 /Helvetica findfont 6 scalefont def 

-/Header {  % text height Header

-  RM exch moveto T6 setfont dup stringwidth pop neg 0 rmoveto show

-} def

-/FontName { % fontname fontfile height FontName

-  /y exch def

-  /FFile exch def

-  /FName exch def

-

-  LM y moveto

-  T setfont FName Temp cvs show

-  LM y 8 sub moveto

-  T6 setfont FFile show

-} def

-/FontSample {  % fontname size height FontSample

-  /y exch def

-  /FSize exch def

-  /FName exch def

-

-  LM 160 add y moveto

-  mark

-  {

-    FName findfont FSize scalefont setfont 

-    StringSample show

-  }

-  stopped {

-    LM 160 add y moveto

-    T6 setfont (Error: ) show

-    $error /errorname get Temp cvs show

-    ( [) show

-    $error /command get Temp cvs show

-    (] ) show               

-  }

-  if

-  cleartomark

-} def

-end

+const char *phrase_samples = "\n\

+/PhraseSamplerDict 20 dict def\n\

+PhraseSamplerDict begin\n\

+/Inch {72 mul} def\n\

+/LM 0.5 Inch def\n\

+/RM 7.6 Inch def\n\

+/Temp 64 string def\n\

+/T /Helvetica findfont 10 scalefont def\n\

+/T6 /Helvetica findfont 6 scalefont def\n\

+/Header {  % text height Header\n\

+  RM exch moveto T6 setfont dup stringwidth pop neg 0 rmoveto show\n\

+} def\n\

+/FontName { % fontname fontfile height FontName\n\

+  /y exch def\n\

+  /FFile exch def\n\

+  /FName exch def\n\

+\n\

+  LM y moveto\n\

+  T setfont FName Temp cvs show\n\

+  LM y 8 sub moveto\n\

+  T6 setfont FFile show\n\

+} def\n\

+/FontSample {  % fontname size height FontSample\n\

+  /y exch def\n\

+  /FSize exch def\n\

+  /FName exch def\n\

+\n\

+  LM 160 add y moveto\n\

+  mark\n\

+  {\n\

+    FName findfont FSize scalefont setfont\n\

+    StringSample show\n\

+  }\n\

+  stopped {\n\

+    LM 160 add y moveto\n\

+    T6 setfont (Error: ) show\n\

+    $error /errorname get Temp cvs show\n\

+    ( [) show\n\

+    $error /command get Temp cvs show\n\

+    (] ) show              \n\

+  }\n\

+  if\n\

+  cleartomark\n\

+} def\n\

+end\n\

 ";

-const char *size_samples = "\

-/SizeSamplerDict 40 dict def

-SizeSamplerDict begin

-/Strings 

-{ [

-	(ABCDEFGHIJKLMNOPQRSTUVWXYZ)

-	(abcdefghijklmnopqrstuvwxyz)

-	(0123456789<=>:;?@!\"#$%&')

-	(\\( \\)*+,-./ [ \\\\ ]^_`{|}~)

-] } def

-

-

-/Sizes 

-{ [

-  8 10 12 14 20 24 28

-] } def

-

-/infofont /Helvetica findfont 10 scalefont def

-/msg 8 string def

-/Inch {72 mul} def

-/DoTitle { % fontname DoTitle

-  % Write the font name on top of the page

-  /Helvetica findfont 18 scalefont setfont

-  dup stringwidth

-  exch 8 Inch exch sub 2 div exch

-  10.5 Inch exch sub

-  moveto show

-} def

-/DoSamples { % font DoSamples

-  % Make the font samples

-  /fontname exch def

-  /testfont fontname findfont def

-  1 setlinewidth

-  60 50 moveto

-

-  Sizes

-  {

-    /size exch def

-    testfont size scalefont setfont

-    currentpoint translate % start of line

-    5 0 rmoveto

-

-    Strings 

-    {

-      currentpoint

-      3 -1 roll show

-      moveto

-      0 1.2 size mul rmoveto  % add 30% of the size vertically

-    } forall  % Strings

-

-    -5 0 rmoveto

-    currentpoint         % end of line

-    newpath 0 0 moveto lineto

-    currentpoint stroke  % leave end of line pos in stack

-  

-  % Print the font size in the middle of the line

-    dup                            % leave y in the stack (x is 0)

-    infofont setfont

-    size msg cvs dup stringwidth   % Push string 'n' and its size on the stack

-    4 -1 roll exch sub 2 div         % Stack is 'string width ypos'

-    exch 5 add neg exch moveto show  % Move to the left and print

-

-    moveto         % take end of line pos from stack

-    0 15 rmoveto   % Add vertical space between groups

-  } forall % Sizes

-} def

-end

+const char *size_samples = "\n\

+/SizeSamplerDict 40 dict def\n\

+SizeSamplerDict begin\n\

+/Strings\n\

+{ [\n\

+	(ABCDEFGHIJKLMNOPQRSTUVWXYZ)\n\

+	(abcdefghijklmnopqrstuvwxyz)\n\

+	(0123456789<=>:;?@!\"#$%&')\n\

+	(\\( \\)*+,-./ [ \\\\ ]^_`{|}~)\n\

+] } def\n\

+\n\

+\n\

+/Sizes\n\

+{ [\n\

+  8 10 12 14 20 24 28\n\

+] } def\n\

+\n\

+/infofont /Helvetica findfont 10 scalefont def\n\

+/msg 8 string def\n\

+/Inch {72 mul} def\n\

+/DoTitle { % fontname DoTitle\n\

+  % Write the font name on top of the page\n\

+  /Helvetica findfont 18 scalefont setfont\n\

+  dup stringwidth\n\

+  exch 8 Inch exch sub 2 div exch\n\

+  10.5 Inch exch sub\n\

+  moveto show\n\

+} def\n\

+/DoSamples { % font DoSamples\n\

+  % Make the font samples\n\

+  /fontname exch def\n\

+  /testfont fontname findfont def\n\

+  1 setlinewidth\n\

+  60 50 moveto\n\

+\n\

+  Sizes\n\

+  {\n\

+    /size exch def\n\

+    testfont size scalefont setfont\n\

+    currentpoint translate % start of line\n\

+    5 0 rmoveto\n\

+\n\

+    Strings\n\

+    {\n\

+      currentpoint\n\

+      3 -1 roll show\n\

+      moveto\n\

+      0 1.2 size mul rmoveto  % add 30% of the size vertically\n\

+    } forall  % Strings\n\

+\n\

+    -5 0 rmoveto\n\

+    currentpoint         % end of line\n\

+    newpath 0 0 moveto lineto\n\

+    currentpoint stroke  % leave end of line pos in stack\n\

+ \n\

+  % Print the font size in the middle of the line\n\

+    dup                            % leave y in the stack (x is 0)\n\

+    infofont setfont\n\

+    size msg cvs dup stringwidth   % Push string 'n' and its size on the stack\n\

+    4 -1 roll exch sub 2 div         % Stack is 'string width ypos'\n\

+    exch 5 add neg exch moveto show  % Move to the left and print\n\

+\n\

+    moveto         % take end of line pos from stack\n\

+    0 15 rmoveto   % Add vertical space between groups\n\

+  } forall % Sizes\n\

+} def\n\

+end\n\

 ";

-const char *map_samples = "\

-/MapSamplerDict 40 dict def

-MapSamplerDict begin

-/T /Helvetica findfont 10 scalefont def

-/T6 /Times-Roman findfont 6 scalefont def

-/Temp 64 string def

-/Inch {72 mul} def

-/Base 16 def    % char code output base

-/TempEncoding [ 256 { /.notdef } repeat ] def

-/ISOLatin1Dict 256 dict def

-ISOLatin1Encoding { ISOLatin1Dict exch true put } forall

-/min { 2 copy gt { exch } if pop } bind def

-/DoChar {

-  /C exch def

-  /S (_) dup 0 C put def

-  /N F /Encoding get C get def

-  /W F setfont S stringwidth pop def

-  T6 setfont

-  0 -20 moveto N Temp cvs show

-  0 -12 moveto

-  W 0.0005 add Temp cvs 0 5 getinterval show

-  N /.notdef ne {

-    3 0 translate

-    0 0 moveto F24 setfont S show

-    /W S stringwidth pop def

-    0 -6 moveto 0 24 lineto

-    W -6 moveto W 24 lineto

-    -3 0 moveto W 3 add 0 lineto

-    0 setlinewidth stroke

-  } if

-} def                            

-/DoTitle { % fontname DoTitle

-  /Helvetica findfont 18 scalefont setfont

-  dup stringwidth

-  exch 8 Inch exch sub 2 div exch

-  10.7 Inch exch sub

-  moveto show

-} def

-/Header {  % header Header

-  7.6 Inch 10.7 Inch moveto T setfont dup stringwidth pop neg 0 rmoveto show

-} def

-/DoBlock {      % firstcode lastcode DoBlock

-  /FirstCode 2 index def

-  1 exch {

-    /I exch def

-    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def

-    gsave

-    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate

-    I DoChar

-    grestore

-  } for

-} def                          

-/FontShow0 {  % fontname FontShow0

-  /FName exch def       % font name

-  /F FName findfont def

-  /Done 256 dict def

-  /NewEncoding [

-      ISOLatin1Encoding {

-        dup F /CharStrings get exch known {

-          dup Done exch known { pop } { dup Done exch true put } ifelse

-        } { pop } ifelse

-      } forall

-      F /CharStrings get {

-        pop dup ISOLatin1Dict exch known { pop } if

-      } forall

-  ] def

-  F length dict F {

-    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse

-  } forall

-  dup /Encoding NewEncoding put

-  /* exch definefont

-  /F exch def

-  /F24 F 24 scalefont def

-  70 160 translate

-  0.80 dup scale

-  0 NewEncoding length 1 sub DoBlock

-} def                        

-/FontShowV {  % encoding fontname FontShowV

-  /FName exch def       

-  /NewEncoding exch def

-  /F FName findfont def

-  F length dict F {

-    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse

-  } forall

-  dup /Encoding NewEncoding put

-  /* exch definefont

-  /F exch def

-  /F24 F 24 scalefont def

-  70 160 translate

-  0.80 dup scale

-  0 NewEncoding length 1 sub DoBlock

-} def

-end  

+const char *map_samples = "\n\

+/MapSamplerDict 40 dict def\n\

+MapSamplerDict begin\n\

+/T /Helvetica findfont 10 scalefont def\n\

+/T6 /Times-Roman findfont 6 scalefont def\n\

+/Temp 64 string def\n\

+/Inch {72 mul} def\n\

+/Base 16 def    % char code output base\n\

+/TempEncoding [ 256 { /.notdef } repeat ] def\n\

+/ISOLatin1Dict 256 dict def\n\

+ISOLatin1Encoding { ISOLatin1Dict exch true put } forall\n\

+/min { 2 copy gt { exch } if pop } bind def\n\

+/DoChar {\n\

+  /C exch def\n\

+  /S (_) dup 0 C put def\n\

+  /N F /Encoding get C get def\n\

+  /W F setfont S stringwidth pop def\n\

+  T6 setfont\n\

+  0 -20 moveto N Temp cvs show\n\

+  0 -12 moveto\n\

+  W 0.0005 add Temp cvs 0 5 getinterval show\n\

+  N /.notdef ne {\n\

+    3 0 translate\n\

+    0 0 moveto F24 setfont S show\n\

+    /W S stringwidth pop def\n\

+    0 -6 moveto 0 24 lineto\n\

+    W -6 moveto W 24 lineto\n\

+    -3 0 moveto W 3 add 0 lineto\n\

+    0 setlinewidth stroke\n\

+  } if\n\

+} def                           \n\

+/DoTitle { % fontname DoTitle\n\

+  /Helvetica findfont 18 scalefont setfont\n\

+  dup stringwidth\n\

+  exch 8 Inch exch sub 2 div exch\n\

+  10.7 Inch exch sub\n\

+  moveto show\n\

+} def\n\

+/Header {  % header Header\n\

+  7.6 Inch 10.7 Inch moveto T setfont dup stringwidth pop neg 0 rmoveto show\n\

+} def\n\

+/DoBlock {      % firstcode lastcode DoBlock\n\

+  /FirstCode 2 index def\n\

+  1 exch {\n\

+    /I exch def\n\

+    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def\n\

+    gsave\n\

+    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate\n\

+    I DoChar\n\

+    grestore\n\

+  } for\n\

+} def                         \n\

+/FontShow0 {  % fontname FontShow0\n\

+  /FName exch def       % font name\n\

+  /F FName findfont def\n\

+  /Done 256 dict def\n\

+  /NewEncoding [\n\

+      ISOLatin1Encoding {\n\

+        dup F /CharStrings get exch known {\n\

+          dup Done exch known { pop } { dup Done exch true put } ifelse\n\

+        } { pop } ifelse\n\

+      } forall\n\

+      F /CharStrings get {\n\

+        pop dup ISOLatin1Dict exch known { pop } if\n\

+      } forall\n\

+  ] def\n\

+  F length dict F {\n\

+    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\

+  } forall\n\

+  dup /Encoding NewEncoding put\n\

+  /* exch definefont\n\

+  /F exch def\n\

+  /F24 F 24 scalefont def\n\

+  70 160 translate\n\

+  0.80 dup scale\n\

+  0 NewEncoding length 1 sub DoBlock\n\

+} def                       \n\

+/FontShowV {  % encoding fontname FontShowV\n\

+  /FName exch def      \n\

+  /NewEncoding exch def\n\

+  /F FName findfont def\n\

+  F length dict F {\n\

+    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\

+  } forall\n\

+  dup /Encoding NewEncoding put\n\

+  /* exch definefont\n\

+  /F exch def\n\

+  /F24 F 24 scalefont def\n\

+  70 160 translate\n\

+  0.80 dup scale\n\

+  0 NewEncoding length 1 sub DoBlock\n\

+} def\n\

+end\n\

 ";