¿Cómo ejecutar el código de inicialización para una paleta?

Question

Ocasionalmente, sería preferible tener algún código de inicialización para paletas (de botones). Por ejemplo, podría definir algunas funciones que usan los botones de la paleta.

¿Cuál es la forma más fácil y preferible de definir/ejecutar el código de inicialización para una paleta?

• La inicialización puede funcionar bien cuando la paleta se carga o cuando se pulsa cualquier botón por primera vez (posible problema:? lo que si se reinicia el núcleo después de la paleta se cargó)
• El las definiciones deben estar de alguna manera localizadas (es decir, en su propio contexto: ¿aquí ayudan los contextos únicos del cuaderno?)
• Si es posible, preferiría una solución de mínimo esfuerzo (es decir, código adicional en el menor número de lugares posible, archivo de paleta autónomo con sin archivos de paquete adicionales, creación de paleta utilizando las herramientas de conveniencia existentes del menú de paletas o CreatePalette, etc.)
• (Puede suponer que el código de inicialización se ejecuta rápidamente, p. consiste solo de definiciones)

Answer 1

Tienes razón para estar preocupados por la visibilidad de la Dynamic siendo un problema. La forma de garantizar por completo una expresión Dynamic que se evaluará independientemente de la visibilidad de cualquiera de las celdas individuales es usar NotebookDynamicExpression. Aquí hay un ejemplo que ilustra NotebookDynamicExpression de trabajo mientras que un Dynamic falla porque está escondida dentro de un grupo de celdas cerradas:

cell1 = First @ MakeBoxes[ 
    TextCell["Click to open", "Title", 
     CellMargins -> 0, System`WholeCellGroupOpener -> True], 
    StandardForm]; 
cell2 = First @ MakeBoxes[ 
    ExpressionCell[DynamicWrapper["hidden cell", Print["DynamicWrapper"]]], 
    StandardForm]; 
CreatePalette[ 
    Notebook[{Cell[CellGroupData[{cell1, cell2}, Closed]]}, 
     NotebookDynamicExpression :> 
      Dynamic[Refresh[Print["NotebookDynamicExpression"], None]]]] 

Al evaluar esto, observamos que el Dynamic en NotebookDynamicExpression evalúa inmediatamente. El DynamicWrapper nunca se evalúa hasta que abra el grupo de celdas, lo que puede hacer haciendo clic en el texto "Haga clic para abrir".

En este ejemplo, por cierto, observe que envolví el NotebookDynamicExpression con Refresh. La función Refresh[#, None]& se asegurará de que el código evalúe solo una vez, cuando se abre por primera vez el notebook. De lo contrario, el código obedecería a las propiedades estándar de Dynamic y evaluaría cada vez que cambie alguna de las dependencias.

NotebookDynamicExpression ha estado presente desde v6, pero solo se documentó en v8. También están documentados sus primos relacionados, CellDynamicExpression y FrontEndDynamicExpression.

Answer 2

A DynamicBox con Initialization es capaz de la función básica. Puede ajustar el tamaño de la paleta para que el objeto no sea visible y seguirá funcionando.

Aquí hay un código para una pequeña paleta de muestra. Establece un valor para var. El código activo se compensa con espacios en blanco.

(* Beginning of Notebook Content *) 
Notebook[{ 
Cell[BoxData[{ 
TagBox[GridBox[{ 
    { 
    ButtonBox["\<\"TSV\"\>", 
     Appearance->Automatic, 
     ButtonFunction:>None, 
     Evaluator->Automatic, 
     Method->"Preemptive"]}, 
    { 
    ButtonBox["\<\"CSV\"\>", 
     Appearance->Automatic, 
     ButtonFunction:>None, 
     Evaluator->Automatic, 
     Method->"Preemptive"]}, 
    { 
    ButtonBox["\<\"Table\"\>", 
     Appearance->Automatic, 
     ButtonFunction:>None, 
     Evaluator->Automatic, 
     Method->"Preemptive"]} 
    }, 
    GridBoxAlignment->{"Columns" -> {{Left}}}, 
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
    "Column"], "\[IndentingNewLine]", 

DynamicBox[Null, 
    Initialization :> ($CellContext`var = "It is done, Master.") 
] 

}], NotebookDefault, 
CellMargins->{{0, 0}, {0, 0}}, 
CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, 
CellHorizontalScrolling->True, 
PageBreakAbove->True, 
PageBreakWithin->False, 
ShowAutoStyles->True, 
LineSpacing->{1.25, 0}, 
AutoItalicWords->{}, 
ScriptMinSize->9, 
ShowStringCharacters->False, 
FontFamily:>CurrentValue["PanelFontFamily"], 
FontSize:>CurrentValue["PanelFontSize"]] 
}, 
WindowSize->{55, 105}, 
WindowMargins->{{Automatic, 583}, {Automatic, 292}}, 
WindowFrame->"Palette", 
WindowElements->{}, 
WindowFrameElements->{"CloseBox", "MinimizeBox"}, 
StyleDefinitions->"Palette.nb" 
] 
(* End of Notebook Content *)