class TkScrollbox - tk-0.2.0 Documentation

# 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