MathGroup Archive 2004

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

Search the Archive

Re: Re: button to emulate Shift-Enter

  • To: mathgroup at
  • Subject: [mg49994] Re: [mg49981] Re: [mg49968] button to emulate Shift-Enter
  • From: DrBob <drbob at>
  • Date: Tue, 10 Aug 2004 06:02:49 -0400 (EDT)
  • References: <> <> <>
  • Reply-to: drbob at
  • Sender: owner-wri-mathgroup at

Close the palette (or Mathematica) and you'll get a dialog asking whether you want to save the palette.


On Mon, 9 Aug 2004 04:29:19 -0400 (EDT), Murray Eisenberg <murray at> wrote:

> OK, that makes the desired palette, thanks.
> BUT: How do I save it?  I seem to recall I need to use the Option
> Inspector to make it Editable.  But I cannot even seem to make the now
> free-floating, single-button palette to be active (with its
> "Untitled..." title bar hightlighted) without having another notebook
> open, and in that case Option Inspector refers to that other notebook,
> not the palette notebook.
> I have the terrible feeling I've asked this before, but I cannot locate
> the answer.
> Selwyn Hollis wrote:
>> On Aug 8, 2004, at 5:37 AM, Murray Eisenberg wrote:
>>> How would I create a button, for a one-button palette, that when clicked
>>> by the mouse, sends the Shift-Enter key combination to the active
>>> notebook (i.e., not the palette notebook) for the cell in which the
>>> cursor was positioned in that active notebook?
>>> Explanation: For presentations, I want to be able to use a
>>> remote-control mouse device that cannot transmit any keystrokes but can
>>> move the mouse around the screen and transmit a left-click (or
>>> right-click).  So my thought is to have the sort of button, as a
>>> sepaately floating palette, that I could click so as to emulate pressing
>>> Shift-Enter in the target notebook being presented.
>>> --
>>> Murray Eisenberg
>> Hi Murray,
>> Paste and then enter the following. Then select the output cell and
>> choose Generate Palette form Selection from your File menu.
>>   ButtonBox[
>>     StyleBox[" Evaluate ", FontFamily->"Helvetica",
>>       FontWeight->"Bold", FontColor->RGBColor[0.75,0,0]],
>>     ButtonFunction:>(CompoundExpression[
>>             FrontEndTokenExecute["EvaluateNextCell"],
>>             FrontEndTokenExecute["EvaluateNextCell"]]&),
>>     ButtonEvaluator->Automatic, ButtonMinHeight->1.5,
>>     Background->GrayLevel[0.9]]//DisplayForm
>> Regards,
>> -----
>> Selwyn Hollis
>> (edit reply-to to reply)

DrBob at

  • Prev by Date: Re: Re: Reduce/Solve
  • Next by Date: Re: Re: populate a list with random numbers from normal distribution?
  • Previous by thread: Re: button to emulate Shift-Enter
  • Next by thread: Re: button to emulate Shift-Enter