------------------------------------------------------------------------
--# Calendar with locale
------------------------------------------------------------------------

include GtkEngine.e

-- Translates buttons and calendar text if you have the language installed 
-- note: if you include locale.e, you must use the gtk: namespace for
-- all gtk get/set calls, since set() and get() also exist in locale.e

include std/locale.e 

object lang = "es_MX.UTF-8" -- try your favorite language spec here!

constant win = create(GtkWindow,"position=1,$destroy=Quit")

constant panel = create(GtkBox,VERTICAL)
    add(win,panel)

constant cal = create(GtkCalendar)
    gtk:set(cal,"mark day",gtk:get(cal,"day"))
    add(panel,cal)

constant btnbox = create(GtkButtonBox,"border_width=10")
    pack(panel,-btnbox)
	add(btnbox,{
		create(GtkButton,"gtk-quit","Quit"),
		create(GtkButton,"gtk-ok",_("ShowDate"))})

show_all(win)

if locale:set(lang) = 0 then
    Warn(0,,"Sorry, unable to load",lang) 
end if

main()

------------------------------------------------------------------------
function ShowDate()
------------------------------------------------------------------------
object selected_date = gtk:get(cal,"date","%A, %b %d, %Y") 
    Info(win,"Calendar Results","Selected date",selected_date)
    return 1
end function