blob: 7f4f22cd501297506aaa7bb8b0c9392b194d6cad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
namespace eval ::moonlib::image:: {
}
proc ::moonlib::image::configure {obj_id img filename} {
if { [catch {$img configure -file $filename} fid]} {
::pdwindow::logpost $obj_id 1 "[image]: error reading '$filename':\n$fid\n"
}
}
proc ::moonlib::image::create_photo {obj_id img filename} {
if { [catch {image create photo $img -file $filename} fid]} {
::pdwindow::logpost $obj_id 1 "[image]: error reading '$filename':\n$fid\n"
}
}
|