topic Re: Button to open specific outline in a journal in Discussions

Button to open specific outline in a journal

Djtjhin — Sat, 10 Jun 2023 20:52:31 GMT

Is there a way to add button in a journal that opens a specific outline within the journal ? (e.g. similar to in-document referencing in word documents)

I've seen journals used <<open next outline, but I believe this won't be able to open outline box if it's not positioned right next to the containing outline box.

Re: Button to open specific outline in a journal

jthi — Tue, 13 Sep 2022 07:32:49 GMT

Maybe you can use something like this:

Current Journal()[OutlineBox("Outline3")] << Close(0)

Re: Button to open specific outline in a journal

Djtjhin — Tue, 13 Sep 2022 08:07:23 GMT

@jthi Yeah, I was using xml and was able to get it to work :)

Now I wonder if there's a way to bring the opened outline to the top of the page. Any ideas on this ?

Re: Button to open specific outline in a journal

jthi — Tue, 13 Sep 2022 08:22:05 GMT

Not sure if you can move display element, but you could maybe remove and then re-add it

Names Default To Here(1);
New Window("WrapListBox",
	vlb = V List Box(
		ob1 = Outline Box("1"),
		ob2 = Outline Box("2"),
		ob3 = Outline Box("3"),
	);
);

wait(1);
ob_to_move = Remove From(vlb, Contains(vlb << XPath("//OutlineBox"), ob3));
wait(1);
Insert Into(vlb, ob_to_move, 1);

Re: Button to open specific outline in a journal

txnelson — Tue, 13 Sep 2022 08:33:37 GMT

Another way of handling this, is to completely hide the outline box of interest, rather than closing it; The button box can then redisplay the outline box, rather than opening it. This is all done using the Visibility element available to the Outline Box() object.

Names Default To Here( 1 );
dt = 
// Open Data Table: Big Class.jmp
// → Data Table( "Big Class" )
Open( "/C:/Program Files/SAS/JMPEA/17/Samples/Data/Big Class.jmp" );

ow = Oneway(
	Y( :height ),
	X( :age ),
	Means( 1 ),
	Box Plots( 1 ),
	Mean Diamonds( 1 )
);
nw = New Window( "My Display",
	<<journal,
	bb = Button Box( "Display Anova",
		nw["Oneway Anova"] << visibility( switch );
		If( switch == "visible",
			switch = "collapse";
			bb << set button name( "Hide Anova" );
		,
			switch = "visible";
			bb << set button name( "Display Anova" );
		)
	
		;
	)
);
Report( ow ) << journal;
ow << close window;
switch = "visible";
nw["Oneway Anova"] << visibility( "collapse" );