Spinbox dans Tk

**Perl53** · 03/12/2008, 08h32

Bonjour,

je voudrais savoir si quelqu'un savais où je peut trouver une doc sur les Spinbox en français car celle de CPAN est en anglais et je comprends rien.

Merci.

**djibril** · 03/12/2008, 10h23

Tu peux expliquer ce que c'est que les spinbox pour ceux qui ne connaitrait pas!

Sinon regarde la doc du CPAN sur Tk::SpinBox

Un exemple :

Code perl :

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
#!/usr/bin/perl
use warnings;
use strict;
use Carp;
use Tk;
 
my $fenetre = new MainWindow () ;		#creation de la fenetre
 
$fenetre ->minsize('350','350');		#taille de la fenetre
#donner un titre à la fenêtre (fenêtre référencée
$fenetre -> title ( "Ma premetre interface Perl/tk spinbox" );	 
# This demonstration script creates several spinbox widgets.
 
 
    my $s1 = $fenetre->Spinbox(
        qw/-from 1 -to 10 -width 10 -validate key/,
        -validatecommand => sub {
	    my ($proposed, $changes, $current, $index, $type) = @_;
	    return not $proposed =~ m/[^\d]/g;
	},
    );
    my $s2 = $fenetre->Spinbox(
        qw/-from 0 -to 3 -increment .5 -format %05.2f -width 10/,
    );
    my $s3 = $fenetre->Spinbox(
        -values => [qw/Canberra Sydney Melbourne Perth Adelaide Brisbane Hobart
		    Darwin/, 'Alice Springs'],
        -width  => 10,
    );
 
    $s1->pack($s2, $s3, qw/-side top -pady 5 -padx 10/);
 
 
MainLoop ( ) ;