MessageBox

Version imprimable

02/10/2005, 14h29
Deimos

MessageBox

Hello,

J'aimerais affiché une simple MessageBox (pour une alerte), et je voudrais savoir avec quel module ce serait possible ! Avec Perl/Tk on peut le faire, mais il faut avoir une fenêtre principale, or je voudrais juste une messagebox :wink:

Merci d'avance

Deimos
02/10/2005, 15h31
chostrama

Peut-être Win32::GUI::Carp

http://search.cpan.org/~johnsca/Win3...32/GUI/Carp.pm
03/10/2005, 00h11
Deimos

J'aurais préféré quelque chose qui tourne sous tous les OS : windows, unix-like, etc ...

Merci
Deimos

Salut

J'ai trouvé ce code chez les mongueurs de Perl :

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
 
 #!/usr/bin/perl -w
    ####-----------------------------------
    ### File    : dialog.pl
    ### Author  : C.Minc
    ### Purpose :
    ### Version : 1.2 1/17/2004
    ####-----------------------------------
 
    use strict;
    use Tk;
    use Tk::Dialog;
 
    # messageBox
 
    # Affiche 6 combinaisons différentes de messageBox
    # successivement en cliquant sur un bouton.
    # Le nom du bouton cliqué est retourné par la
    # méthode appelée ($reponse dans cet exemple).
 
    my @listtype = qw(AbortRetryIgnore OK OKCancel RetryCancel YesNo YesNoCancel);
    my @iconlist = qw(error info question error info question);
 
    my $mw = MainWindow->new;
 
    foreach (0 .. $#listtype) {
 
        my $reponse = $mw->messageBox(-icon => $iconlist[$_],
                -message => "ceci est un message du type : $listtype[$_]\n".
                            " avec une icone : $iconlist[$_]",
                -title => "messageBox $listtype[$_]",
                -type => $listtype[$_] 
                -default => 'OK'
        );
        print "$reponse \n"
    }
 
    MainLoop();

Ceci pour MessageBox justement ;)

@++

07/10/2005, 12h48
Deimos

Merci GLDavid, le code marche nickel, mais j'avais déjà regardé dans l'article des mongueurs sur Tk !
Cependant, comme je l'ai dit dans mon premier post :

Citation:

Avec Perl/Tk on peut le faire, mais il faut avoir une fenêtre principale, or je voudrais juste une messagebox

Il y a la fenêtre principale en arrière plan :? j'aurais voulu éviter ça !

Thx,
Deimos