Re: Notebook programming: SlideShow: emulating bullet at-a-time
- To: mathgroup at smc.vnet.net
- Subject: [mg83943] Re: Notebook programming: SlideShow: emulating bullet at-a-time
- From: David Reiss <dbreiss at gmail.com>
- Date: Wed, 5 Dec 2007 07:09:38 -0500 (EST)
- References: <fj37oe$i0n$1@smc.vnet.net>
Here is another approach that I have used for other things in http://scientificarts.com/worklife 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 it. Of course this is just a proto idea and needs some actual work to see if it's viable. Best regards, David On Dec 4, 4:47 am, "W. Craig Carter" <ccar... at mit.edu> 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 > ../../KeyEventTranslations.tr 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