Mathematicaでクリック可能なカレンダーをどうやってやりますか？

誰かがすでにMathematicaでクリック可能なカレンダーをどうやって行うのか考えましたか？ここに何かがあるようですhttp://library.wolfram.com/infocenter/Demos/108/、しかし私はすぐにそれをテストし、それは動作していないようです。Mathematicaでクリック可能なカレンダーをどうやってやりますか？

出典

2011-11-15 faysou

あなたが提供したリンクは、少なくとも部分的に機能しているようです。 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"]]

表示さあなたがいずれかをクリックすると、新しいノートブックを開き、クリック可能なカレンダー日ボタン

enter image description here