← Back to branch summary

~ubuntu-branches/ubuntu/dapper/perl-tk/dapper

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Michael C. Schultheiss
  • Date: 2006-01-16 16:54:02 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060116165402-1ppygm8hh8ahel2x
Tags: 1:804.027-2
http://bugs.debian.org/348086
* Incorporate changes from NMU (Thanks to Steve Kowalik.
  Closes: #348086)
* debian/control: Update Standards-Version (no changes needed)

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/demos/widget_lib/ruler.pl
31
31
    if ($TOP->depth > 1) {
32
32
        $rinfo{activeStyle} = [qw/-fill red -stipple/ => undef];
33
33
        $rinfo{deleteStyle} = [
34
 
            -fill    => 'red',  
 
34
            -fill    => 'red',
35
35
            -stipple => '@'.Tk->findINC('demos/images/grey.25'),
36
36
        ];
37
37
    } else {
102
102
} # end ruler_move_tab
103
103
 
104
104
sub ruler_new_tab {
105
 
    
 
105
 
106
106
    my($c, $rinfo) = @_;
107
107
 
108
108
    my $e = $c->XEvent;