AGG based calendar control

Hi All, Been mucking about with creating a calendar control in AGG. This current version (see link below) will create a new master style called calendar and then allow you to re-use it wherever. http://rebol.mustard.co.nz/cal_control.r (or goto http://rebol.mustard.co.nz to see full project details) I've still to add click events to switch months etc via mouse but the control can be set externally and then refreshed by the redraw-cal function. Please note: this require a rebol/view version with AGG abilities. The font style used is non-vectorial so it MAY work under the linux AGG.. not able to test that here at this time. (Please let me know if it does). James.

Cool James! A nice example of how little code it can take to do something like this. Don't forget about REPEAT, instead of FOR, where your count starts at one, and your step size is one. -- Gregg

Hmm, looks nice. I noticed you can optimize this: either s = selected-date [inday: true][inday: false] to this: inday: s = selected-date And similar with inmonth. Regards, Anton.