* ext/tk/lib/tcltklib : bug fix

* ext/tk/lib/tk : bug fix and add Tcl/Tk extension support libraries


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6559 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 13 insertions, 13 deletions

diff --git a/ext/tk/lib/tk/listbox.rb b/ext/tk/lib/tk/listbox.rb
index 611226682a..799d573b1d 100644
--- a/ext/tk/lib/tk/listbox.rb
+++ b/ext/tk/lib/tk/listbox.rb
@@ -2,27 +2,21 @@
 # tk/listbox.rb : treat listbox widget
 #
 require 'tk'
+require 'tk/itemconfig'
 require 'tk/scrollable'
 require 'tk/txtwin_abst'
 
-module TkTreatListItemFont
-  include TkTreatItemFont
+module TkListItemConfig
+  include TkItemConfigMethod
 
-  ItemCMD = ['itemconfigure'.freeze, TkComm::None].freeze
-  def __conf_cmd(idx)
-    ItemCMD[idx]
+  def __item_listval_optkeys(id)
+    []
   end
-
-  def __item_pathname(tagOrId)
-    self.path + ';' + tagOrId.to_s
-  end
-
-  private :__conf_cmd, :__item_pathname
+  private :__item_listval_optkeys
 end
 
-
 class TkListbox<TkTextWin
-  include TkTreatListItemFont
+  include TkListItemConfig
   include Scrollable
 
   TkCommandNames = ['listbox'.freeze].freeze
@@ -38,6 +32,10 @@ class TkListbox<TkTextWin
   end
   private :create_self
 
+  def tagid(id)
+    id.to_s
+  end
+
   def activate(y)
     tk_send_without_enc('activate', y)
     self
@@ -78,6 +76,7 @@ class TkListbox<TkTextWin
     tk_send_without_enc('index', index).to_i
   end
 
+=begin
   def itemcget(index, key)
     case key.to_s
     when 'text', 'label', 'show'
@@ -249,4 +248,5 @@ class TkListbox<TkTextWin
       ret
     end
   end
+=end
 end