From ac16c5d78c54092ccf267cbf210b1fb7fd4f2d42 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: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9669 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/lib/tkextlib/SUPPORT_STATUS | 11 ++++++----- ext/tk/lib/tkextlib/tile/tnotebook.rb | 9 +++++++++ 2 files changed, 15 insertions(+), 5 deletions(-) (limited to 'ext/tk/lib/tkextlib') diff --git a/ext/tk/lib/tkextlib/SUPPORT_STATUS b/ext/tk/lib/tkextlib/SUPPORT_STATUS index d7d9b31a57..8d7b6fc44a 100644 --- a/ext/tk/lib/tkextlib/SUPPORT_STATUS +++ b/ext/tk/lib/tkextlib/SUPPORT_STATUS @@ -1,7 +1,7 @@ [ current support status of Tcl/Tk extensions ] - *******<<< RELEASE_DATE of the libraries : 2005/11/22 >>>******* + *******<<< RELEASE_DATE of the libraries : 2005/12/11 >>>******* The following list shows *CURRENT* status when this file was modifyed at last. If you want to add other Tcl/Tk extensions to the planed list @@ -55,8 +55,8 @@ script may give you some hints about that. ===< support with some examples (may be beta quality) >======================= -Tcllib 1.8 http://sf.net/projects/tcllib - ==> tcllib (partial support; Tklib part only) +Tcllib 1.8 +Tklib 0.4.1 http://sf.net/projects/tcllib ==> tcllib IWidgets 4.0.2 http://sf.net/projects/incrTcl ==> iwidgets @@ -80,10 +80,11 @@ BLT 2.4z http://sourceforge.net/projects/blt (http://raa.ruby-lang.org/) ==> blt -TkTreeCtrl CVS/Hd(2005-03-25) +TkTreeCtrl CVS/Hd(2005-12-02) http://tktreectrl.sourceforge.net/ ==> treectrl -Tile 0.7.2 http://tktable.sourceforge.net/tile/ ==> tile +Tile CVS/Hd(2005-12-07) + http://tktable.sourceforge.net/tile/ ==> tile diff --git a/ext/tk/lib/tkextlib/tile/tnotebook.rb b/ext/tk/lib/tkextlib/tile/tnotebook.rb index da4fa203c7..abaed8ee9c 100644 --- a/ext/tk/lib/tkextlib/tile/tnotebook.rb +++ b/ext/tk/lib/tkextlib/tile/tnotebook.rb @@ -90,6 +90,15 @@ class Tk::Tile::TNotebook < TkWindow number(tk_send('index', idx)) end + def insert(idx, subwin, keys=nil) + if keys && keys != None + tk_send('insert', idx, subwin, *hash_kv(keys)) + else + tk_send('insert', idx, subwin) + end + self + end + def select(idx) tk_send('select', idx) self -- cgit v1.2.3