1
2# Testing QuickTimeStat Components
3package require QuickTimeTcl
4set w ._jfrj8943jfs
5toplevel $w
6wm title $w {QuickTime Components}
7switch $tcl_platform(platform) {
8    windows {
9	set listfont(s) {Courier 8 normal}
10	set listfont(b) {Courier 8 bold}
11    }
12    default {
13	set listfont(s) {Courier 10 normal}
14	set listfont(b) {Courier 10 bold}
15    }
16}
17
18label $w.lab -font $listfont(b) -text {Type    Subtype   Manufacture Name}  \
19  -anchor w -bg gray87
20listbox $w.lb -height 20 -width 80 -yscrollcommand "$w.sby set"   \
21  -borderwidth 1 -relief sunken -bg gray87 -font $listfont(s)
22scrollbar $w.sby -orient vertical -command "$w.lb yview"
23grid $w.lab -columnspan 2 -column 0 -row 0 -sticky ew
24grid $w.lb -column 0 -row 1 -sticky news
25grid $w.sby -column 1 -row 1 -sticky ns
26grid columnconfigure $w 0 -weight 1
27grid rowconfigure $w 1 -weight 1
28
29set comps [::quicktimetcl::info components]
30foreach comp $comps {
31    set txt {}
32    foreach {key value} $comp {
33	append txt " $value      "
34    }
35    $w.lb insert end $txt
36}
37