FAQ Perl/TkConsultez toutes les FAQ

1
2
3
$widget->update; 
 my $x = $widget->pointerx(); 
 my $y = $widget->pointery();

1
2
$widget->update; 
 my ($x, $y) = $widget->pointerxy();

-cursor => "boat",

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
#!/usr/bin/perl 
use warnings; 
use strict; 
use Tk;    
  
my $fenetre = new MainWindow( 
  -title      => 'curseur', 
  -background => 'white', 
);  
  
my $List = $fenetre->Scrolled('Listbox', 
    -scrollbars => "oe", 
)->pack(); 
  
# Affichage d'un bouton pour fermer la fenêtre 
my $bouton = $fenetre->Button ( 
    -text    => 'Détruire la fenêtre',  
-command => \&detruire_fenetre, 
)->pack(); 
  
# Listons tous les types de curseurs possibles 
my $fichier_curseurs; 
# Sous windows 
if ( $^O eq 'MSWin32' ) { 
   $fichier_curseurs = 'C:/Perl/site/lib/Tk/X11/cursorfont.h'; 
} 
elsif ( $^O eq "linux" ) { 
   $fichier_curseurs = '/usr/include/X11/cursorfont.h'; 
} 
  
open ( my $fh_curseur, $fichier_curseurs ) or die("Le fichier $fichier_curseurs n'existe pas"); 
  
while ( <$fh_curseur> ) { 
    if ( m{#define\sXC_(\w+)\s} ) { 
      next if $1 eq 'num_glyphs'; 
      $List->insert("end", $1); 
      $List->bind("<Button-1>", sub { 
        $fenetre->configure(  
        -cursor=>$List->get( 
        $List->curselection 
        ) 
        );  
        }  
      ) 
    }    
} 
close($fh_curseur); 
  
MainLoop;  
sub detruire_fenetre {  
  exit; 
  
  return;  
}