← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Tk/Menu.pm

  • 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:
Tk/Menu.pm
21
21
 
22
22
 
23
23
use vars qw($VERSION);
24
 
$VERSION = '3.045'; # $Id: //depot/Tk8/Tk/Menu.pm#45 $
 
24
$VERSION = '3.048'; # $Id: //depot/Tk8/Tk/Menu.pm#48 $
25
25
 
26
26
use strict;
27
27
 
58
58
 my ($menu,$args) = @_;
59
59
 my $menuitems = delete $args->{-menuitems};
60
60
 $menu->SUPER::InitObject($args);
 
61
 $menu->ConfigSpecs(-foreground => ['SELF']);
61
62
 if (defined $menuitems)
62
63
  {
63
64
   # If any other args do configure now
693
694
  }
694
695
 $menu->activate($i);
695
696
 $menu->GenerateMenuSelect;
696
 
 if ($menu->type($i) eq 'cascade')
 
697
 if ($menu->cget('-type') eq 'menubar' && $menu->type($i) eq 'cascade')
697
698
  {
698
699
   my $cascade = $menu->entrycget($i, '-menu');
699
700
   $menu->postcascade($i);