-----------------------------------
-- Calendar
-----------------------------------
include GtkEngine.e

constant win = create(GtkWindow)
connect(win,"destroy",quit)
set(win,"position",GTK_WIN_POS_CENTER)

enum Y,M,D
-------------------------------------
function ShowDate(atom ctl, atom cal)
-------------------------------------
object date = get(cal,"date")
-- cal returns {Y,M,D}, so we convert;
return Info(win,"Calendar Results",
	sprintf("Date selected is: %02d/%02d/%04d",
		{date[M],date[D],date[Y]}))
end function
constant show_date = call_back(routine_id("ShowDate"))

constant panel = create(GtkVBox)
add(win,panel)

constant calendar = create(GtkCalendar)
add(panel,calendar)

constant btn = create(GtkButton,"gtk-ok")
connect(btn,"clicked",show_date,calendar)
pack(panel,-btn)

show_all(win)
main()

---------------------------------------------------------------
-- Copyright 2009 by Irv Mullins - code released under the LGPL
---------------------------------------------------------------