[mhc:00115] patch for tkcalender.rb

[Yusuke NOGUCHI <noguchi@xxxxxxxxxxxxxxxxxxx>]

のぐち@九大 です。

tkcalender.rb を icon 化したばあい、タイトルバーのところが空で少し寂し
いです。以下のようにしていただけ無いでしょうか。

元のバージョンは、
## $Id: tkcalendar.rb,v 1.14 1999/06/22 10:16:28 nom Exp $
##
## Version: Tkcalendar 0.10
##
## Created: May  1, 1999
## Revised: May 13, 1999
です。

*** tkcalendar.rb.old	Tue Jun 22 20:08:08 1999
--- tkcalendar.rb	Fri Jun 25 01:21:14 1999
***************
*** 165,170 ****
--- 165,171 ----
    def scan(yyyy, mm)
      w = day_of_week(yyyy, mm, 1)
      @parent .title("#{yyyy}年 #{mm}月")
+     @parent .iconname("#{yyyy}年 #{mm}月")
      mFrame = TkFrame .new(self){pack('fill' => 'both', 'expand' => 'y')}
      dListbox = []
  
***************
*** 845,850 ****
--- 846,852 ----
  def mkText(path)
    TkToplevel.new {|t|
      title "Schedule: #{path}"
+     iconname "Schedule: #{path}"
  
      TkFrame.new(t){|f|
        pack('fill' => 'both', 'expand' => 'yes')
***************
*** 869,874 ****
--- 871,877 ----
  ##
  root = Tk .root
  root .title 'TkCalendar'
+ root .iconname 'TkCalendar'
  root .geometry("100x125+0+0")
  
  m = MonthList .new(p1 = TkToplevel .new)