← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/TreeCtrl/ScrollLock.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/TreeCtrl/ScrollLock.pm
9
9
=head1 SYNOPSIS
10
10
 
11
11
  SCOPE: {
12
 
      my $lock = $padre_wx_treectrl->scroll_lock;
 
12
      my $lock = $padre_wx_treectrl->lock_scroll;
13
13
  
14
14
      # Change the tree here
15
15
  }
52
52
use Params::Util ();
53
53
use Padre::Wx    ();
54
54
 
55
 
our $VERSION = '0.90';
 
55
our $VERSION = '0.92';
56
56
 
57
57
sub new {
58
58
        my $class = shift;
64
64
        # Create the object and record the scroll position
65
65
        return bless {
66
66
                tree    => $tree,
67
 
                scrolly => $tree->GetScrollPos(Wx::wxVERTICAL),
 
67
                scrolly => $tree->GetScrollPos(Wx::VERTICAL),
68
68
                locker  => Wx::WindowUpdateLocker->new($tree),
69
69
        }, $class;
70
70
}
74
74
        # Return the scroll position to the previous position
75
75
        ### NOTE: This just sets it to the top for now.
76
76
        $_[0]->{tree}->SetScrollPos(
77
 
                Wx::wxVERTICAL,
 
77
                Wx::VERTICAL,
78
78
                $_[0]->{scrolly},
79
79
                0,
80
80
        );