← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Tk/Adjuster.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/Adjuster.pm
1
1
package Tk::Adjuster;
2
2
 
3
3
use vars qw($VERSION);
4
 
$VERSION = '3.025'; # $Id: //depot/Tk8/Tk/Adjuster.pm#25 $
 
4
$VERSION = '3.028'; # $Id: //depot/Tk8/Tk/Adjuster.pm#28 $
5
5
 
6
6
use base  qw(Tk::Frame);
7
7
 
89
89
{
90
90
 my ($w,$s,%args) = @_;
91
91
 delete $args{'-before'};
 
92
 delete $args{'-in'};
92
93
 $args{'-expand'} = 0;
93
94
 $args{'-after'} = $s;
94
95
 $args{'-fill'} = (($w->vert) ? 'y' : 'x');
173
174
                 -background => [['SELF',$w->{'sep'},$w->{'but'}],'background','Background',undef],
174
175
                 -foreground => [Tk::Configure->new($w->{'lin'},'-background'),'foreground','Foreground','black'],
175
176
                 -restore    => ['PASSIVE','restore', 'Restore', 1],
176
 
                ); 
 
177
                );
177
178
 $w->_OnDestroy(qw(sep but lin master));
178
179
}
179
180