← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Listbox/Listbox.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:
Listbox/Listbox.pm
36
36
package Tk::Listbox;
37
37
 
38
38
use vars qw($VERSION);
39
 
$VERSION = '3.033'; # $Id: //depot/Tk8/Listbox/Listbox.pm#33 $
 
39
$VERSION = '3.037'; # $Id: //depot/Tk8/Listbox/Listbox.pm#37 $
40
40
 
41
41
use Tk qw(Ev $XS_VERSION);
42
42
use Tk::Clipboard ();
71
71
{
72
72
 my ($listbox,$balloon,$X,$Y,@opt) = @_;
73
73
 my $e = $listbox->XEvent;
 
74
 return if !$e;
74
75
 my $index = $listbox->index('@' . $e->x . ',' . $e->y);
75
76
 foreach my $opt (@opt)
76
77
  {
108
109
 $mw->bind($class,'<Shift-Down>',['ExtendUpDown',1]);
109
110
 
110
111
 $mw->XscrollBind($class);
111
 
 $mw->PriorNextBind($class);
112
 
 
 
112
 $mw->bind($class,'<Next>',  sub {
 
113
               my $w = shift;
 
114
               $w->yview('scroll',1,'pages');
 
115
               $w->activate('@0,0');
 
116
           });
 
117
 $mw->bind($class,'<Prior>', sub {
 
118
               my $w = shift;
 
119
               $w->yview('scroll',-1,'pages');
 
120
               $w->activate('@0,0');
 
121
           });
 
122
 $mw->MouseWheelBind($class);
113
123
 $mw->bind($class,'<Control-Home>','Cntrl_Home');
114
124
 ;
115
125
 $mw->bind($class,'<Shift-Control-Home>',['DataExtend',0]);
128
138
 # Additional Tk bindings that aren't part of the Motif look and feel:
129
139
 $mw->bind($class,'<2>',['scan','mark',Ev('x'),Ev('y')]);
130
140
 $mw->bind($class,'<B2-Motion>',['scan','dragto',Ev('x'),Ev('y')]);
 
141
 
 
142
 $mw->YMouseWheelBind($class);
131
143
 return $class;
132
144
}
133
145
 
854
866
 
855
867
1;
856
868
__END__
 
869
 
 
870