Contents

#
#               tk/scrollbox.rb - Tk Listbox with Scrollbar
#                                 as an example of Composite Widget
#                       by Yukihiro Matsumoto <[e-mail]>
#
require 'tk'
require 'tk/listbox'

class TkScrollbox<Tk::Listbox
  include TkComposite
  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
  private :initialize_composite
end

Version data entries

6 entries across 6 versions & 2 rubygems

Version	Path
tk-win-0.2.2-x86-mingw32	lib/tk/scrollbox.rb
tk-win-0.2.1-x86-mingw32	lib/tk/scrollbox.rb
tk-win-0.2.0-x86-mingw32	lib/tk/scrollbox.rb
tk_as_gem-0.1.0	ext/lib/tk/scrollbox.rb
tk_as_gem-0.0.1	ext/lib/tk/scrollbox.rb
tk_as_gem-0.0.0	ext/lib/tk/scrollbox.rb