| # A ScrolledList widget feels like a list widget but also has a |
| # vertical scroll bar on its right. (Later, options may be added to |
| # add a horizontal bar as well, to make the bars disappear |
| # automatically when not needed, to move them to the other side of the |
| # window, etc.) |
| # |
| # Configuration options are passed to the List widget. |
| # A Frame widget is inserted between the master and the list, to hold |
| # the Scrollbar widget. |
| # Most methods calls are inherited from the List widget; Pack methods |
| # are redirected to the Frame widget however. |
| |
| from Tkinter import * |
| from Tkinter import _cnfmerge |
| |
| class ScrolledListbox(Listbox): |
| def __init__(self, master=None, cnf={}): |
| cnf = _cnfmerge(cnf) |
| fcnf = {} |
| vcnf = {'name': 'vbar', |
| Pack: {'side': 'right', 'fill': 'y'},} |
| for k in cnf.keys(): |
| if type(k) == ClassType or k == 'name': |
| fcnf[k] = cnf[k] |
| del cnf[k] |
| self.frame = Frame(master, fcnf) |
| self.vbar = Scrollbar(self.frame, vcnf) |
| cnf[Pack] = {'side': 'left', 'fill': 'both', 'expand': 'yes'} |
| cnf['name'] = 'list' |
| Listbox.__init__(self, self.frame, cnf) |
| self['yscrollcommand'] = (self.vbar, 'set') |
| self.vbar['command'] = (self, 'yview') |
| |
| # Copy Pack methods of self.frame -- hack! |
| for m in Pack.__dict__.keys(): |
| if m[0] != '_' and m != 'config': |
| setattr(self, m, getattr(self.frame, m)) |
