63 lines
1.5 KiB
Ruby
63 lines
1.5 KiB
Ruby
|
=begin
|
||
|
|
calendar.rb - Gtk::Calendar sample script.
|
||
|
|
|
||
|
|
Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
|
||
|
|
This program is licenced under the same licence as Ruby-GNOME2.
|
||
|
|
|
||
|
|
$Id: calendar.rb,v 1.7 2006/06/17 13:18:12 mutoh Exp $
|
||
|
|
=end
|
||
|
|
|
||
|
|
require 'gtk2'
|
||
|
|
|
||
|
|
cal = Gtk::Calendar.new
|
||
|
|
|
||
|
|
w = Gtk::Window.new("Calendar sample")
|
||
|
|
w.add(cal).show_all.signal_connect('delete_event') do
|
||
|
|
Gtk.main_quit
|
||
|
|
end
|
||
|
|
|
||
|
|
date = Time.new
|
||
|
|
|
||
|
|
cal.select_month(date.month, date.year)
|
||
|
|
cal.select_day(date.day)
|
||
|
|
cal.mark_day(date.day)
|
||
|
|
#cal.clear_marks
|
||
|
|
cal.display_options(Gtk::Calendar::SHOW_HEADING |
|
||
|
|
Gtk::Calendar::SHOW_DAY_NAMES |
|
||
|
|
Gtk::Calendar::NO_MONTH_CHANGE |
|
||
|
|
Gtk::Calendar::SHOW_WEEK_NUMBERS |
|
||
|
|
Gtk::Calendar::WEEK_START_MONDAY)
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "this is #{month} #{day}, #{year}"
|
||
|
|
|
||
|
|
cal.signal_connect('day_selected') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "selected day: #{day}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('month_changed') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "changed month: #{month}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('day_selected_double_click') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "dclicked day: #{day}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('prev_month') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "prev month: #{month}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('next_month') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "next_month: #{month}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('prev_year') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "prev_year: #{year}"
|
||
|
|
end
|
||
|
|
cal.signal_connect('next_year') do
|
||
|
|
year, month, day = cal.date
|
||
|
|
puts "next year: #{year}"
|
||
|
|
end
|
||
|
|
|
||
|
|
Gtk.main
|