MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/




  • Prev by Date: Re: Threading objects of unequal length
  • Next by Date: Re: Graphics manipulation question
  • Previous by thread: ParametricPlot3D
  • Next by thread: Re: FullSimplify[Sum[1/(n^2 +n+1)^2,{n,1,p}]]?