← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/horae/jaunty

« back to all changes in this revision

Viewing changes to artemis_parts/project.pl

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
artemis_parts/project.pl
493
493
  $widgets{op_titles} -> insert('end', $paths{$first}->get('titles'));
494
494
  display_page($first);
495
495
  $file_menu->menu->entryconfigure($save_index, -state=>'normal'); # data
496
 
  map {$file_menu->menu->entryconfigure($_, -state=>'normal')} ($save_index+4, $save_index+6);
 
496
  $file_menu -> menu -> entryconfigure($save_index+6, -state=>'normal');
 
497
  $file_menu -> menu -> entryconfigure($save_index+4, -state=>($Tk::VERSION > 804) ? 'normal' : 'disabled'); # all paths
497
498
  (-e $paths{$first}->get('file')) and plot('r', 0);
498
499
  $top -> Unbusy unless $is_busy;
499
500
  Echo("Read project description \`$file\'.");
891
892
                   -text           => $message,
892
893
                   -title          => 'Artemis: Compacting project...',
893
894
                   -buttons        => [qw/OK/],
 
895
                   -font           => $config{fonts}{med},
894
896
                   -default_button => 'OK')
895
897
      -> Show();
896
898
  Echo(q{});