use a Tk::Checkbutton, for example in widget demo see 7. Iconic buttons that use bitmaps.

Tk::Canvas works the same way

-bitmap => bitmap
-activebitmap => bitmap
-disabledbitmap => bitmap
...
-image => name
-activeimage => name
-disabledimage => name
[download]