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