perl -d:ptkdb script.pl

cat >> ~/.Xresources

ptkdb*scrollbars: se
ptkdb.frame2.frame1.rotext.balloon.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                       /* Hot Variable Balloon Font */

           ptkdb.frame*font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                           /* Menu Bar */
           ptkdb.frame.menubutton.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                /* File menu */
           ptkdb.frame2.frame1.rotext.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*            /* Code Pane */
           ptkdb.notebook.datapage.frame1.hlist.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*  /* Expression Notebook Page */

           ptkdb.notebook.subspage*font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*               /* Subroutine Notebook Page */
           ptkdb.notebook.brkptspage*entry.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*       /* Delete Breakpoint Buttons */
           ptkdb.notebook.brkptspage*button.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*      /* Breakpoint Expression Entries */
           ptkdb.notebook.brkptspage*button1.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*     /* Breakpoint Expression Entries */
           ptkdb.notebook.brkptspage*checkbutton.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-* /* Breakpoint Checkbuttons */
           ptkdb.notebook.brkptspage*label.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*       /* Breakpoint Checkbuttons */

           ptkdb.toplevel.frame.textundo.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*         /* Eval Expression Entry Window */
           ptkdb.toplevel.frame1.text.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*            /* Eval Expression Results Window */
           ptkdb.toplevel.button.font:  -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                /* "Eval..." Button */
           ptkdb.toplevel.button1.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                /* "Clear Eval" Button */
           ptkdb.toplevel.button2.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                /* "Clear Results" Button */
           ptkdb.toplevel.button3.font: -*-fixed-*-*-*-*-24-*-*-*-*-*-iso8859-*                /* "Clear Dismiss" Button */
ptkdb*stopfont: -*-courier-bold-r-*-*-24-*-*-*-*-*-iso8859-*


xrdb -override ~/.Xresources