diff options
Diffstat (limited to 'test/toxy/lbpict.wid')
| -rw-r--r-- | test/toxy/lbpict.wid | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/toxy/lbpict.wid b/test/toxy/lbpict.wid index d7d5771..6378f8e 100644 --- a/test/toxy/lbpict.wid +++ b/test/toxy/lbpict.wid @@ -1,5 +1,7 @@ proc ::toxy::lbpict {path fname} { - $path config -image [image create photo -file $fname] + if {[catch {$path config -image [image create photo -file $fname]} res]} { + puts stderr [concat failed ::toxy::lbpict: $res] + } } #> lbpict label |