← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Tixish/NoteBook.pm

  • 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:
Tixish/NoteBook.pm
9
9
 
10
10
use vars qw($VERSION);
11
11
 
12
 
$VERSION = '3.024'; # $Id: //depot/Tk8/Tixish/NoteBook.pm#24 $
 
12
$VERSION = '3.026'; # $Id: //depot/Tk8/Tixish/NoteBook.pm#26 $
13
13
require Tk::NBFrame;
14
14
 
15
15
use base  qw(Tk::Derived Tk::NBFrame);
50
50
 my ($w, $args) = @_;
51
51
 
52
52
 $w->SUPER::Populate($args);
53
 
 $w->{'pad-x1'} = 0;
54
 
 $w->{'pad-x2'} = 0;
55
 
 $w->{'pad-y1'} = 0;
56
 
 $w->{'pad-y2'} = 0;
 
53
 $w->{'pad-x1'} = undef;
 
54
 $w->{'pad-x2'} = undef;
 
55
 $w->{'pad-y1'} = undef;
 
56
 $w->{'pad-y2'} = undef;
57
57
 
 
58
 $w->{'windows'} = [];
58
59
 $w->{'nWindows'} = 0;
59
60
 $w->{'minH'} = 1;
60
61
 $w->{'minW'} = 1;
161
162
     my $myW = $w->Width;
162
163
     my $myH = $w->Height;
163
164
 
 
165
     if (!defined $w->{'pad-x1'}) {
 
166
         $w->InitTabSize;
 
167
     }
 
168
 
164
169
     my $cW = $myW - $w->{'pad-x1'} - $w->{'pad-x2'} - 2 * (defined $w->{-ipadx} ? $w->{-ipadx} : 0);
165
170
     my $cH = $myH - $w->{'pad-y1'} - $w->{'pad-y2'} - 2 * (defined $w->{-ipady} ? $w->{-ipady} : 0);
166
171
     my $cX = $w->{'pad-x1'} + (defined $w->{-ipadx} ? $w->{-ipadx} : 0);
259
264
sub MouseUp {
260
265
    my ($w, $x, $y) = @_;
261
266
    my $name = $w->identify($x, $y);
262
 
    if ((defined $name) &&
263
 
        ($name eq $w->{'down'}) &&
 
267
    if ((defined $name) && (defined $w->{'down'}) &&
 
268
        ($name eq $w->{'down'}) &&
264
269
        ($w->pagecget($name, -state) eq 'normal')) {
265
270
        $w->raise($name);
266
271
    } else {
378
383
 
379
384
    return unless Tk::Exists($w) && $w->{'nWindows'} && $w->{'resize'};
380
385
 
381
 
    my ($tW, $tH) = $w->geometryinfo;
382
 
    $w->{'pad-x1'} = 2;
383
 
    $w->{'pad-x2'} = 2;
384
 
    $w->{'pad-y1'} = $tH + (defined $w->{'-ipadx'} ? $w->{'-ipadx'} : 0) + 1;
385
 
    $w->{'pad-y2'} = 2;
386
 
    $w->{'minW'} = $tW;
387
 
    $w->{'minH'} = $tH;
 
386
    $w->InitTabSize;
388
387
 
389
388
    $w->{'resize'} = 0;
390
389
    my $reqW = $w->{-width} || 0;
436
435
    $w->{'resize'} = 0;
437
436
}
438
437
 
 
438
sub InitTabSize {
 
439
    my ($w) = @_;
 
440
    my ($tW, $tH) = $w->geometryinfo;
 
441
    $w->{'pad-x1'} = 2;
 
442
    $w->{'pad-x2'} = 2;
 
443
    $w->{'pad-y1'} = $tH + (defined $w->{'-ipadx'} ? $w->{'-ipadx'} : 0) + 1;
 
444
    $w->{'pad-y2'} = 2;
 
445
    $w->{'minW'} = $tW;
 
446
    $w->{'minH'} = $tH;
 
447
}
 
448
 
439
449
1;
440
450
 
441
451
__END__