永井@知能.九工大です.

デモの一部の見掛けを改善するためのパッチなのですが,
適用してもよろしいでしょうか?
大した修正でもないですし,特に反対がなければ
適用させていただきたいと思っています.
--
                                       永井 秀利 (九工大 知能情報)
                                           nagai / ai.kyutech.ac.jp

Index: ext/tk/sample/tkextlib/tile/demo.rb
===================================================================
RCS file: /var/cvs/src/ruby/ext/tk/sample/tkextlib/tile/demo.rb,v
retrieving revision 1.1.2.13
diff -u -r1.1.2.13 demo.rb
--- ext/tk/sample/tkextlib/tile/demo.rb	25 Nov 2005 07:04:56 -0000	1.1.2.13
+++ ext/tk/sample/tkextlib/tile/demo.rb	7 Dec 2005 08:15:08 -0000
@@ -734,7 +734,11 @@
 #
 $Timers = {:StateMonitor=>nil, :FocusMonitor=>nil}
 
-msg = TkMessage.new(others, :aspect=>200)
+begin
+  msg = Tk::Tile::Label.new(others, :justify=>:left, :wraplength=>300)
+rescue
+  msg = TkMessage.new(others, :aspect=>200)
+end
 
 $Desc = {}