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
|