[mhc:00143] Re: 0.21b1

[Yusuke NOGUCHI <noguchi@xxxxxxxxxxxxxxxxxxx>]

のぐち@九大 です。

From: Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>
Subject: [mhc:00135] 0.21b1
Date: Thu, 8 Jul 1999 13:04:57 +0900

> 乃村です。0.21b1 です。ちょこちょことバグフィックスです。

あぁ、iconname が反映されてないぃ。
WindowMaker は、title と iconname をそれぞれしとかないといけないような
ので、よろしくお願いします。
あと、自分の環境では最初に出てくるカレンダの横幅が狭すぎて Sat が切れ
てしまうので window の横幅を少しばかり広げています。

*** tkcalendar.rb.org	Thu Jul 15 14:09:02 1999
--- tkcalendar.rb	Thu Jul 15 14:17:34 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 = []
  
***************
*** 683,689 ****
      else
        MonthList .new(w = TkToplevel .new, @yyyy, @mm + 1)
      end
!     w .minsize(200, 125)
    end
  
    def  nextmonth2
--- 684,690 ----
      else
        MonthList .new(w = TkToplevel .new, @yyyy, @mm + 1)
      end
!     w .minsize(250, 125)
    end
  
    def  nextmonth2
***************
*** 700,706 ****
      else
        MonthList .new(w = TkToplevel .new, @yyyy, @mm - 1)
      end
!     w .minsize(200, 125)
    end
  
    def  prevmonth2
--- 701,707 ----
      else
        MonthList .new(w = TkToplevel .new, @yyyy, @mm - 1)
      end
!     w .minsize(250, 125)
    end
  
    def  prevmonth2
***************
*** 756,762 ****
  	  text 'month';
  	  command proc{
  	    MonthList .new(p = TkToplevel .new)
! 	    p .minsize(200, 125)
  	  }
  	}
        end
--- 757,763 ----
  	  text 'month';
  	  command proc{
  	    MonthList .new(p = TkToplevel .new)
! 	    p .minsize(250, 125)
  	  }
  	}
        end
***************
*** 847,852 ****
--- 848,854 ----
  def mkText(path)
    TkToplevel.new {|t|
      title "Schedule: #{path}"
+     iconname "Schedule: #{path}"
  
      TkFrame.new(t){|f|
        pack('fill' => 'both', 'expand' => 'yes')
***************
*** 871,884 ****
  ##
  root = Tk .root
  root .title 'TkCalendar'
  root .geometry("100x125+0+0")
  
  m = MonthList .new(p1 = TkToplevel .new)
! p1 .minsize(200, 125)
  p1 .geometry("100x125")
  
  d = DayList .new(p2 = root)
! p2 .minsize(200, 125)
  p2 .geometry("100x125")
  
  timer = Tick .new
--- 873,887 ----
  ##
  root = Tk .root
  root .title 'TkCalendar'
+ root .iconname 'TkCalendar'
  root .geometry("100x125+0+0")
  
  m = MonthList .new(p1 = TkToplevel .new)
! p1 .minsize(250, 125)
  p1 .geometry("100x125")
  
  d = DayList .new(p2 = root)
! p2 .minsize(250, 125)
  p2 .geometry("100x125")
  
  timer = Tick .new