Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / devtools / v8plus / lib / python2.4 / lib-tk / ScrolledText.py

# A ScrolledText widget feels like a text 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 Text widget.
# A Frame widget is inserted between the master and the text, to hold
# the Scrollbar widget.
# Most methods calls are inherited from the Text widget; Pack methods
# are redirected to the Frame widget however.

from Tkinter import *
from Tkinter import _cnfmerge

class ScrolledText(Text):
   def __init__(self, master=None, cnf=None, **kw):
       if cnf is None:
           cnf = {}
       if kw:
           cnf = _cnfmerge((cnf, kw))
       fcnf = {}
       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, name='vbar')
       self.vbar.pack(side=RIGHT, fill=Y)
       cnf['name'] = 'text'
       Text.__init__(self, self.frame, **cnf)
       self.pack(side=LEFT, fill=BOTH, expand=1)
       self['yscrollcommand'] = self.vbar.set
       self.vbar['command'] = self.yview

       # Copy geometry methods of self.frame -- hack!
       methods = Pack.__dict__.keys()
       methods = methods + Grid.__dict__.keys()
       methods = methods + Place.__dict__.keys()

       for m in methods:
           if m[0] != '_' and m != 'config' and m != 'configure':
               setattr(self, m, getattr(self.frame, m))