MathGroup Archive 2007

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

Search the Archive

Re: Notebook programming: SlideShow: emulating bullet at-a-time

  • To: mathgroup at
  • Subject: [mg83943] Re: Notebook programming: SlideShow: emulating bullet at-a-time
  • From: David Reiss <dbreiss at>
  • Date: Wed, 5 Dec 2007 07:09:38 -0500 (EST)
  • References: <fj37oe$i0n$>

Here is another approach that I have used for other things in

This is to have a notebook that contains in its TaggingRules the data
(in your case various sets of cells in temporal sequence contained in
a list) the material that you want to access.  A click of your IR
Remote would then execute a function that takes this data, grabs the
next set of cells from the list, writes them to the end of your
notebook, and then deletes that set from the list. (TaggingRules
doesn't need to conatain rules: it can contain any data one wishes.)
Note that one can use Tagging Rules at the notebook level or at the
cell level. So, for example you might have a Section cell that has
TaggingRules that contain the bullets that are to be displayed below

Of course this is just a proto idea and needs some actual work to see
if it's viable.

Best regards,


On Dec 4, 4:47 am, "W. Craig Carter" <ccar... at> wrote:
> To those of you who have some experience with Notebook
> programming:
> I've been trying to write commands for keystrokes that
> emulates the standard "add-a-bullet-to-current-display" that
> are common in other presentation applications.  (I am giving
> a talk about using mathematica to teach math to engineers.)
> I have a IR remote device that I can use to send
> programmable key-strokes to mathematica (like "->" to go to
> next page).
> To add a bullet to the display,
> I've been trying two strategies without success.
> 1.  Recursive grouping of text cells, editing
> ../../ with something such as:
> KeyEvent["key",Modifiers->{..,..}],
> FrontEndExecute[{
> FrontEnd`SelectionMove[FrontEnd`InputNotebook[],Next,CellGroup],
> FrontEnd`FrontEndToken[FrontEnd`InputNotebook[],"OpenClosedGroup"],
> ---and then SelectionMove to After and then Previous---}
> (* I can't get this to work, because I can't find a way to
> move the selection to the next closed group *)
> 2. Set the Option->0 for all bullets to be revealed,
> then (pseudocode) Select Next Text cell,
> SetOption[??CurrentSelection??, Opacity->Automatic}
> Here I fail, because I can only get the global options set,
> and not that for the particular cell.
> Can anyone think of a method to make these strategies work;
> or, suggest one that has a better chance of succeeding?
> As always with talks, this is a last-minute job. I have a
> fall-back strategy which is to make separate pages with
> increasing numbers of bullets. But, I'd rather not use this
> because (well, I've sunk too much time into this method and
> I know its lost time and should stop now, but, well you
> know..), and I like to be able to "back-up" during
> presentations and not "remove bullets one at a time"
> Thanks, Craig

  • Prev by Date: Re: The integrand has evaluated to non-numerical values for all
  • Next by Date: Re: Re: Presentations Package Announcement
  • Previous by thread: Re: Controlling evaluation
  • Next by thread: Re: How do I let them know about a bug ?