Ok, this seems to be very easy in Mathematica.
Button["Show me a plot", Show[Plot[Sin[x], {x, -Pi, Pi}]]]
Then you click the button, nothing happens.
Button["Show me a plot", Print[Plot[Sin[x], {x, -Pi, Pi}]]]
This line will do the job. Or use the following line:
Show[Plot[Sin[x], {x, -Pi, Pi}],
DisplayFunction -> (Button["Show me a plot", Print[#]] &)]
The key here is to use “Print” rather than “Show”. It isn’t clearly explained in the “ref/Button”.
It is kind of intuitive, because the second argument is an action. And it says "evaluates action whenever it is clicked". If you type in ?Button you will see a quick help.
ReplyDelete