Class: TkScrollbox

Inherits:
TkListbox
  • Object
show all
Includes:
TkComposite
Defined in:
ext/ae-rad/ae-rad-inspector.rb

Instance Method Summary collapse

Instance Method Details

#initialize_composite(keys = nil) ⇒ Object


863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
# File 'ext/ae-rad/ae-rad-inspector.rb', line 863

def initialize_composite(keys=nil)
  list = TkListbox.new(@frame, Arcadia.style('edit'))
  scroll = TkScrollbar.new(@frame, Arcadia.style('scrollbar'))
  @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