Using horae 066 with perl/Tk 804.028

There are some issues using horae -- especially Athena -- with the development release of perl/Tk 804.028. To avoid these problems, use perl/Tk 804.027. If you want to proceed with 804.028, you will have to make the following changes to the code:

1. In the file athena_parts/head.pl, at line 538, change

      1 $top -> setPalette(font => $config{fonts}{small},
   

   to

      1 $top -> setPalette(-font => $config{fonts}{small},
   

   i.e. add the dash before font.

2. At the end of the file athena_parts/misc.pl, change this:

      1 package Patch::SREZIC::Tk::Wm;
      2 
      3 use Tk::Wm;
      4 package Tk::Wm;
      5 
      6 sub Post
      7 {
      8  my ($w,$X,$Y) = @_;
      9  $X = int($X);
     10  $Y = int($Y);
     11  $w->positionfrom('user');
     12  # $w->geometry("+$X+$Y");
     13  $w->MoveToplevelWindow($X,$Y);
     14  $w->deiconify;
     15 # $w->idletasks; # to prevent problems with KDE's kwm etc.
     16 # $w->raise;
     17 }
     18 
     19 1;
     20 
     21 ## END OF MISCELLANEOUS SUBSECTION
     22 ##########################################################################################
   

   to this

      1 package Patch::SREZIC::Tk::Wm;
      2 
      3 use Tk::Wm;
      4 package Tk::Wm;
      5 
      6 sub Post
      7 {
      8  my ($w,$X,$Y) = @_;
      9  $X = int($X);
     10  $Y = int($Y);
     11  $w->positionfrom('user');
     12  # $w->geometry("+$X+$Y");
     13  $w->MoveToplevelWindow($X,$Y);
     14  $w->deiconify;
     15 # $w->idletasks; # to prevent problems with KDE's kwm etc.
     16 # $w->raise;
     17 }
     18 
     19 package Patch::BR::Tk::FBox;
     20 use Tk::FBox;
     21 package Tk::FBox;
     22 sub _get_select_Path {
     23     my($w) = @_;
     24     $w->_encode_filename($w->{'selectPath'});
     25 };
     26 
     27 1;
     28 
     29 ## END OF MISCELLANEOUS SUBSECTION
     30 ##########################################################################################