1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#
# $Id: images_list.tcl,v 1.5 2002/10/21 22:43:14 patthoyts Exp $
#
# Contributed by Gero Kohnert (gero@marvin.franken.de) 1995
#
widget images_list {
object_include tkinspect_list
param title "Images"
method create {} {
tkinspect_list:create $self
$slot(menu) add separator
$slot(menu) add command -label "Display Image" -underline 0 \
-command "$self display_image"
}
method get_item_name {} { return image }
method update_self {target} {
$slot(main) windows_info update $target
$self update $target
}
method update {target} {
$self clear
set cmd [list if {[::info command image] != {}} {::image names}]
foreach image [lsort [send $target $cmd]] {
$self append $image
}
}
method retrieve {target image} {
set result "# image configuration for [list $image]\n"
append result "# ([send $target ::image width $image]x[send $target ::image height $image] [send $target ::image type $image] image)\n"
append result "$image config"
foreach spec [send $target [list $image config]] {
if {[llength $spec] == 2} continue
append result " \\\n\t[lindex $spec 0] [list [lindex $spec 4]]"
}
append result "\n"
return $result
}
method send_filter {value} {
return $value
}
method display_image {} {
set target [$slot(main) target]
if ![string length $slot(current_item)] {
tkinspect_failure \
"No image has been selected. Please select one first."
}
if ![send $target ::info exists __tkinspect_image_counter__] {
send $target ::set __tkinspect_image_counter__ 0
}
while {[send $target ::winfo exists .tkinspect_image\$__tkinspect_image_counter__]} {
send $target ::incr __tkinspect_image_counter__
}
set w .tkinspect_image[send $target ::set __tkinspect_image_counter__]
send $target [::subst {
::toplevel $w
::button $w.close -text "Close $slot(current_item)" \
-command "destroy $w"
::label $w.img -image $slot(current_item)
::pack $w.close $w.img -side top
::wm title $w "tkinspect $slot(current_item)"
}]
}
}
|
