All geek questions in one place

How do you make an interactive calendar in Mathematica?

Has anyone already thought about how to make an interactive calendar in Mathematica? There seems to be something here http://library.wolfram.com/infocenter/Demos/108/ , but I quickly tested it and it seems to not work.

+4
source share
2 answers

The link you provided seems to work, at least in part.

After downloading the laptop from the WR website, scanning, applying all automatically created offers and evaluating it, the following code:

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

displays a clickable calendar that opens a new laptop when you press a button any day

enter image description here

+4
source

Here is a slightly more complex example:

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

+4
source

Source: https://habr.com/ru/post/1381274/

More articles:


All Articles