wolfram-mathematica - 您将如何在 Mathematica 中制作可点击的日历？

Question

有没有人已经想过如何在 Mathematica 中制作可点击的日历？这里好像有东西http://library.wolfram.com/infocenter/Demos/108/ ，但我很快测试了它，它似乎不起作用。

Answer 1

您提供的链接似乎有效，至少部分有效。

从WR站点加载笔记本，扫描，应用所有自动生成的建议并对其进行评估后，代码如下:

CellPrint[
 Cell[BoxData[
   GridBox[{{ButtonBox["January 2003", 
       Background -> RGBColor[0.4, 0, 0.4], 
       ButtonFunction -> Null]}, {GridBox[
       Prepend[monthlayout[1, 2003] /. 
         i : (_Integer | _String) :> 
          ButtonBox[i, Background -> RGBColor[1, 0.6, 0.8], 
           ButtonFunction -> (FrontEndToken["New"] &)], 
        alldays /. 
         s_String :> 
          ButtonBox[s, Background -> RGBColor[0.8, 0.2, 0.6], 
           ButtonFunction -> Null]]]}}]], "Output"]]

显示一个可点击的日历，当你点击任何一天按钮时，它会打开一个新的笔记本