Gerer le defilement avec la molette de la souris

Version imprimable

16/02/2010, 12h02
jaasta

Gerer le defilement avec la molette de la souris

Salut tout le monde,

malgré le manque d'enthousiasme sur ma premiere question, je persiste et je signe en perl et je m'interesse maintenant au defilement (scrollbar) avec la molette de la souris.

Pour l'instant je n'ai trouvé aucun script qui permet de faire defiler soit une listbox soit une frame avec une scollbar grace a la molette de la souris (mouse wheel).
J'ai bien trouvé qu'il fallait gérer les evenements <"MouseWheel"> mais cela n'a aucun effet sur mes listes ou fenetre...
Est ce que quelqu'un a un petit bout de code qui fonction pour gerer tout ca???

Merci d'avance! ;)
16/02/2010, 13h05
djibril

Bonjour,

Pouvez vous nous mettre un bout de code test ne fonctionnant pas que l'on puisse tester et améliorer si besoin.
Un code simple si possible.

Merci

Voici un exemple de code qui pourrait répondre à votre interrogation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk;
 
my $fenetre_principale = MainWindow->new( -title => 'Boite de liste' );
my $liste = $fenetre_principale->Scrolled( 'Listbox', -scrollbars => "osoe", )->pack();
$liste->insert( 'end', 1 .. 1000 );
 
# Il est important de donner le focus à la liste scrollée
$liste->focus();
BindMouseWheel($liste);
 
MainLoop;
 
sub BindMouseWheel {
 
  my ($w) = @_;
 
  # Sous Windows
  if ( $^O eq 'MSWin32' ) {
    $w->bind(
      '<MouseWheel>' => [ sub { $_[0]->yview( 'scroll', -( $_[1] / 120 ) * 3, 'units' ) }, Ev('D') ] );
  }
  else {
 
    # Support for mousewheels on Linux commonly comes through
    # mapping the wheel to buttons 4 and 5.  If you have a
    # mousewheel ensure that the mouse protocol is set to
    # "IMPS/2" in your /etc/X11/XF86Config (or XF86Config-4)
    # file:
    #
    # Section "InputDevice"
    #     Identifier  "Mouse0"
    #     Driver      "mouse"
    #     Option      "Device" "/dev/mouse"
    #     Option      "Protocol" "IMPS/2"
    #     Option      "Emulate3Buttons" "off"
    #     Option      "ZAxisMapping" "4 5"
    # EndSection
 
    $w->bind(
      '<4>' => sub {
        $_[0]->yview( 'scroll', -3, 'units' ) unless $Tk::strictMotif;
      }
    );
 
    $w->bind(
      '<5>' => sub {
        $_[0]->yview( 'scroll', +3, 'units' ) unless $Tk::strictMotif;
      }
    );
  }
 
}    # end BindMouseWheel

16/02/2010, 14h32
jaasta

Merci beaucoup...
Nickel ce code !!! :ccool:
Ca marche super bien !!!
Merci encore!