← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to demos/demos/widget_lib/menus.pl

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/demos/widget_lib/menus.pl
159
159
    $menubar->bind('<<MenuSelect>>' => sub {
160
160
        my $label = undef;
161
161
        my $w = $Tk::event->W;
162
 
        $label = $w->entrycget('active', -label);
163
 
        $status_bar = $label;
 
162
        eval {local $SIG{__DIE__};
 
163
              $label = $w->entrycget('active', -label);
 
164
              $status_bar = $label;
 
165
        };
164
166
        $TOP->idletasks;
165
167
    });
166
168