JSL MouseBox doesn't save to Journal JMP 17 vs JMP 16

[#1]

Hello, 

I am using a scrip that saves a report in a journal and have noticed a change between JMP 16 and JMP 17 that breaks some of its functionality. If I save a window to the journal in JMP 16, the MouseBox interactions work just like they did in the JMP window, but in JMP 17 I've found that MouseBox doesn't save to the journal at all. Is this an intended change? Any ideas on possible workarounds or better way to be saving the report?

I put together a simple test script to compare between JMP 16 and JMP 17 and verified the behavior. I don't have access to JMP 18 yet, but I'm guessing it would be the same as JMP 17. I'm using JMP 16 Pro, but I know it also works in JMP 16.

JMP versions:

JMP Pro 16.0.0

JMP 17.2.0

names default to here (1);

NewWin = New Window ("mouse box test",
	mb = MouseBox(
	tb = text box("click me"),
		<<set Click Enable (1),
		<<Set Click(
			Function( {this, clickpt, event}, /*Is Alt Key(),Is Control Key(),Is Shift Key() should be captured on "Pressed" */
				//{DEFAULT LOCAL}, //this would set the namespace to local, which broke some functions
				If( event == "Released" | event == "Canceled",
					this << setCursor( "Hand" ) /* switch back to hand immediately */
				,
					this << setCursor( "Finger" ) /* change cursor during drawing */
				);
				If( event == "Pressed",
					(this << child) << set text ("clicked!");
				)
			)
		)
	),
);
NewWin << journal;

[#2]

Do you need to utilize Mouse Box()? Button Box() could be easier option

Names Default To Here(1);
New Window("Example", Button Box("Press Me", Print("Pressed.")));

Also this small change might prevent the mouse box from breaking and will keep it in journal but I'm not sure if you can build it this way (create window as journal window)

[#3]

I'm using MouseBox() so that an image can be interacted with, not just text like in my simple example. Clicking on any of the images in the grid opens up a larger version of the image and gives some additional options. I suppose I could embed the same code into a Button Box(), but it would take up space on an already dense report.

[#4]

ah... half of my message was left out (property tree is there but no script example)! It seems like you can keep the mouse box if you initialize your window as journal window (<< Journal)

Names Default To Here(1);

nw = New Window("mouse box test", << journal, /*Type("Journal")*/
	mb = MouseBox(
	tb = text box("click me"),
		<<set Click Enable (1),
		<<Set Click(
			Function( {this, clickpt, event}, /*Is Alt Key(),Is Control Key(),Is Shift Key() should be captured on "Pressed" */
				//{DEFAULT LOCAL}, //this would set the namespace to local, which broke some functions
				If( event == "Released" | event == "Canceled",
					this << setCursor( "Hand" ) /* switch back to hand immediately */
				,
					this << setCursor( "Finger" ) /* change cursor during drawing */
				);
				If( event == "Pressed",
					(this << child) << set text ("clicked!");
				)
			)
		)
	)
);