Search for Named Icons

 

 

 

#
# return a sorted list of available icons with a name matching search pattern
#
proc findIcon {pattern} {
    
    # load list of available icons
    set contexts [gnocl::icon contexts]
    foreach context $contexts {
        lappend ICONS $context [lsort [gnocl::icon icons -context $context]]
    }    
    
    foreach {k v} $ICONS {
        foreach i  [lsearch -all -glob $v $pattern ] {
            lappend res [lindex $v $i]
            }  
    }

    return [lsort $res]
}