class TkScrollbox

Private Instance Methods

initialize_composite(keys=nil) click to toggle source
# File lib/tk/scrollbox.rb, line 11
  def initialize_composite(keys=nil)
    #list = Tk::Listbox.new(@frame)
    # -> use current TkListbox class
    list = TkListbox.new(@frame)
    #scroll = Tk::Scrollbar.new(@frame)
    # -> use current TkScrollbar class
    scroll = TkScrollbar.new(@frame)
    @path = list.path

=begin
    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'
=end
    list.yscrollbar(scroll)
    list.pack('side'=>'left','fill'=>'both','expand'=>'yes')
    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