RE: Disabling a button during the computation??
- To: mathgroup at smc.vnet.net
- Subject: [mg15167] RE: [mg15037] Disabling a button during the computation??
- From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
- Date: Thu, 17 Dec 1998 00:27:46 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Ville T Oikarinen
Wants to make a button that will have the same effect if it is depressed
once or a few times in rapid sequence. I give you a toy button below
that does this. The key is to ensure the button has no function if it
was last depressed less than one second in the past.
First evaluate the code below in a notebook.
Note:
I understand there is be a more concise way to do this than
CellPrint[Cell[BoxData[ButtonBox[.....]]]] but I am just getting the
hang of this, and the code below is the best I could do.
(****** Code begins ***********)
LastUsed=0.0;
CellPrint[Cell[BoxData[ButtonBox[
"Sample",
ButtonEvaluator->Automatic,
ButtonFunction:>(
If[AbsoluteTime[]-LastUsed>1.,
(LastUsed=AbsoluteTime[];
NotebookWrite[InputNotebook[],
Cell[TextData["The button was depressed."],"Print"]]
)]
)
]]]]
(****** Code ends ***********)
Then select the cell containing the button and make the menu selection:
File -> Generate Palette from Selection
This gives you a palette containing the button.
Now you can use the button.
Cheers,
Ted Ersek