cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Choose Language Hide Translation Bar
RSantana
Level II

Adding lines of text between graphs in a Journal

I have created a fairly extensive journal and would like to add lines of text between i.e., graphs, as this will help the users know what the following reports and graphs are about.  I have tried the following (a solution from a prior question in the forum):

 

w1 = New Window ("Reports", <<Journal,
hlb = H List Box(
lub = Lineup Box(
tb1 = Text Box( "************************ TEST TEXT ************************" )
)));

 

However, this splits my journal into multiple windows, and that is undesirable.

Is there a way to insert lines of text between graphs and reports in a Journal?

1 ACCEPTED SOLUTION

Accepted Solutions
txnelson
Super User

Re: Adding lines of text between graphs in a Journal

Here is an example of one way to do this

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );

NW = New Window( "My Journal", <<journal, vlb = V List Box() );

dis = Distribution(
	invisible,
	Continuous Distribution( Column( :weight ) ),
	Nominal Distribution( Column( :age ) )
);

vlb << append( Report( dis )[Outline Box( 1 )] );

vlb << append( Text Box( "here is a line of text" ) );
vlb << append( Text Box( "a second line" ) );

biv = Bivariate( Y( :weight ), X( :height ), Fit Line( {Line Color( {212, 73, 88} )} ), invisible );
vlb << append( Report( biv )[Outline Box( 1 )] );
vlb << append( Text Box( "some more text" ) );
vlb << append( Text Box( "and still another line of text" ) );
Jim

View solution in original post

1 REPLY 1
txnelson
Super User

Re: Adding lines of text between graphs in a Journal

Here is an example of one way to do this

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );

NW = New Window( "My Journal", <<journal, vlb = V List Box() );

dis = Distribution(
	invisible,
	Continuous Distribution( Column( :weight ) ),
	Nominal Distribution( Column( :age ) )
);

vlb << append( Report( dis )[Outline Box( 1 )] );

vlb << append( Text Box( "here is a line of text" ) );
vlb << append( Text Box( "a second line" ) );

biv = Bivariate( Y( :weight ), X( :height ), Fit Line( {Line Color( {212, 73, 88} )} ), invisible );
vlb << append( Report( biv )[Outline Box( 1 )] );
vlb << append( Text Box( "some more text" ) );
vlb << append( Text Box( "and still another line of text" ) );
Jim