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

« back to all changes in this revision

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

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

Show diffs side-by-side

added

removed

demos/demos/widget_lib/hscale.pl

19

19

 

20

20

    my $canvas = $frame->Canvas(

21

21

        qw/width 50 -height 50 -bd 0 -highlightthickness 0/);

22

 

    $canvas->create(qw/polygon 0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly/);

23

 

    $canvas->create(qw/line 0 0 1 1 2 2 0 0 -fill black -tags line/);

 

22

    $canvas->createPolygon(qw/0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly/);

 

23

    $canvas->createLine (qw/0 0 1 1 2 2 0 0 -fill black -tags line/);

24

24

 

25

25

    my $scale = $frame->Scale(qw/-orient horizontal -length 284 -from 0

26

26

        -to 250 -tickinterval 50 -command/ => [\&hscale_width, $canvas]);

• Older »

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