From: nagai@...
Date: 1999-06-17T20:07:58+09:00
Subject: [ruby-dev:7130] Re: Ruby 1.3.4-990611

永井＠知能．九工大です．

From: matz@netlab.co.jp (Yukihiro Matsumoto)
Subject: [ruby-dev:7129] Re: Ruby 1.3.4-990611
Date: Thu, 17 Jun 1999 19:21:38 +0900
Message-ID: <E10uZId-0007j4-00@ev.netlab.co.jp>
matz> かろうじて復帰しました。まだ本調子じゃないです。

おかえりなさい．(^_^)
本調子でないところ，申し訳ないですが，
Tk8.0jp と Tk8.0.3jp との間での仕様変更による問題が発覚しました．
-pointadjust オプションの関係で，Tk8.0.3 以降(?) の Tk に対し，
現在の tkfont.rb ではフォントを変更した際のサイズの変更が
適切にできていませんでした．
で，急ぎ修正してみました．
Tk8.0jp の時と動作をそろえたつもりですが，
本当にこれで正しいかについてはちょっと不安があります．
ちょっとだけ widget demo を動かしてみた限りでは
良さそうに見えるのですが．．．
よろしければテストをお願い致します．> Ruby/Tk ユーザ各位

--- tkfont.rb.orig	Thu Jun 17 17:22:20 1999
+++ tkfont.rb	Thu Jun 17 19:39:10 1999
@@ -817,6 +817,7 @@
     #if JAPANIZED_TK
     if @kanjifont != ""
       configure_core(@kanjifont, slot, value)
+      configure('size'=>configinfo('size')) # to reflect new configuration
     else
       #""
       configure(slot, value)
@@ -841,10 +842,12 @@
 
   def latin_replace(ltn)
     latin_replace_core(ltn)
+    reset_pointadjust
   end
 
   def kanji_replace(knj)
     kanji_replace_core(knj)
+    reset_pointadjust
   end
 
   def measure(text)
@@ -889,6 +892,17 @@
     else
       metrics_core_tk4x(nil, window, option)
     end
+  end
+
+  def reset_pointadjust
+    begin
+      if /^8\.*/ === Tk::TK_VERSION  && JAPANIZED_TK
+        configure('pointadjust' => latin_actual.assoc('size')[1].to_f / 
+                                      kanji_actual.assoc('size')[1].to_f )
+      end
+    rescue
+    end
+    self
   end
 
   ###################################


-- 
                                         永井 秀利 （九工大 知能情報）
                                             nagai@ai.kyutech.ac.jp