Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: button to emulate Shift-Enter

• To: mathgroup at smc.vnet.net
• Subject: [mg49981] Re: [mg49968] button to emulate Shift-Enter
• From: Murray Eisenberg <murray at math.umass.edu>
• Date: Mon, 9 Aug 2004 04:29:19 -0400 (EDT)
• Organization: Mathematics & Statistics, Univ. of Mass./Amherst
• References: <200408080937.FAA21899@smc.vnet.net> <37C74AE8-E94C-11D8-B884-000393671006@misspelled.erthlink.net>
• Reply-to: murray at math.umass.edu
• Sender: owner-wri-mathgroup at wolfram.com

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
> http://www.appliedsymbols.com
> (edit reply-to to reply)
> 
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

• Follow-Ups:
  • Re: Re: button to emulate Shift-Enter
    • From: DrBob <drbob@bigfoot.com>

• References:
  • button to emulate Shift-Enter
    • From: Murray Eisenberg <murray@math.umass.edu>