Test sur des widget Tk

Bonjour,

ayant une scalaire contenant :

Code:

---

1 2	$btn_A1 = $fenetre -> Button (-image => $mon_image ) -> grid (-row => 0, -column => 0);

---

je voudrais savoir si il est possible de tester si le Button contient telle ou telle image
Merci