TABLE OF CONTENTS

::pwtk::thread_ids

SYNOPSIS

proc ::pwtk::thread_ids {} {

PURPOSE

Return the IDs of all existing "alive" threads.

SOURCE

    variable thread

    set result ""
    foreach id [varvalue thread(ids)] {
        if { [::thread::exists $id] } {
            lappend result $id
        }
    }
    return $result
}