Poly seg association with data table/ row states

vince_faller

Is there a way to associate poly segs with a data table like you can with markerseg() so that selection of the segment also highlights rows? 

For instance 

 

Names default to here(1);
dt = open("$SAMPLE_DATA\Big Class.jmp");
dt_sum = dt << Summary(
	Group( :sex ),
	Freq( "None" ),
	Weight( "None" )
);

dt_sum:sex << Set Labelled;

gb = graphbox();
fb = gb[framebox(1)];
new window("Test", 
	gb
);


fps = polyseg([70, 90, 90, 70], [30, 30, 10, 10]);
fb << append seg(fps);

mps = polyseg([10, 30, 30, 10], [30, 30, 10, 10]);
fb << append seg(mps);

ms = markerseg([80, 20], [50, 50], row states(dt_sum));
fb << append seg(ms);

//can I assign fps to row 1 and mps to row 2 so that when I click them 
// they select in both tables (since the tables are linked)

gzmorgan0

Vince,

 

Try the attached script. It is not a complete solution.  This script is relying on the row state handler, obviously built-in by the Marker Segs.  Without the marker segs, this script would need to add a row state handler scoped to this display. The handler function would need to send an Inval to the framebox and Update Window when a row state changed. 

 

To extend this script, I would find the center of the polygon and add a markerseg so all the extra scripting would be handled by the existent JMP builtin code. 

 

Hope this helps.    

 

Names default to here(1);
dt = open("$SAMPLE_DATA\Big Class.jmp");
dt_sum = dt << Summary(
	Group( :sex ),
	Freq( "None" ),
	Weight( "None" )
);

dt_sum:sex << Set Labelled;

gb = graphbox();
fb = gb[framebox(1)];
new window("Test", 
	gb
);

mpolyseg = Function({xmat, ymat, states=[]},{i,scrp=Expr(Glue()), c, rs=0},
  show(states);
  if(
	  IsMatrix(states) & nrow(states)==0 
		| //or
		  IsList(states) & nitems(states) ==0, 
		states=J(nrow(xmat),1,0),
	  Type(states) == "Table",
		rs=1
  );
For(i=1, i<=nrow(xmat), i++,
  If(rs,
    c = Parse(EvalInsert("Color Of(As Row State((^states^<<get row states)[^i^]))") )
  , //else
    c = Color Of(As Row State(states[i]) );
  );
  Insert into(scrp, insert(Expr(Fill Color();), NameExpr(c)) );
  Insert into(scrp, insert(insert(Expr(Polygon();), xmat[i,0]), ymat[i,0] ) );		
);
show(NameExpr(scrp));
NameExpr(scrp)
);
xmat = [70 90 90 70,
	    10 30 30 10];
ymat = [30 30 10 10,
	    30 30 10 10];
fpx = mpolyseg(xmat, ymat, dt_sum);
Eval(Parse (EvalInsert("fb << Add Graphics Script( ^Name Expr(fpx)^ )")) );	    
//fps = polyseg([70, 90, 90, 70], [30, 30, 10, 10]);
//fb << append seg(fps);
//
//mps = polyseg([10, 30, 30, 10], [30, 30, 10, 10]);
//fb << append seg(mps);

ms = markerseg([80, 20], [50, 50], row states(dt_sum));
fb << append seg(ms);

This function also allows specifying fixed states or colors.

 

Another method would be to create a row state handler and find all windows and find all frameboxes (using xpath) and inval and update window all of them.