MathGroup Archive 1997

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

Search the Archive

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 !





  • Prev by Date: Re: ? ? ? ! ?
  • Next by Date: Re: color space curve
  • Previous by thread: Re:
  • Next by thread: Re: Auto-Animate Button ?