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

« back to all changes in this revision

Viewing changes to Tk/Adjuster.pm

• browse files at revision 5
• compare with another revision
• download diff
• download tarball
• view history from revision 5

Show diffs side-by-side

added

removed

Tk/Adjuster.pm

1

1

package Tk::Adjuster;

2

2

 

3

3

use vars qw($VERSION);

4

 

$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/Adjuster.pm#7 $

 

4

$VERSION = '4.008'; # $Id: //depot/Tkutf8/Tk/Adjuster.pm#7 $

5

5

 

6

6

use base  qw(Tk::Frame);

7

7

 

165

165

 $w->{'sep'} = Tk::Adjuster::Item->new($w,-bd => 1, -relief => 'sunken');

166

166

 $w->{'but'} = Tk::Adjuster::Item->new($w,-bd => 1, -width => 8, -height => 8, -relief => 'raised');

167

167

 

 

168

 # Force creation of Frame in widget's Toplevel. This makes a difference

 

169

 # where the widget's Toplevel has Delegates('Construct') set.

168

170

 # Need to explicitly set frame width to 0 for Win32

169

 

 my $l = $w->{'lin'} = $w->toplevel->Frame(-bd => 0);

 

171

 my $l = $w->{'lin'} = Tk::Frame->new($w->toplevel, -bd => 0);

 

172

 # my $l = $w->{'lin'} = $w->toplevel->Frame(-bd => 0);

170

173

 

171

174

 my $cs = $w->ConfigSpecs(-widget => ['PASSIVE','widget','Widget',$w->Parent],

172

175

                 -side       => ['METHOD','side','Side','top'],

433

436

 

434

437

__END__

435

438

 

436

 

=cut #' emacs hilighting...

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1