nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Find All Display Tree Elements

robot

Hi,

I would like to use JSL to get a list of all the objects within a display tree for scripting purposes. Specifically, I would like to get a list of all the FrameBoxes within a window, and then add a graphics script to each. Or better still, I would like to return a list of available FrameBoxes to the user, and then have the user select which graphics script to add.

How can I get a list of all the FrameBoxes in a window? I would like to get a list that is in a form suitable for scripting, and not just view the Display Tree. Is this possible?

Thanks!

Accepted answers

ian_jmp

That's perfectly possible. The code below uses pre-order traversal to walk the display tree (and was originally written by Joseph Morgan in the JMP Division, I believe). You should be able to get what you need with a few tweaks (depending on the rest of your code).

NamesDefaultToHere(1);

ClearLog();

// This function recursively traverses a display tree producing

// a pre-order listing of the names of display boxes that constitute

// the tree. It also looks for each FrameBox (whether displayed or not),

// and gets the name of the parent OutlineBox

preorder = Function({node},

Local({chnode},

// Inspect the current node

nodeType = Char(node << className);

Print("Node: "||nodeType);

If(nodeType =="FrameBox",

// Find the title of the parent outline node of this FrameBox

parent = node << parent;

parentType = Char(parent << className);

While(parentType != "OutlineBox",

parent = parent << parent;

parentType = Char(parent << className);

);

InsertInto(fbTitles, parent << getTitle)

);

// Do the recusrsion

chnode = node << child;

While(IsScriptable(chnode),

Recurse(chnode);

chnode = chnode << sib;

);

// Try out 'preorder' . . .

dt = Open("$SAMPLE_DATA/Big Class.jmp");

obj = dt << Fit Model(

Y( :height ),

Effects( :sex ),

Personality( "Standard Least Squares" ),

Emphasis( "Effect Leverage" ),

Run(

:height << {Lack of Fit( 0 ), Plot Actual by Predicted( 1 ),

Plot Regression( 0 ), Plot Residual by Predicted( 1 ),

Plot Effect Leverage( 1 )}

)

);

report=report(obj);

fbTitles = {};

preorder(report);

Print("\!n", fbTitles);

All comments

ian_jmp

NamesDefaultToHere(1);

ClearLog();

// This function recursively traverses a display tree producing

// a pre-order listing of the names of display boxes that constitute

// the tree. It also looks for each FrameBox (whether displayed or not),

// and gets the name of the parent OutlineBox

preorder = Function({node},

Local({chnode},

// Inspect the current node

nodeType = Char(node << className);

Print("Node: "||nodeType);

If(nodeType =="FrameBox",

// Find the title of the parent outline node of this FrameBox

parent = node << parent;

parentType = Char(parent << className);

While(parentType != "OutlineBox",

parent = parent << parent;

parentType = Char(parent << className);

);

InsertInto(fbTitles, parent << getTitle)

);

// Do the recusrsion

chnode = node << child;

While(IsScriptable(chnode),

Recurse(chnode);

chnode = chnode << sib;

);

// Try out 'preorder' . . .

dt = Open("$SAMPLE_DATA/Big Class.jmp");

obj = dt << Fit Model(

Y( :height ),

Effects( :sex ),

Personality( "Standard Least Squares" ),

Emphasis( "Effect Leverage" ),

Run(

:height << {Lack of Fit( 0 ), Plot Actual by Predicted( 1 ),

Plot Regression( 0 ), Plot Residual by Predicted( 1 ),

Plot Effect Leverage( 1 )}

)

);

report=report(obj);

fbTitles = {};

preorder(report);

Print("\!n", fbTitles);

robot

Thanks Ian.

robot

Hi Ian@JMP,

Thanks again for the preorder function. Is there a way for the function to return only FrameBoxes that are actually displayed? Or is there a way for JMP to tell which FrameBoxes are displayed or not?

I find that when my script tries to send a command to a FrameBox that is not displayed, it will cause an error.

ian_jmp

Not really answering your question directly, but you may be able to make the failure you mention benign by using the 'Try()' function.

robot

Okay. Thanks Ian. An unfortunate side-effect of the returned hidden FrameBoxes is that the FrameBox title may not match up with the FrameBox number as shown below. I may be able to get my script to work using some other variations on the Try() function.

Names Default To Here( 1 );

Clear Log();

// This function recursively traverses a display tree producing

// a pre-order listing of the names of display boxes that constitute

// the tree. It also looks for each FrameBox (whether displayed or not),

// and gets the name of the parent OutlineBox

preorder = Function( {node},

Local( {chnode},

// Inspect the current node

nodeType = Char( node << className );

Print( "Node: " || nodeType );

If( nodeType == "FrameBox",

// Find the title of the parent outline node of this FrameBox

parent = node << parent;

parentType = Char( parent << className );

While( parentType != "OutlineBox",

parent = parent << parent;

parentType = Char( parent << className );

);

Insert Into( fbTitles, parent << getTitle );

);

// Do the recusrsion

chnode = node << child;

While( Is Scriptable( chnode ),

Recurse( chnode );

chnode = chnode << sib;

);

)

);

// Try out 'preorder' . . .

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

obj = dt << Fit Model(

Y( :height ),

Effects( :sex ),

Personality( "Standard Least Squares" ),

Emphasis( "Effect Leverage" ),

Run(

:height << {Lack of Fit( 0 ), Plot Actual by Predicted( 1 ), Plot Regression( 0 ), Plot Residual by Predicted( 1 ), Plot Effect Leverage( 1 )

}

)

);

report = Report( obj );

fbTitles = {};

preorder( report );

Print( "\!n", fbTitles );

// Select windows.

Wait( 1 );

obj << Bring Window to Front;

For( i = 1, i <= N Items( fbTitles ), i++,

Try(

report[FrameBox( i )] << Select;

win = New Window( "FrameBox Title", <<Modal, Text Box( Eval( fbTitles[i] ) ) );

report[FrameBox( i )] << Deselect;

)

);

vince_faller

This worked for me if you don't need all the other stuff Ian built in. Don't know why it's returning lists of lists but I just select the first one.

dt = open("$SAMPLE_DATA/Big Class.jmp");

biv = (dt << Bivariate(Y(:height, :weight), X(:age)));

frame_list = biv << xpath("//FrameBox");

wait(2);

frame_list[1][1]<<Select;

wait(2);

frame_list[2][1]<<Select;

tova

I am trying to run this script, but I am getting the error message :

Send Expects Scriptable Object{1} in access or evaluation of 'Send' , node << /*###*/className/*###*/

ANy idea why or what I should do?

thanks