Re: how to find the TLB of a widget

["JD Smith" <none>]

----------
In article <38613EC5.71E5AF2C@cornell.edu>, Jonathan Joseph 
<jj21@cornell.edu> wrote:


> Is there a simple way (other than recursively getting the parent)
> to find the Top-level base of a widget.  I don't have an event
> structure to query (which stores it as one of it's fields).
>
> It seems that it should be obtainable in one fell swoop using
> widget_info or widget_control, but I can't seem to find
> it if it is there.
>
> Shall I bother to write the routine get_tlb (OK, I've already
> written as it is so trivial)  or does such already exist.
>
> -Jonathan
>
>

You don't need recursion... How about (given a widget dw).

   repeat begin
      tlb=dw
      dw=widget_info(dw,/PARENT)
   endrep until dw eq 0


JD