From 3dd3b2136b0050c669d0881ae804b1fae8ea6567 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 22 Oct 2005 22:17:08 +0000
Subject: * ext/tk/extconf.rb: improbe messages [ruby-core:06325]. *
 ext/tk/lib/tk.rb, ext/tk/lib/tk/canvas.rb, ext/tk/lib/tk/entry.rb,  
 ext/tk/lib/tk/frame.rb, ext/tk/lib/tk/image.rb,  
 ext/tk/lib/tk/itemconfig.rb, ext/tk/lib/tk/labelframe.rb,  
 ext/tk/lib/tk/listbox.rb, ext/tk/lib/tk/menu.rb,  
 ext/tk/lib/tk/radiobutton.rb, ext/tk/lib/tk/scale.rb,  
 ext/tk/lib/tk/spinbox.rb, ext/tk/lib/tk/text.rb,   ext/tk/lib/tk/toplevel.rb:
 improve conversion of option values. * ext/tk/lib/tkextlib/*: ditto. *
 ext/tk/lib/tkextlib/*: update to support ActiveTcl8.4.11.2. *
 ext/tk/lib/tkextlib/trofs/*: support Trofs 0.4.3. *
 ext/tk/lib/tkextlib/tile/*: support Tile 0.7.2. * ext/tk/lib/tkextlib/vu/*:
 support vu 2.3.0. * ext/tk/lib/tkextlib/tcllib/*: support Tcllib 1.8 (Tklib
 0.3).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9448 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb')

diff --git a/ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb b/ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb
index 5321331551..0d9715f87b 100644
--- a/ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb
+++ b/ext/tk/lib/tkextlib/iwidgets/tabnotebook.rb
@@ -23,15 +23,20 @@ class Tk::Iwidgets::Tabnotebook
   include TkItemConfigMethod
 
   def __item_cget_cmd(id)
-    [self.path, 'tabcget', id]
+    [self.path, 'pagecget', id]
   end
   private :__item_cget_cmd
 
   def __item_config_cmd(id)
-    [self.path, 'tabconfigure', id]
+    [self.path, 'pageconfigure', id]
   end
   private :__item_config_cmd
 
+  def __item_strval_optkeys(id)
+    super(id) << 'tabbackground' << 'tabforeground'
+  end
+  private :__item_strval_optkeys
+
   def tagid(tagOrId)
     if tagOrId.kind_of?(Tk::Itk::Component)
       tagOrId.name
@@ -51,6 +56,16 @@ class Tk::Iwidgets::Tabnotebook
 
   ####################################
 
+  def __boolval_optkeys
+    super() << 'auto' << 'equaltabs' << 'raiseselect' << 'tabborders'
+  end
+  private :__boolval_optkeys
+
+  def __strval_optkeys
+    super() << 'backdrop' << 'tabbackground' << 'tabforeground'
+  end
+  private :__strval_optkeys
+
   def initialize(*args)
     super(*args)
     @tabset = self.component_widget('tabset')
-- 
cgit v1.2.3