[ruby-dev:25986] Re: tktable doesn't have selection_present

山本です。

別件ですが、demos-jp/goldberg.rb が 1024x768 だと表示しきれなくて
下のほうのアニメーションが見えなかったので、こうしてもいいでしょうか。

Index: goldberg.rb
===================================================================
RCS file: /src/ruby/ext/tk/sample/demos-jp/goldberg.rb,v
retrieving revision 1.1
diff -u -w -b -p -r1.1 goldberg.rb
--- goldberg.rb	2 Mar 2005 07:06:51 -0000	1.1
+++ goldberg.rb	3 Apr 2005 17:11:00 -0000
@@ -54,15 +54,6 @@ $goldberg_demo = TkToplevel.new {|w|
 #  positionWindow(w)
 }
 
-# label
-msg = TkLabel.new($goldberg_demo) {
-  font 'Arial 10'
-  wraplength '4i'
-  justify 'left'
-  text "、ウ、・マ。「、「、ハ、ソ、ャシォハャ、ホ・「・ヒ・癸シ・キ・逾!"!"%)!"%R%K$B!"!&%M!"%?!"d&%[!"%R!"%L!"%e!"!&%)!"%#!"%1!"%M!"!"!"%r!"%?!"%"!"%[!"%=!"b&%[!&%L!&d&%L!"%1!#!W!&%o!#%7!&!&%C!&!&%F!&%C!"%1!"!&%_%O%'!"%c%K!<!"%e%5%^!"b&!+!"%1!#%'\n\n\"Man will always find a difficult means to perform a simple task\"\n - Rube Goldberg"
-}
-msg.pack('side'=>'top')
-
 # frame
 TkFrame.new($goldberg_demo) {|frame|
   TkButton.new(frame) {
@@ -366,6 +357,8 @@ class TkGoldberg_Demo
 
   def about
     msg = "Ruby/Tk Version ::\nby Hidetoshi NAGAI ([e-mail])\n\n"
+    msg += "、ウ、・マ。「、「、ハ、ソ、ャシォハャ、ホ・「・ヒ・癸シ・キ・逾!"!"%)!"%R%K$B!"!&%M!"%?!"d&%[!"%R!"%L!"%e!"!&%)!"%#!"%1!"%M!"!"!"%r!"%?!"%"!"%[!"%=!"b&%[!&%L!&d&%L!"%1!#!W\n"
+    msg += "・ワ。シ・・%C!&!&%F!&%C!"%1!"!&%_%O%'!"%c%K!<!"%e%5%^!"b&!+!"%1!#%'\n\n"
     msg += "Original Version ::\n"
     msg += "#{@S['title']}\nby Keith Vetter, March 2003\n(Reproduced by kind permission of the author)\n\n"
     msg += "Man will always find a difficult means to perform a simple task"


あと、下のようにしないと化けてしまったのですが、これは意図された動作でしょうか。

Index: paned2.rb
===================================================================
RCS file: /src/ruby/ext/tk/sample/demos-jp/paned2.rb,v
retrieving revision 1.4
diff -u -w -b -p -r1.4 paned2.rb
--- paned2.rb	11 Oct 2004 04:50:06 -0000	1.4
+++ paned2.rb	3 Apr 2005 17:17:29 -0000
@@ -42,7 +42,7 @@ TkFrame.new($paned2_demo){|f|
 
 paneList = TkVariable.new  # define as normal variable (not array)
 paneList.value = [         # ruby's array --> tcl's list
-    'Ruby/Tk 、ホ・ヲ・」・ク・ァ・テ・ネー・・,
+    TkComm._toUTF8('Ruby/Tk 、ホ・ヲ・」・ク・ァ・テ・ネー・・),
     'TkButton', 
     'TkCanvas', 
     'TkCheckbutton', 

個人的には、hierarchy.rb と違って $KCODE が指定されているので、化けてほしくない気がします。