Tk-804.035/Scrollbar/Scrollbar.pm

36  my ($class,$mw) = @_;
37  $mw->bind($class, '<Enter>', 'Enter');
38  $mw->bind($class, '<Motion>', 'Motion');
39  $mw->bind($class, '<Leave>', 'Leave');
41  $mw->bind($class, '<1>', 'ButtonDown');
42  $mw->bind($class, '<B1-Motion>', ['Drag', Ev('x'), Ev('y')]);
43  $mw->bind($class, '<ButtonRelease-1>', 'ButtonUp');
44  $mw->bind($class, '<B1-Leave>', 'NoOp'); # prevent generic <Leave>
45  $mw->bind($class, '<B1-Enter>', 'NoOp'); # prevent generic <Enter>
46  $mw->bind($class, '<Control-1>', 'ScrlTopBottom');
48  $mw->bind($class, '<2>', 'ButtonDown');
49  $mw->bind($class, '<B2-Motion>', ['Drag', Ev('x'), Ev('y')]);
50  $mw->bind($class, '<ButtonRelease-2>', 'ButtonUp');
51  $mw->bind($class, '<B2-Leave>', 'NoOp'); # prevent generic <Leave>
52  $mw->bind($class, '<B2-Enter>', 'NoOp'); # prevent generic <Enter>
53  $mw->bind($class, '<Control-2>', 'ScrlTopBottom');
55  $mw->bind($class, '<Up>',            ['ScrlByUnits','v',-1]);
56  $mw->bind($class, '<Down>',          ['ScrlByUnits','v', 1]);
57  $mw->bind($class, '<Control-Up>',    ['ScrlByPages','v',-1]);
58  $mw->bind($class, '<Control-Down>',  ['ScrlByPages','v', 1]);
60  $mw->bind($class, '<Left>',          ['ScrlByUnits','h',-1]);
61  $mw->bind($class, '<Right>',         ['ScrlByUnits','h', 1]);
62  $mw->bind($class, '<Control-Left>',  ['ScrlByPages','h',-1]);
63  $mw->bind($class, '<Control-Right>', ['ScrlByPages','h', 1]);
65  $mw->bind($class, '<Prior>',         ['ScrlByPages','hv',-1]);
66  $mw->bind($class, '<Next>',          ['ScrlByPages','hv', 1]);
69  $mw->bind($class, '<4>',             ['ScrlByUnits','hv',-5]);
70  $mw->bind($class, '<5>',             ['ScrlByUnits','hv', 5]);
72  $mw->bind($class, '<Home>',          ['ScrlToPos', 0]);
73  $mw->bind($class, '<End>',           ['ScrlToPos', 1]);
75  $mw->bind($class, '<4>',             ['ScrlByUnits','v',-3]);
76  $mw->bind($class, '<5>',             ['ScrlByUnits','v', 3]);