-----------------------------------
-- Calendar Aug.4, 2008
-----------------------------------
include GtkEngine.e

include dll.e

constant win = create(GtkWindow)
connect(win,"destroy",quit)
set(win,"default size",400,300)
set(win,"position",GTK_WIN_POS_CENTER)

-------------------------------------
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[2],date[3],date[1]}))
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 2008 by Irv Mullins - code released under the LGPL
---------------------------------------------------------------