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 $thread(ids)
    } else {
        return ""
    }
}