[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Jun 5 09:04:46 1995 
Subject:Re: news-relayFrom: pop@edu.umass.cs.roo (Robin Popplestone) 
From:Adrian Howard 
Volume-ID:950605.03 

In article <3qnqvm$4fl@percy.cs.bham.ac.uk>, PP User <pp@cs.bham.ac.uk> wrote:
>A handy hackeroo for printing out the descendents of a widget.
>
>define pr_Descendents_1(W,i);
>  sp(i);
>  npr(W);
>  applist(XptChildren(W),print_Descendents(%i+2%));
>enddefine;
>
>define pr_Descendents = nl(%1%) <> pr_Descendents_1(%0%)
>
>Robin

I think Robin actually meant

    define pr_Descendents_1(W,i); lvars W, i;
      sp(i);
      npr(W);
      applist(XptChildren(W),pr_Descendents_1(%i+2%));
    enddefine;

    define pr_Descendents = nl(%1%) <> pr_Descendents_1(%0%); enddefine;

:-)

Those with more of a graphical bent might want to try

    uses showtree;
    define pr_Descendents = XptWidgetTree <> showtree enddefine;

instead.

Adrian

aids (adrianh@cogs.susx.ac.uk)  ObDisclamer: Poplog used to pay my wages
Phone: +44 (0)1273 678367 URL: http://www.cogs.susx.ac.uk/users/adrianh/