← Back to branch summary

~ubuntu-branches/ubuntu/lucid/perl-tk/lucid

« back to all changes in this revision

Viewing changes to Menubutton/Menubutton.pm

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2008-02-15 13:56:59 UTC
  • mfrom: (1.1.3 upstream) (4.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080215135659-ru2oqlykuju20fav
Tags: 1:804.028-1
http://bugs.debian.org/463080
http://bugs.debian.org/411129
* New Upstream Release (Closes: #463080).
* Update to Debhelper v5.
* Build with XFT=1 (Closes: #411129).

Show diffs side-by-side

added added

removed removed

Lines of Context:
Menubutton/Menubutton.pm
17
17
require Tk;
18
18
 
19
19
use vars qw($VERSION);
20
 
$VERSION = '4.004'; # $Id: //depot/Tkutf8/Menubutton/Menubutton.pm#4 $
 
20
$VERSION = '4.005'; # $Id: //depot/Tkutf8/Menubutton/Menubutton.pm#4 $
21
21
 
22
22
use base  qw(Tk::Widget);
23
23
 
269
269
 if ($tearoff)
270
270
  {
271
271
   $menu->focus;
272
 
   $w->SaveGrabInfo;
273
 
   $w->grabGlobal;
 
272
   if ($w->viewable)
 
273
    {
 
274
     $w->SaveGrabInfo;
 
275
     $w->grabGlobal;
 
276
    }
274
277
  }
275
278
}
276
279
# Motion --