59 lines
2.0 KiB
Elixir
59 lines
2.0 KiB
Elixir
|
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
--# Display a nice calendar using EuGTK and Glade
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
add(builder,"~/demos/glade/calendar.glade")
|
||
|
|
|
||
|
|
-- PATCH: Gtk 3.14 forgets to add a quit button to the about.dialog!
|
||
|
|
if minor_version = 14 then
|
||
|
|
set("aboutdialog1","add button","gtk-quit",0)
|
||
|
|
end if
|
||
|
|
|
||
|
|
main()
|
||
|
|
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
global function on_calendar1_day_selected_double_click()
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
return Info("window1",,"Calendar Clicked",
|
||
|
|
get("calendar1","date"),,
|
||
|
|
"~/demos/thumbnails/cal.png","x-office-calendar")
|
||
|
|
end function
|
||
|
|
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
global function on_OK_button_clicked()
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
return Info("window1",,"Button Clicked",
|
||
|
|
sprintf("Date is %s",{get("calendar1","date")}),,
|
||
|
|
"~/demos/thumbnails/cal.png","x-office-calendar")
|
||
|
|
end function
|
||
|
|
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
global function on_About_button_clicked()
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
set("aboutdialog1","run")
|
||
|
|
set("aboutdialog1","hide")
|
||
|
|
return 1
|
||
|
|
end function
|
||
|
|
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
global function check_link()
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
if networked() and inet_connected() then
|
||
|
|
return 0 -- go ahead and try the link;
|
||
|
|
else
|
||
|
|
Warn(,,"Network Error","No connection to Web!",,"~/demos/thumbnails/net0.png")
|
||
|
|
return 1 -- don't try to connect the link;
|
||
|
|
end if
|
||
|
|
end function
|
||
|
|
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
global function on_aboutdialog1_response()
|
||
|
|
---------------------------------------------------------------------
|
||
|
|
set("aboutdialog1","hide")
|
||
|
|
return 1
|
||
|
|
end function
|
||
|
|
|