I want to make Auto-Animate Button.
- To: mathgroup at smc.vnet.net
- Subject: [mg8385] I want to make Auto-Animate Button.
- From: Shinya Ohashi <conway at pisces.bekkoame.or.jp>
- Date: Tue, 26 Aug 1997 20:41:22 -0400
- Sender: owner-wri-mathgroup at wolfram.com
I used Mathematica 3.0 for Mac.
I want to make 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 !
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Shinya Ohashi
195-5-305 Toyoshiki Kashiwa Chiba Japan
conway at pisces.bekkoame.or.jp
tel.:81+471-40-1770
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/