Как бы вы сделали интерактивный календарь в Mathematica?

Question

Кто-нибудь уже задумывался о том, как сделать кликабельный календарь в Mathematica?Кажется, здесь что-то есть http://library.wolfram.com/infocenter/Demos/108/,, но я быстро проверил это, и это не сработало.

Answer 1

Вот немного более сложный пример:

http://dev.ragfield.com/2009/03/flickcalendar.html

Answer 2

Ссылка, которую вы предоставили, кажется, работает, по крайней мере частично.

После загрузки блокнота с сайта 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"]]

отображает интерактивный календарь, который открывает новую записную книжку при нажатии на любую кнопку дня