setNameFilters ("All Files (*)")
cleanedFilters= ("All Files (*)")
cleanFilterList "All Files (*)" i= 0 --> "*"
_q_useNameFilter "All Files (*)" newNameFilters ("*")
setNameFilters ("*")
"*" true
setNameFilters ("HTML document (*.html *.htm)", "plain text document (*.txt *.asc *,v *.doc)")
cleanedFilters= ("HTML document (*.html *.htm)", "plain text document (*.txt *.asc *,v *.doc)")
cleanFilterList "HTML document (*.html *.htm)" i= 0 --> "*.html *.htm"
_q_useNameFilter "HTML document (*.html *.htm)" newNameFilters ("*.html", "*.htm")
setNameFilters ("*.html", "*.htm")
"*.html" true
"*.htm" true
setNameFilters ("All Files (*)")
cleanedFilters= ("All Files (*)")
cleanFilterList "All Files (*)" i= 0 --> "*"
_q_useNameFilter "All Files (*)" newNameFilters ("*")
setNameFilters ("*")
"*" true
setNameFilters ("HTML document (*.html *.htm)", "plain text document (*.txt *.asc *,v *.doc)")
cleanedFilters= ("HTML document (*.html *.htm)", "plain text document (*.txt *.asc *,v *.doc)")
cleanFilterList "HTML document (*.html *.htm)" i= 0 --> "*.html *.htm"
_q_useNameFilter "HTML document (*.html *.htm)" newNameFilters ("*.html", "*.htm")
setNameFilters ("*.html", "*.htm")
"*.html" true
"*.htm" true

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
cleanFilterList "plain text document (*.txt *.asc *,v *.doc)" i= -1 --> "plain text document (*.txt *.asc *,v *.doc)"


_q_useNameFilter "plain text document (*.txt *.asc *,v *.doc)" newNameFilters ("plain", "text", "document", "(*.txt", "*.asc", "*,v", "*.doc)")
setNameFilters ("plain", "text", "document", "(*.txt", "*.asc", "*,v", "*.doc)")
"plain" true
"text" true
"document" true
"(*.txt" true
"*.asc" true
"*,v" true
"*.doc)" true