新井です。

>>> From: Koji Arai <JCA02266 / nifty.ne.jp>
>>> Date: 30 Nov 1999 00:52:54 +0900
>>> Subject: [ruby-dev:8445] [PATCH] Ruby/Tk and ...

> ライブラリのパッチをいくつか。

以下も追加で提案します。不都合なければ入れてもらえませんか?

# そういや、平松さんのRuby/Tkチュートリアル
#  <http://www.cdrom.co.jp/~hiramatu/index.html>
# が、見当たらない。痛い。

 (その3) xscrollcommand proc {|arg| ... } でなく
	 xscrollcommand {|arg| ... } としたい。

Index: ext/tk/lib/tk.rb
===================================================================
RCS file: /home/cvs/ruby/ext/tk/lib/tk.rb,v
retrieving revision 1.3
diff -u -p -u -r1.3 tk.rb
--- ext/tk/lib/tk.rb	1999/08/24 08:21:54	1.3
+++ ext/tk/lib/tk.rb	1999/11/30 14:17:51
@@ -2131,6 +2131,8 @@ class TkTextWin<TkWindow
 end
 
 class TkListbox<TkTextWin
+  include Scrollable
+
   WidgetClassNames['Listbox'] = self
   def TkListbox.to_eval
     'Listbox'
Index: ext/tk/lib/tkcanvas.rb
===================================================================
RCS file: /home/cvs/ruby/ext/tk/lib/tkcanvas.rb,v
retrieving revision 1.3
diff -u -p -u -r1.3 tkcanvas.rb
--- ext/tk/lib/tkcanvas.rb	1999/08/24 08:21:55	1.3
+++ ext/tk/lib/tkcanvas.rb	1999/11/30 14:17:52
@@ -129,6 +129,7 @@ end
 
 class TkCanvas<TkWindow
   include TkTreatCItemFont
+  include Scrollable
 
   WidgetClassName = 'Canvas'.freeze
   WidgetClassNames[WidgetClassName] = self

--
新井康司 (Koji Arai)