~ubuntu-branches/ubuntu/gutsy/horae/gutsy

« back to all changes in this revision

Viewing changes to artemis_parts/project.pl

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2006-12-28 12:36:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20061228123648-9xnjr76wfthd92cq
Tags: 064-1
New upstream release, dropped dependency on libtk-filedialog-perl.

Show diffs side-by-side

added added

removed removed

Lines of Context:
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\'.");