scanning the source code like this: grep -r glob * | grep -v svn | grep -v Binary | grep -v global | grep -v -e "--" | grep -v "^bin" produces the following list of files: components/Sounds.tcl: foreach dir [glob -nocomplain -types d -directory $path *] { components/SlideShow.tcl: set flist [glob -nocomplain -directory $dir -types f -tails *$suff] components/fsdialog.tcl: foreach f [eval glob -nocomplain -tails \ components/fsdialog.tcl: foreach f [eval [linsert $filter 0 glob -nocomplain -tails \ components/fsdialog.tcl: set list [glob -nocomplain -tails -dir $path -type d * .*] components/fsdialog.tcl: switch -glob $name { components/ImageMagic.tcl: set all_files [glob -nocomplain [file join $prefs(incomingFilePath) {*}]] components/BuddyPounce.tcl: set soundfile [lsearch -inline -glob $actions soundfile:*] components/BuddyPounce.tcl: set subjectopt [lsearch -inline -glob $actions subject:*] components/BuddyPounce.tcl: set bodyopt [lsearch -inline -glob $actions body:*] contrib/base64.tcl: set index [lsearch -glob $optionStrings "${arg}*"] contrib/base64.tcl: set index [lsearch -glob $optionStrings "${arg}*"] contrib/tablelist/scripts/repair.tcl: # argument doesn't contain glob-style special characters. contrib/component.tcl: foreach d [glob -directory $dir -nocomplain *] { contrib/autosocks.tcl:# -proxyno glob list of hosts to not use proxy contrib/utils.tcl:# array get and array unset accepts glob characters. These need to be contrib/utils.tcl:proc ESCglobs {s} { contrib/ui/util.tcl: # Find matches in 'library'. Protect glob characters. contrib/ui/util.tcl: set mlist [lsearch -glob -inline -all $library ${white}*] contrib/tinyfileutils.tcl: set files [eval {glob -nocomplain -directory $dir} $pattern] contrib/autoproxy.tcl:# should go via the configured proxy using a glob comparison against the contrib/ttoolbar.tcl: set wtexts [lsearch -glob -inline -all [winfo children $f] $f.t*] contrib/ttoolbar.tcl: set wimages [lsearch -glob -inline -all [winfo children $f] $f.i*] contrib/tinyhttpd.tcl: set allFiles [glob -directory $abspath -nocomplain *] contrib/svgwb2can.tcl: set idx [lsearch -glob $cmd {-[a-z]*}] contrib/snit.tcl: set ndx [lsearch -glob $args "-*"] contrib/snit.tcl: set ndx [lsearch -glob $args "-*"] contrib/snit.tcl: set ndx [lsearch -glob $args "-*"] contrib/snit.tcl:# pattern Optional. The glob pattern to match. Defaults contrib/snit.tcl:# pattern Optional. The glob pattern to match. Defaults contrib/snit.tcl: foreach name [array names Snit_typemethodInfo -glob $pattern] { contrib/snit.tcl: foreach name [array names Snit_typemethodCache -glob $pattern] { contrib/snit.tcl:# pattern Optional. The glob pattern to match contrib/snit.tcl:# pattern Optional. The glob pattern to match. Defaults contrib/snit.tcl: foreach name [array names Snit_methodInfo -glob $pattern] { contrib/snit.tcl: foreach name [array names Snit_methodCache -glob $pattern] { contrib/uuid.tcl:# http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html contrib/tileutils.tcl: foreach file [eval {glob -nocomplain -directory $imgdir} $patterns] { jabber/Register.tcl: set gateway [lsearch -glob -inline $types gateway/*] jabber/Register.tcl: set conference [lsearch -glob -inline $types conference/*] jabber/RosterTree.tcl: set files [eval {glob -nocomplain -directory $this(backgroundsPath)} $pattern] jabber/Avatar.tcl: set files [glob -nocomplain -dir $options(-cachedir) *] jabber/Avatar.tcl: foreach f [glob -nocomplain -directory $dir *] { jabber/Avatar.tcl: foreach f [glob -nocomplain -directory $dir *] { jabber/Avatar.tcl: foreach f [glob -nocomplain -directory $dir *] { jabber/Avatar.tcl: set fileNames [glob -nocomplain -types f \ jabber/Avatar.tcl: foreach f [glob -nocomplain -directory $dir *] { jabber/Roster.tcl: set idx [lsearch -glob $mDefs "* mSendFile... *"] jabber/Roster.tcl: set idx [lsearch -glob $regPopMenuDef "* $mLabel *"] jabber/Roster.tcl: set idx [lsearch -glob $regPopMenuType "$mLabel *"] jabber/Roster.tcl: set idx [lindex [lsearch -glob -all $mDef {sep*}] end] jabber/Roster.tcl: set idx [lsearch -glob $mDef *mChat...*] jabber/Roster.tcl: set gateways [lsearch -inline -glob $types gateway/*] jabber/Icondef.tcl: set zipdir [lindex [glob -nocomplain -directory $mountpath *] 0] jabber/Emoticons.tcl: foreach f [glob -nocomplain -directory $path *] { jabber/Emoticons.tcl: set zipdir [lindex [glob -nocomplain -directory $mountpath *] 0] jabber/Privacy.tcl: set tiline [lsearch -glob -inline [$w tag names $ind] tiline:*] jabber/Servicons.tcl: set service [lsearch -glob -inline $typeL $cat/*] jabber/MailBox.tcl: foreach f [glob -nocomplain -directory $this(inboxCanvasPath) *.can] { jabber/RosterPlain.tcl: if {[lsearch -glob $types gateway/*] >= 0} { jabber/Disco.tcl: set files [eval {glob -nocomplain -directory $this(backgroundsPath)} $pattern] jabber/Disco.tcl: set idx [lsearch -glob $regPopMenuDef "* $name *"] jabber/Disco.tcl: set idx [lsearch -glob $regPopMenuType "$name *"] jabber/Disco.tcl: if {[lsearch -glob $categoryList "conference/*"] >= 0} { jabber/Disco.tcl: if {[lsearch -glob $categoryList "user/*"] >= 0} { jabber/Disco.tcl: set idx [lindex [lsearch -glob -all $mDef {sep*}] end] jabber/Disco.tcl: set isconference [expr {[lsearch -glob $cattypes conference/*] < 0 ? 0 : 1}] jabber/Disco.tcl: return [expr {[lsearch -glob $types $cattype] < 0 ? 0 : 1}] jabber/Search.tcl: set jud [lsearch -inline -glob $servicesL *.$server] jabber/Chat.tcl:# pattern glob matching jabber/RosterTwo.tcl: if {[lsearch -glob $types gateway/*] >= 0} { jabber/GroupChat.tcl:# pattern glob matching jabber/GroupChat.tcl: set idx [lsearch -glob $regPopMenuDef "* $name *"] jabber/GroupChat.tcl: set idx [lsearch -glob $regPopMenuType "$name *"] jabber/GroupChat.tcl: set idx [lindex [lsearch -glob -all $mDef {sep*}] end] jabber/History.tcl: set nfiles [glob -nocomplain -directory $this(historyPath) ${rootTail}-*.nxml] jabber/History.tcl: set xfiles [glob -nocomplain -directory $this(historyPath) ${rootTail}-*.xml] jabber/RosterAvatar.tcl: if {[lsearch -glob $types gateway/*] >= 0} { jabber/ChatTheme.tcl: set dirs [glob -nocomplain -directory [file join $path chatstyles] -types d *] jabber/ChatTheme.tcl: set all [glob -nocomplain -directory $varDir -types f -tails *.css] jabberlib/jabberlib.tcl: set idx [lsearch -glob $preshook($int,$type) "$func *"] jabberlib/jabberlib.tcl: set idx [lsearch -glob $tagxmlns $olist] jabberlib/jabberlib.tcl: set idx [lsearch -glob $expreshook($int,$pat) [list $opts $func $seq]] jabberlib/jabberlib.tcl: set idx [lsearch -glob $genhook($tag) [list $attrspec $childspec $func *]] jabberlib/jabberlib.tcl: foreach key [array names pres -glob stanza,$tag,$xmlns,*] { jabberlib/jabberlib.tcl:# array get and array unset accepts glob characters. These need to be jabberlib/pubsub.tcl: set idx [lsearch -glob $events($pattern) [list $func *]] jabberlib/disco.tcl:# Search for any matching feature var glob pattern. jabberlib/disco.tcl: return [expr {[lsearch -glob $types $cattype] < 0 ? 0 : 1}] jabberlib/disco.tcl:# Returns all jids that match the glob pattern category/type. jabberlib/disco.tcl:# Returns all categories that match the glob pattern catpattern. jabberlib/roster.tcl:# Removes all presence cached internally for jid glob pattern. jabberlib/roster.tcl:# jidpattern: glob pattern for items to remove. lib/Theme.tcl: foreach path [glob -nocomplain -types d -directory $dir *] { lib/Theme.tcl: foreach path [glob -nocomplain -types d -directory $dir *] { lib/Theme.tcl: foreach path [glob -nocomplain -types d -directory $this(themesPath) *] { lib/Utils.tcl: foreach f [glob -nocomplain -tails -directory $this(msgcatPath) *.msg] { lib/FileCache.tcl: # glob returns absolute paths but we must store them relative 'basedir' lib/FileCache.tcl: foreach f [glob -nocomplain -directory $dir $pattern] { lib/FileCache.tcl: foreach f [glob -nocomplain *] { lib/Init.tcl: set bundle [lsearch -glob -inline $psplit *.app] lib/Init.tcl: set appBundle [lsearch -glob -inline \ lib/Init.tcl: set idx [lsearch -glob $psplit *.app] lib/Init.tcl: set vols [lsearch -all -inline -glob -not $vols A:*] lib/Init.tcl: set vols [lsearch -all -inline -glob -not $vols B:*] lib/Init.tcl: set langs [glob -nocomplain -tails -directory $this(msgcatPath) *.msg] lib/UI.tcl: set wins [lsearch -all -inline -glob [winfo children .] ${wprefix}*] lib/UI.tcl: [lsearch -all -inline -glob [winfo children .] ${wprefix}*]] lib/UI.tcl: set idx [lsearch -glob $menuDef *${mLabel}*] lib/TSearch.tcl: if {[lsearch -glob -nocase $textL *${lstring}*] >= 0} { plugins/ItclApplets.tcl: foreach f [glob -nocomplain -directory $this(appletsPath) -type d *] { plugins/applets/CardGame/CardStack.itcl: eval {image delete} [lsearch -inline -glob -all [image names] ${imgbase}::*] TclXML/tclparser-8.1.tcl: switch -glob [string length $e],[regexp "/[::xml::cl $::xml::Wsp]*$" $attr] { TclXML/sgmlparser.tcl: switch -glob [string length $colon],[string length $prefix] { TclXML/sgmlparser.tcl: switch -glob $mode,[string length $PEref],$n { TclXML/sgmlparser.tcl: switch -glob [lindex $value 0],[lindex $value 3] { whiteboard/Whiteboard.tcl: [lsearch -all -inline -glob [winfo children .] $wDlgs(wb)*]] whiteboard/Whiteboard.tcl: foreach f [glob -nocomplain -directory $dir *] { whiteboard/Whiteboard.tcl: foreach f [glob -nocomplain -directory $dir *] { whiteboard/Whiteboard.tcl: foreach f [glob -nocomplain -directory $dir *] {