[ruby-dev:27968] 1.8.4 での Tk::Tile のデモの修正

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

デモの一部の見掛けを改善するためのパッチなのですが，
適用してもよろしいでしょうか？
大した修正でもないですし，特に反対がなければ
適用させていただきたいと思っています．
--
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]

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 = {}