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
|
#
# $Id: procs_list.tcl,v 1.3 2002/10/21 22:43:15 patthoyts Exp $
#
widget procs_list {
object_include tkinspect_list
param title "Procs"
method get_item_name {} { return proc }
method update {target} {
$self clear
foreach proc [lsort [names::procs $target]] {
$self append $proc
}
}
method retrieve {target proc} {
set result [list proc $proc]
set formals {}
foreach arg [send $target [list ::info args $proc]] {
if [send $target [list ::info default $proc $arg __tkinspect_default_arg__]] {
lappend formals [list $arg [send $target \
[list ::set __tkinspect_default_arg__]]]
} else {
lappend formals $arg
}
}
send $target ::catch {::unset __tkinspect_default_arg__}
lappend result $formals
lappend result [send $target [list ::info body $proc]]
return $result
}
method send_filter {value} {
return $value
}
}
|
