mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
30 lines
785 B
Ruby
30 lines
785 B
Ruby
|
#
|
||
|
|
# tkscrollbox.rb - Tk Listbox with Scrollbar
|
||
|
|
# as an example of Composite Widget
|
||
|
|
# $Date$
|
||
|
|
# by Yukihiro Matsumoto <matz@netlab.co.jp>
|
||
|
|
|
||
|
|
require 'tk.rb'
|
||
|
|
|
||
|
|
class TkScrollbox<TkListbox
|
||
|
|
include TkComposite
|
||
|
|
def initialize_composite(keys=nil)
|
||
|
|
list = TkListbox.new(@frame)
|
||
|
|
scroll = TkScrollbar.new(@frame)
|
||
|
|
@path = list.path
|
||
|
|
|
||
|
|
list.configure 'yscroll', scroll.path+" set"
|
||
|
|
list.pack 'side'=>'left','fill'=>'both','expand'=>'yes'
|
||
|
|
scroll.configure 'command', list.path+" yview"
|
||
|
|
scroll.pack 'side'=>'right','fill'=>'y'
|
||
|
|
|
||
|
|
delegate('DEFAULT', list)
|
||
|
|
delegate('foreground', list)
|
||
|
|
delegate('background', list, scroll)
|
||
|
|
delegate('borderwidth', @frame)
|
||
|
|
delegate('relief', @frame)
|
||
|
|
|
||
|
|
configure keys if keys
|
||
|
|
end
|
||
|
|
end
|