Auto-Animate Button ?
- To: mathgroup at smc.vnet.net
- Subject: [mg8295] Auto-Animate Button ?
- From: Shinya Ohashi <conway at pisces.bekkoame.or.jp>
- Date: Sun, 24 Aug 1997 04:46:37 -0400
- Sender: owner-wri-mathgroup at wolfram.com
I used Mathematica 3.0 for Mac.
I want to create auto-animate button.
For example:(Show Expression)
Cell[BoxData[
ButtonBox["Anim",
ButtonEvaluator->Automatic,
ButtonFunction:>{Set[nb,NotebookCreate[]];
NotebookWrite[nb,
"Do[Plot[Sin[x+t],{x,0,2 Pi}],{t,0,2 Pi}]"];
SelectionMove[nb,All,Cell];
SelectionEvaluate[nb];
SelectionMove[nb,Previous,CellGroup];
SelectionAnimate[nb]},
ButtonStyle->"Evaluate"]], "Input",
Active->True]
This button create new notebook and draw graphics.
But SelectionMove is evaluated before end of draw graphics.
Please advise me !