← Back to branch summary

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

« back to all changes in this revision

Viewing changes to demos/demos/widtrib/HList2.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/widtrib/HList2.pl
65
65
        }
66
66
    };
67
67
    my $rnd_window = sub {
68
 
        return undef; # XXX disable for now
69
68
        my $yn = int(rand(10));
70
69
        if ($yn == 3) {
71
70
            ('Button', 'Entry')[rand(2)];
88
87
            my $btn;
89
88
            my $style = $h->ItemStyle($style_type);
90
89
            if ($style_type eq 'window') {
91
 
                $style->configure(-pady => 0, -padx => 0);
 
90
                $style->configure(-pady => 0, -padx => 0, -anchor => "nw");
92
91
                if ($window eq 'Button') {
93
92
                    $btn = $h->Button
94
93
                      (-text => 'Click me!',