您將如何在Mathematica中做可點擊的日曆？

有沒有人已經想過如何在Mathematica中做可點擊的日曆？這裏似乎有些東西http://library.wolfram.com/infocenter/Demos/108/，但我很快測試了它，它似乎沒有工作。您將如何在Mathematica中做可點擊的日曆？

來源

2011-11-15 faysou

您提供的鏈接似乎工作，至少部分。

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"]]

顯示打開，當你點擊任何一個新的筆記本可點擊日曆：

從WR網站加載的筆記本電腦，掃描，將所有自動生成的建議，並評估它，下面的代碼後天按鈕

enter image description here