From 13c512945cb43918702d3d12715fea479096cf8f Mon Sep 17 00:00:00 2001 From: nagai Date: Sun, 11 Dec 2005 14:59:49 +0000 Subject: * ext/tk/lib/tkextlib/SUPPORT_STATUS: update to support libraries in ActiveTcl8.4.12.0. * ext/tk/lib/tkextlib/tile/tnotebook.rb: add Tk::Tile::TNotebook#insert. * ext/tk/sample/tkextlib/tile/demo.rb: improve the look of a part of the demo. * ext/tk/sample/scrollframe.rb: add a new sample. git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@9669 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/tkextlib/tile/demo.rb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'ext/tk/sample') diff --git a/ext/tk/sample/tkextlib/tile/demo.rb b/ext/tk/sample/tkextlib/tile/demo.rb index 13ec3249d..b604410da 100644 --- a/ext/tk/sample/tkextlib/tile/demo.rb +++ b/ext/tk/sample/tkextlib/tile/demo.rb @@ -734,7 +734,11 @@ end # $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 = {} -- cgit