TABLE OF CONTENTS

::pwtk::thread_id

SYNOPSIS

proc ::pwtk::thread_id {} {

PURPOSE

Return the ID of the last created PWTK thread or an empty string if no threads were created.

SOURCE

    variable thread
    ifexist thread(ids) {
        return [lindex $thread(ids) end]
    } else {
        return ""
    }
}