184c184
<     frame $f
---
>     ttk::frame $f
190c190
< 	    radiobutton $f.b$cnt \
---
> 	    ttk::radiobutton $f.b$cnt \
330,331c330,331
<     set top [frame $w.top -relief raised -bd 1]
<     set bot [frame $w.bot -relief raised -bd 1]
---
>     set top [ttk::frame $w.top -relief raised -borderwidth 1]
>     set bot [ttk::frame $w.bot -relief raised -borderwidth 1]
336,338c336,338
<     set f1 [frame $top.f1]
<     set f2 [frame $top.f2]
<     set f3 [frame $top.f3]
---
>     set f1 [ttk::frame $top.f1]
>     set f2 [ttk::frame $top.f2]
>     set f3 [ttk::frame $top.f3]
344,345c344,345
<     set f2a [frame $f2.a]
<     set f2b [frame $f2.b]
---
>     set f2a [ttk::frame $f2.a]
>     set f2b [ttk::frame $f2.b]
357c357
<     bind [::tk::AmpWidget label $f1.lab -text [mc "Fil&ter:"] -anchor w] \
---
>     bind [::tk::AmpWidget ttk::label $f1.lab -text [mc "Fil&ter:"] -anchor w] \
359c359
<     entry $f1.ent
---
>     ttk::entry $f1.ent
373c373
<     bind [::tk::AmpWidget label $f3.lab -text [mc "&Selection:"] -anchor w] \
---
>     bind [::tk::AmpWidget ttk::label $f3.lab -text [mc "&Selection:"] -anchor w] \
375c375
<     entry $f3.ent
---
>     ttk::entry $f3.ent
384c384
<     set data(okBtn) [::tk::AmpWidget button $bot.ok -text [mc "&OK"] \
---
>     set data(okBtn) [::tk::AmpWidget ttk::button $bot.ok -text [mc "&OK"] \
387c387
<     set data(filterBtn) [::tk::AmpWidget button $bot.filter -text [mc "&Filter"] \
---
>     set data(filterBtn) [::tk::AmpWidget ttk::button $bot.filter -text [mc "&Filter"] \
390c390
<     set data(cancelBtn) [::tk::AmpWidget button $bot.cancel -text [mc "&Cancel"] \
---
>     set data(cancelBtn) [::tk::AmpWidget ttk::button $bot.cancel -text [mc "&Cancel"] \
437c437
<     bind [::tk::AmpWidget label $f.lab -text $label -anchor w] \
---
>     bind [::tk::AmpWidget ttk::label $f.lab -text $label -anchor w] \
441,442c441,442
<     scrollbar $f.v -orient vertical   -takefocus 0 -command [list $f.l yview]
<     scrollbar $f.h -orient horizontal -takefocus 0 -command [list $f.l xview]
---
>     ttk::scrollbar $f.v -orient vertical   -takefocus 0 -command [list $f.l yview]
>     ttk::scrollbar $f.h -orient horizontal -takefocus 0 -command [list $f.l xview]
742c742
<     $data(fEnt) xview end
---
> #    $data(fEnt) xview end
753c753
<     $data(sEnt) xview end
---
> #    $data(sEnt) xview end
849c849,859
< 	if {![file exists $item]} {
---
>    	# we want to strip any filtering/ext/blocking instructions
>    	# from the file name
>  	
>    	set aa [string first "\[" $item]
>    	if {$aa > 0} {
>    	    set fn [string range $item 0 [expr $aa-1]]
>    	} else {
>    	    set fn $item
>    	}
>  	
> 	if {![file exists $fn]} {
852c862
< 			-message [mc {File "%1$s" does not exist.} $item]
---
> 			-message [mc {File "%1$s" does not exist.} $fn]
