Discussion :

[jaasta]

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!

[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

[djibril]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jaasta]

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