~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to canvastile

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

Show diffs side-by-side

added

removed

canvastile

1

 

use Tk;

2

 

use Tk::widgets qw(Canvas);

3

 

my $mw = MainWindow->new();

4

 

my $tile = $mw->Photo(-file =>Tk->findINC('Camel.xpm'));

5

 

my $c  = $mw->Canvas(

6

 

        -background  => 'yellow',

7

 

        -width       => 300,

8

 

        -height      => 250,

9

 

        -relief      => 'raised',

10

 

        -borderwidth => 3,

11

 

#       -tile        => $tile,

12

 

        -offset      => [-30,-30],

13

 

        )->pack;

14

 

 

15

 

$c->createImage(30,30, -image => $tile);

16

 

 

17

 

    $c->update;

18

 

    $c->after(1000);

19

 

    $c->configure(-tile => $tile);

20

 

MainLoop;

• Older »

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