Journal: JSL block

[#1]

How can I add a Block with JSL code (like in a JMP notebook) to a Journal ?

[#2 · Accepted solution]

This should do it for you

names default to here(1);

jr=new window("the journal",<<journal);
Names Default To Here( 1 );

nb = Notebook();
block = nb <<
Add New Block(
	"JSL"
);

theWindows = ( Get Window List() << Get Window Title() );

jr << append(window(thewindows[nitems(thewindows)]));

window(thewindows[nitems(thewindows)])<<close window;

[#3]

Ah, thanks!
One has to paste the hole "Window", not just the JSL "Code Block" ?!

The Buttons are missing in the Journal.
This is ok, one can still run the code via right click.

[#4]

Hm, at the moment, I just need it for JSL code. ->  I will use a standard Script Box ...