cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
JMP is taking Discovery online, April 16 and 18. Register today and join us for interactive sessions featuring popular presentation topics, networking, and discussions with the experts.
Choose Language Hide Translation Bar

How to ask title or other text to Journal in Dialog?

I have been doing a script that asks from user which two columns from original data will be chosen for Journal. I have manage to do that (see the code) but I want to add also item for input dialog where you could put any text that will appear later in the Journal (preferable before table). I do not know how to add "user can write text" option in dialog nor how to "print" that text later in Journal. I know that with 

Current Journal () << Append (TextEditBox("Change Me"));

you can add text to Journal but I want to ask the text with same time as "which two columns to choose" dialog.

 

You can try this script with any data table but I also attached one very simple table with two columns.

  

dt = Current Data Table();

If( Is Empty( dt ),
	dt = Open()
);

DraftTabl = Current Data Table() ;//<< Get Name;

col_name_list = dt << get column names( string );
Show( col_name_list );

dialogA = Empty();
If( Contains( col_name_list, "A" ),
	dialogA = Column( "A" )
);
dialogB = Empty();
If( Contains( col_name_list, "B" ),
	dialogB = Column( "B" )
);

// Dialog to choose column roles, ...
dlg = Column Dialog(
	ACol = Col List( "A param",
		Min Col( 1 ),
		Max Col( 1 ),
		Columns( dialogA )
	),
	BCol = Col List( "B param",
		Min Col( 1 ),
		Max Col( 1 ),
		Columns( dialogB )
	)
);
// I want to add here item for input where you could put any text that will show later in Journal

Show( dlg["Button"] );
If( dlg["Button"] == -1,
	Throw()
);

Remove From( dlg );
Eval List( dlg );
ACol = ACol[1] << get name;
BCol = BCol[1] << get name;


DT = Data Table(DraftTabl) <<
	Subset(
		columns (	Column(ACol), 
					Column(BCol),
				),
		Output Table Name("Draft_table")
		)
;

Data Table("Draft_Table") << Journal;

 

Thank you in advance for any hint.

 

 

 

1 REPLY 1
ian_jmp
Staff

Re: How to ask title or other text to Journal in Dialog?

Try 'Help > Scripting Index' and seraching for 'Column Dialog'. I added 'Edit Text()' to the example given to get the code below.

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Consumer Preferences.jmp" );
Column Dialog(
	ex y = ColList( "Y",
		Min Col( 1 ),
		Max Col( 2 ),
		Data Type( "Numeric" )
	),
	ex x = ColList( "X",
		Max Col( 1 ),
		Modeling Type( {"Continuous", "Multiple Response"} )
	),
	Line Up( 2,
		Text Box( "Alpha" ), ex = EditNumber( .05 ),
		Text Box( "Beta" ), ey = EditText( "xyz" )
	),
	HList( cb = Check Box( "check", 1 ) ),
	HList( combo = Combo Box( "option1", "option2" ) ),
	HList( rb = RadioButtons( "a", "b" ) ),
	HList( et = EditText( "Edit Me" ) )
);