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

Re: buttons

• To: mathgroup at smc.vnet.net
• Subject: [mg32547] Re: [mg32475] buttons
• From: Omega Consulting <omega_consulting at yahoo.com>
• Date: Sat, 26 Jan 2002 04:08:11 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

At 02:20 AM 1/22/2002, David P. Johnson wrote:
>Anyone using buttons in notebooks? I'd like to simply put a button at
>the end of my notebook that will cause two cells to be calculated each
>time I hit it. Couldn't quite figure it out from the documentation. Any
>help appreciated.
>
>--
>-David
>(Signature continues here)
>N.B.: Remove the 'x' to email me

Add the celltag "MyTwoCells" to the cells you want to evaluate and this 
button will do the trick

ButtonBox["Evaluate", Active -> True,
     ButtonFunction :> (NotebookFind[ButtonNotebook[], "MyTwoCells", All, 
CellTags];
         SelectionEvaluate[ButtonNotebook[]])] // DisplayForm

--------------------------------------------------------------
Omega Consulting
"The final answer to your Mathematica needs"

Spend less time searching and more time finding.
http://www.wz.com/internet/Mathematica.html