Discussion :

[PadawanInPerl]

Bonjour,

Est-il possible d'insérer une image dans une DialBox ?

J'ai essayé qq trucs mais... non

*

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    $popup_erreur = $onglet->DialogBox(
      -title      => 'ERREUR',
      -buttons    => ['OK'],
      -background => 'white',
    );
    $popup_erreur->Label(
      -text       => "Vous n'avez fait aucune saisie",
      -background => 'white',
    )->pack();
    $popup_erreur->Subwidget("B_OK")->configure( -background => 'red', );
    $popup_erreur->Show();

*Bout de code généreux de Djibril

[djibril]

as tu essayé de mettre une image dans le label ?

[djibril]

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
 
use Tk::PNG;
 
 
 
$popup_erreur = $onglet->DialogBox(
      -title      => 'ERREUR',
      -buttons    => ['OK'],
      -background => 'white',
    );
   $popup_erreur->Label(
      -image => $popup_erreur->Photo( -file => "MONIMAGE.png" ),
    )->pack();
    $popup_erreur->Label(
      -text       => "Vous n'avez fait aucune saisie",
      -background => 'white',
    )->pack();
    $popup_erreur->Subwidget("B_OK")->configure( -background => 'red', );
    $popup_erreur->Show();

[PadawanInPerl]

ça a pas l'air ...

[djibril]

Peux tu me montrer ce que tu as fait.

[PadawanInPerl]

Je déconne !

çA cool merci !