RE: Change CellTags with FrontEnd
- To: mathgroup at smc.vnet.net
- Subject: [mg68444] RE: [mg68416] Change CellTags with FrontEnd
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 5 Aug 2006 03:46:46 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Ingolf Dahl has an extensive package for manipulating cell tags. It is available at And a new version of my package is available at http://web.telia.com/~u31815170/Mathematica/ and his email address for more information is ingolf.dahl at telia.com. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: mqh [mailto:mhla at gmx.at] To: mathgroup at smc.vnet.net I'd like to change the celltags of several cells that are not adjacent via a program (not via the menu). Doing this for one cell is no problem: I use a rule like {Cell[a_, st_String, b___, CellTags -> tgs_, c___] :> Cell[a, st, b, CellTags -> Union[Flatten[{tgs, newtag}]], c], Cell[a_, st_String, b___ /; FreeQ[{b}, CellTags, \[Infinity]]] :> Cell[a, st, b, CellTags -> settag]}. The problem arises now if several cells are selected: I read them in, apply the rule and paste them back, but the new cells appear now at the wrong place. One can simply imitate this behaviour of M by selecting several not adjacent cells and doing copy and paste: One will see that the cells are pasted at the wrong place. Doing the same thing via the menu entry Find > Add/Remove Cell Tags this is no problem at all. So it appears to me that a solution using the FrontEnd would be the best thing. But: I can find no documentation about a FrontEndToken like "AddCellTags". The best thing I can do is use FrontEndTokenExecute[CellTagsEditDialog] to open the dialog to change CellTags, but this is not what I want. So can anybody tell me if there is an additional FrontEndToken that can do what I want or has another idea? It should work for M4.0 - M5.2.