Insérer une image sur une interface Tcl/Tk

Bonjour,

Je souhaite insérer une image sur une interface tcltk, par exemple dans le panel gris comme en PJ.
Comment puis-je procéder ?

Merci d'avance.

voici un exemple de code :

Code:

---

1 2 3 4 5 6 7

image1 <- tclVar() tcl("image","create","photo",image1,file="_chemin_.gif") imgAsLabel <- tklabel(tm,image=image1,bg="white") scr <- tkscrollbar(tm, repeatinterval=5, command=function(...)tkyview(txt,...)) txt <- tktext(tm,bg="#FFFFCC",font="courier", height=20,width=50, yscrollcommand=function(...)tkset(scr,...)) tkgrid(imgAsLabel,txt,scr)

---

j'ai l'impression que seuls les fichiers .gif sont autorisés...