ButtonBox, styles, GraphicsGenerator.nb

*To*: mathgroup at smc.vnet.net*Subject*: [mg24997] ButtonBox, styles, GraphicsGenerator.nb*From*: pdickof at sk.sympatico.ca (Peter Dickof)*Date*: Fri, 1 Sep 2000 01:09:30 -0400 (EDT)*References*: <8hfgjn$i54@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In the GraphicsGenerator notebook available on MathSource, an example is given of button which generates a plot in a standalone notebook window. The notebook then says "Earlier in this notebook, we took some pains in separating task-specific material from things that might be reusable. Gathering the set of reusable ButtonBox objects together, we can place them in a StyleData cell in a style sheet so that you can speed the creation of similar buttons. Here is an example of what a cell style might look like Cell[StyleData["PutGraphicInWindow"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonEvaluator -> "Automatic", ButtonFunction :> (NotebookPut[ Notebook[{Cell[GraphicsData["PostScript", DisplayString[#2]], ShowCellBracket -> False]}, WindowSize -> {300, 250}, WindowElements -> {}, WindowTitle -> "Graphics"]] & ), Active -> True}] // CellPrint The sample notebook never actually resuses thuis, and I can't figure it out. I copied this to a notebook which I put in the / ../configuration/FrontEnds/StyleSheets directory. It still does not appear in the Input/Create Button or Input/Edit button menu. Isn't it supposed to? Also I try to include it directly in a notebook and then use it in command ButtonBox[ToExpression["Plot3D[Sin[x] Cos[y],{x,0,2Pi}, {y,0,2Pi}, DisplayFunction->Identity], ButtonStyle->PutGraphicInWindow] and nothing happens What am I doing wrong? Peter Dickof pdickof at sk.sympatico.ca