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

*To*: mathgroup at smc.vnet.net*Subject*: [mg83925] Notebook programming: SlideShow: emulating bullet at-a-time visibility*From*: "W. Craig Carter" <ccarter at mit.edu>*Date*: Tue, 4 Dec 2007 04:32:50 -0500 (EST)

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