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/
|