← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Tk/ColorEditor.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/ColorEditor.pm
2
2
use strict;
3
3
 
4
4
use vars qw($VERSION);
5
 
$VERSION = '3.032'; # $Id: //depot/Tk8/Tk/ColorEditor.pm#32 $
 
5
$VERSION = '3.034'; # $Id: //depot/Tk8/Tk/ColorEditor.pm#34 $
6
6
 
7
7
use Tk qw(Ev);
8
8
 
442
442
package Tk::ColorEditor;
443
443
 
444
444
use vars qw($VERSION $SET_PALETTE);
445
 
$VERSION = '3.032'; # $Id: //depot/Tk8/Tk/ColorEditor.pm#32 $
 
445
$VERSION = '3.034'; # $Id: //depot/Tk8/Tk/ColorEditor.pm#34 $
446
446
 
447
447
use Tk qw(lsearch Ev);
448
448
use Tk::Toplevel;
658
658
            sub {
659
659
                my ($objref) = @_;
660
660
                $objref->Callback(-command => ($objref->{'highlight'}, $objref->cget('-color')));
 
661
                $cw->{'done'} = 1;
661
662
            }, $cw,
662
663
        ],
663
664
    );
711
712
 
712
713
sub Show {
713
714
 
714
 
    my($objref) = @_;
 
715
    my($objref, @args) = @_;
715
716
 
716
 
    $objref->deiconify;
 
717
    Tk::ColorDialog::Show(@_);
717
718
 
718
719
} # end show
719
720