From 38114e1c7d89a6d8a79845bbea41b898b55ce3f7 Mon Sep 17 00:00:00 2001
From: "(no author)" <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 26 Jan 1999 10:08:18 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'v1_3_1_990126'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_3_1_990126@379 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb          | 3 +++
 ext/tk/lib/tkscrollbox.rb | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'ext/tk')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index e32723be96..bd896639fc 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -2412,6 +2412,9 @@ class TkMenubutton<TkLabel
 end
 
 module TkComposite
+  include Tk
+  extend Tk
+
   def initialize(parent=nil, *args)
     @frame = TkFrame.new(parent)
     @path = @epath = @frame.path
diff --git a/ext/tk/lib/tkscrollbox.rb b/ext/tk/lib/tkscrollbox.rb
index 8d129b2f4b..be7799240e 100644
--- a/ext/tk/lib/tkscrollbox.rb
+++ b/ext/tk/lib/tkscrollbox.rb
@@ -8,7 +8,7 @@ require 'tk.rb'
 
 class TkScrollbox<TkListbox
   include TkComposite
-  def initialize_composite
+  def initialize_composite(keys=nil)
     list = TkListbox.new(@frame)
     scroll = TkScrollbar.new(@frame)
     @path = list.path
@@ -23,5 +23,7 @@ class TkScrollbox<TkListbox
     delegate('background', list, scroll)
     delegate('borderwidth', @frame)
     delegate('relief', @frame)
+
+    configure keys if keys
   end
 end
-- 
cgit v1.2.3