class TkScrollbox
Private Instance Methods
initialize_composite(keys=nil)
click to toggle source
# File lib/tk/scrollbox.rb, line 12 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