Thanks a bunch,
----------------------------------------------------------------
Steve and Roberta Rothkin
Dancemasters Disc Jockey Entertainers--WE MAKE YOUR PARTY FUN!
22A Hawkes Close
Ossining, NY 10562

Voice: (914) 762-4565
Fax:   (914) 762-4566
World Wide Web: http://www.*-*-*.com/
Member American Disc Jockey Association

NumThreads  Signed
J           Signed
W1          &Window
W2          &Window

! check to see that no other procedures are running

    SetTarget(,1)   !main window
    W1 &= System{PROP:Target}
    NumThreads = 1  !counts as one

    ! loop thru to see how many threads are active
    loop J = 2 to 64
        SetTarget(,J)
        W2 &= System{PROP:Target}
        if not W2 &= W1 !if it's not the same as the main window
            NumThreads += 1
        end
    end !loop

    SetTarget() !restore the current thread

HTH,
Lisa Daugherty

Very nice! ;-)

--
Russ Eggen
www.radfusion.com

This is what I had to do:

NumThreads  Signed
J           Signed
W1          &Window
W2          &Window

! check to see that no other procedures are running

    SetTarget(,1)   !main window
    W1 &= System{PROP:Target}
    NumThreads = 1  !counts as one

    ! loop thru to see how many threads are active
    loop J = 2 to 64
        SetTarget(,J)
        W2 &= System{PROP:Target}
        if not W2 &= W1 !if it's not the same as the main window
            NumThreads += 1
        end
    end !loop

    SetTarget() !restore the current thread

HTH,
Lisa Daugherty

    Without some code to notify you that a window or thread is open, I'm
not aware of any way. There might be some API stuff, but again, I've not
seen anything about it.

    Regards,

    kurtt

    Kurt Pawlikowski
    The Pinrod Corporation

    (773) 284-9500
    http://pinrod.com