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 ( ) ;

**Perl53** · 05/12/2008, 10h23

le problème est que je n'arrive pas a installer le module spinbox

**djibril** · 05/12/2008, 10h29

Tu es sous quel OS? Car sous Windows, il est déjà dans le core et tu n'as pas besoin de l'installer.

**Perl53** · 05/12/2008, 10h30

je suis sous windows XP

**djibril** · 05/12/2008, 10h32

t'as essayé d'exécuter le script que je t'ai mis ci dessus ?

**Perl53** · 05/12/2008, 10h42

oui mais ça ne marche pas

**djibril** · 05/12/2008, 10h57

tu as quoi comme message?
As tu installé Tk?

**Perl53** · 05/12/2008, 11h00

je n'ai pas de message car le cmd se ferme des que je le lance et je pense que Tk est installer puisque ça fait 6 mois que je fait des fenetre

**djibril** · 05/12/2008, 11h07

réessaye quand même de faire ppm install TK
Tk n'est pas installé par défaut sous windows, du moins le module complet.

Ensuite ouvre une console dos, met toi dans ton répertoire de script et tape perl TonScript.pl

Et tu nous donne le message d'erreur.

**Perl53** · 09/12/2008, 10h25

j'obtient "Assuming 'require Tk::Spinbox'

**djibril** · 09/12/2008, 11h11

dans le bout de script que je t'ai filé, essaye de rajouter

Code :

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

use Tk::Spinbox;

**Perl53** · 10/12/2008, 18h41

je crois que je vais laissez tomber ça m'énerve

**djibril** · 10/12/2008, 19h00

c'est bizarre
Essaye ceci : Tape sous dos la commande

widget

Ensuite, tu vas dans la section Entries and Spin-boxes
clique sur le n°4 et vois tu des spinbox?

**Perl53** · 10/12/2008, 20h06

oui

**djibril** · 10/12/2008, 20h18

ah, c'est déjà une bonne nouvelle

Bon et le script ne fonctionne toujours pas chez toi, c'est ça? (celui qui qui est sur le forum)

**Perl53** · 11/12/2008, 13h02

en fait le truc du widget dans le cmd marche chez moi mais pas au lycée car depuis le début j'essaie au lycée, je n'ai pas essayer le script chez moi donc je verrai chez moi

**Perl53** · 12/12/2008, 10h14

en fait ça marche car j'ai installer perl 5.8.8

Spinbox dans Tk

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager