← Back to branch summary

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

« back to all changes in this revision

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

  • 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:
demos/demos/widget_lib/style.pl
15
15
        -iconname => 'style',
16
16
    );
17
17
 
18
 
    $TOP->fontCreate(qw/C_small  -family courier   -size 10/);
19
 
    $TOP->fontCreate(qw/C_big    -family courier   -size 14 -weight bold/);
20
 
    $TOP->fontCreate(qw/C_vbig   -family helvetica -size 24 -weight bold/);
21
 
    $TOP->fontCreate(qw/C_bold   -family courier   -size 12 -weight bold
22
 
                     -slant italic/);
 
18
    eval { # eval, in case fonts already exist
 
19
        $TOP->fontCreate(qw/C_small  -family courier   -size 10/);
 
20
        $TOP->fontCreate(qw/C_big    -family courier   -size 14 -weight bold/);
 
21
        $TOP->fontCreate(qw/C_vbig   -family helvetica -size 24 -weight bold/);
 
22
        $TOP->fontCreate(qw/C_bold   -family courier   -size 12 -weight bold
 
23
                         -slant italic/);
 
24
    };
23
25
 
24
26
    my $t = $TOP->Scrolled(qw/Text -setgrid true -width  70 -height 32
25
27
                           -font normal -wrap word -scrollbars e/);