Open() , save and close while script is running

Jackie_

Hi,

 

Is there a way I could open the data table, save in the variable and close it while the script is running? It's annoying sometimes because the input data table will pop up. I tried using close window, close() but they didn't seem to work.

Names Default To Here( 1 );
Clear Globals();
Clear Log();
dt2 = Current Data Table();
nw = New Window( "New window",
			<<modal(),
			Text Box(
				"Tests", 
			
				<<Set Font Style( "Bold" ),
				<<Set Wrap( 1000 )
			), 
	
			Spacer Box( Size( 20, 20 ) ), 
               
			H List Box(
				Panel Box( "Input JMP file",
					<<set font style( "Bold" ),
					Button Box( "Select file", dt1 = Open(), <<setIcon( "ListItemAdd" ) ) // Can I use close window syntax? here
				)),
				Spacer Box( Size( 20, 10 ) ),
			Panel Box( "Actions", 

				H List Box(
					align( center ), 

					Button Box( "OK", 
						keep_going = 1;
						todo_list = my_cb << get selected, <<setIcon( "CheckCircle" );
					), 

					Button Box( "Cancel", keep_going = 0, <<setIcon( "ErrorSmall" ))

				), 

			),
			<<Size Window( 340, 430 )
		);

 

 

jthi

Could hiding the window work (make it invisible). Then if you need to make it visible you can use << Show Window(1);.

Here is how to set invisible directly in Open function, but I think this requires you to have the path

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
wait(2);
dt << Show Window(1);

In your case you might have to first let the table open as visible and then use << Show Window(0); to hide it

Names Default To Here(1);
dt = Open();
dt << Show Window(0);

Even better might be using file_path = Pick File with Open(file_path, invisible):

dt_path = Pick File("Select JMP File",
	"",
	{"JMP Files|jmp"}
);
If(!IsMissing(dt_path),
	dt1 = Open(dt_path, invisible);
);

View more...

Names Default To Here(1);
dt2 = Current Data Table();
nw = New Window("New window",
	<<modal(),
	Text Box(
		"Tests", 
			
		<<Set Font Style("Bold"),
		<<Set Wrap(1000)
	), 
	
	Spacer Box(Size(20, 20)), 
               
	H List Box(
		Panel Box("Input JMP file",
			Button Box("Select file", 
			dt_path = Pick File("Select JMP File",
				"",
				{"JMP Files|jmp"}
			);
			If(!IsMissing(dt_path),
				dt1 = Open(dt_path, invisible);
			);
				,<<setIcon("ListItemAdd")
			) // Can I use close window syntax? here
		)
	),
	Spacer Box(Size(20, 10)),
	Panel Box("Actions", 

		H List Box(
			align(center), 

			Button Box("OK",
				keep_going = 1;
				todo_list = my_cb << get selected;,
				<<setIcon("CheckCircle")
			), 

			Button Box("Cancel", keep_going = 0, <<setIcon("ErrorSmall"))

		), 

	),
	<<Size Window(340, 430)
);